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