Private Sub ADISOYADI_BeforeUpdate(Cancel As Integer)
Dim SD1, C As String
Dim stLinkCriteria1, Cevap As String
SD1 = Me.ADISOYADI.Value
stLinkCriteria1 = "[ADISOYADI]=" & "'" & SD1 & "'"
If DCount("*", "tblkımlıkler", "ADISOYADI='" & Me.ADISOYADI & "'") > 0 Then
C = MsgBox("DİKKAT!...LİSTENİZDE...*" _
& SD1 & " * Adında,bir kaydınız zaten var,Farklı isim olduğunu düşünüyorsanız,ayırıcı bir özellik daha ekleyin*" _
& vbCr & vbCr & " DEVAM ETMEK İSTİYORMUSUNUZ...", vbYesNo + vbQuestion, "..***..DİKKAT..***..")
If C = vbNo Then Undo: Exit Sub
If C = vbYes Then
Cevap = MsgBox("Emin misiniz", vbYesNo, "KONTROL")
If Cevap <> 6 Then
MsgBox "Kayıt Yapılmadı", vbOKOnly, "KAYIT YAPILMADI"
Undo
ElseIf vbNo Then
MsgBox "KAYIT YAPILDI", vbOKOnly, "KAYIT TAMAM"
End If
End If
End If
End Sub

bu sadece adısoyadı alanı için diğerlerinide kendine göre uyarlıyabilirsin