KAYIT_NO alanının güncelleştirme öncesine aşağıdaki kodu yazdım ve oldu. çözümü paylaşmak istedim.

Dim SID As String

Dim stLinkCriteria As String

SID = Me.[KAYIT_NO].Value

stLinkCriteria = "[KAYIT_NO]=" & "'" & SID & "'"



If DCount("*", "evrakkayit", "KAYIT_NO  =" & Me.KAYIT_NO) > 0 Then





    MsgBox "Girdiğiniz     - " _

           & SID & " -     Kayıt Numarası daha önce verilmiştir." _

           & vbCr & vbCr & "Lütfen Kayıtları Kontrol Ediniz.", vbInformation, "Mükerrer Kayıt No Hatası...!"



Me.Undo

Else

Exit Sub

End If

başka bir kodlama yöntemi bilen arkadaşımız var ise alternatifleri uygulayabiliriz.