Örnek kod aşağıdadır- Kimlik tablosunda kisinumarası alanına giriş yapacaksanız.
Private Sub Kisinumarası_BeforeUpdate(Cancel As Integer)
Dim SID As String
Dim stLinkCriteria As String
SID = Me.[kisinumarası].Value
stLinkCriteria = "[kisinumarası]=" & "'" & SID & "'"
If DCount("[kisinumarası]", "Kimlik", stLinkCriteria) > 0 Then
MsgBox SID & " -- KİŞİ NUMARASI KAYITLARDA MEVCUT ." _
& vbCr & vbCr & " NUMARANIZI KONTROL EDİN VEYA BAŞKA NUMARA GİRİNİZ.", vbInformation _
, ".... Uyarı..."
Me.Undo
Else
Exit Sub
End If
End Sub
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.