Formunuzun içindeki GELDIGI_YER alanının güncelleştirme öncesine aşağıdaki kodu eklerseniz istediğiniz işlem olacaktır.
Dim SID As String
Dim stLinkCriteria As String
SID = Me.[GELDIGI_YER].Value
stLinkCriteria = "[GELDIGI_YER]=" & "'" & SID & "'"
If DCount("[GELDIGI_YER]", "evrakkayit", stLinkCriteria) > 0 Then
Me.Undo
MsgBox "Girmekte Oldugunuz " _
& SID & " Kayıt Daha Önce İşlenmiş." _
& vbCr & vbCr & "Lütfen Kayıtları Kontrol Ediniz.", vbInformation _
, "Mükerrer Kayıt"
End If
Set rsc = Nothing