Merhaba, Uygulamanızda mükerrer kayıt kontrolünü tckimlik numarasından yaptırabilirsiniz. 

Dim kayitadeti As Byte

Dim GT

If IsNull(txtkimlikno) Or txtkimlikno = "" Then

MsgBox " Lütfen Tc Kimlik No alanını doldurunuz", vbExclamation, "Uyarı"

Exit Sub

End If

If IsNull(txtadsoyad) Or txtadsoyad = "" Then

MsgBox " Lütfen Ad Soyad bilgisini giriniz", vbExclamation, "Uyarı"

Exit Sub

End If



If Me.Dirty = True Then



If MsgBox("Değişiklik Kaydedilsin mi?", vbExclamation + vbYesNo, "Kayıt Onayı") = vbYes Then





    If Nz(DCount("*", "tbl_ogrenci", "tckimlik='" & txtkimlikno & "'"), 0) > 0 Then

    

        MsgBox "Bu Öğrenci Daha Önce Kaydetilmiştir.", vbCritical, "Uyarı: Tekrar Eden Kayıt"

        Exit Sub

        

    End If

        



    DoCmd.RunCommand acCmdSaveRecord

    

Else



    Me.Undo

    

End If

End If



tmdenedimlerpasif

kisisayisi

bu kod ile daha önceden tckimlik numarası girildiğinde kaydet butonuna tıkladığınızda uyarı verir. Veya TCKimlik yazdığınız metin kutusunun güncelleştirme sonrasında olayına 

If Nz(DCount("*", "tbl_ogrenci", "tckimlik='" & txtkimlikno & "'"), 0) > 0 Then

msgbox "bu öğrenci mevcut"

exit sub

end if

gibi kod ekleyerek kontrol sağlayabilirsin. Düzenlediğin kayıtta, yoksa yeni kayıt ekle olayı yapamazsın. Yaptığın değişiklik mevcut kaydı etkileyecektir.