Private Sub Sifra_BeforeUpdate(Cancel As Integer)

Dim UNOS As String
Dim stLinkCriteria As String
Dim rsc As DAO.Recordset

Set rsc = Me.RecordsetClone

UNOS = Me.Sifra.Value

stLinkCriteria = "[Sifra]=" & "'" & UNOS & "'"
    
    ' Provjera dali u  tblMaterijal ve
 postoji šifra koja se upisuje

If DCount("Sifra", "tblProdajaStavke", stLinkCriteria) > 0 Then

Me.Undo

MsgBox "Upozorenje Sifra broj " & UNOS & " ve
 je ranije upisana." & vbCr & vbCr & "Biti ete preba
eni na taj zapis.", vbInformation

rsc.FindFirst stLinkCriteria
Me.Bookmark = rsc.Bookmark
End If
Set rcs = Nothing
End Sub