SELECT T_Transakcije.*

FROM T_Transakcije

WHERE (((T_Transakcije.Sifra_Transakcije)=[Forms]![F_IzlazRobe]![Izlaz_Broj]));

Private Sub SifraArtikla_BeforeUpdate(Cancel As Integer)

 

 Dim UPIS As String

 

    Dim stLinkCriteria As String

    Dim rsc As DAO.Recordset

 

    Set rsc = Me.RecordsetClone

 

    UPIS = Me.SifraArtikla.Value

   

    stLinkCriteria = "[SifraArtikla]=" & "'" & UPIS & "'"

 

    If DCount("SifraArtikla", "Q_Transakcije", _

              stLinkCriteria) > 0 Then

       

        Me.Undo

       

        MsgBox "Pažnja arikl sa Å¡ifrom " _

             & UPIS & " ve je upisan." _

             & vbCr & vbCr & "Kursor e se prebaciti na taj podatak.", _

               vbInformation, "PogreÅ¡an unos!"

           rsc.FindFirst stLinkCriteria

        Me.Bookmark = rsc.Bookmark

    End If

 

    Set rsc = Nothing

End Sub