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.