Form yapısına göre kullanılabileceğiniz kod aşağıdadır.

Private Sub btnKaydet_Click()

Dim kayitadeti As Byte

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



    DoCmd.RunCommand acCmdSaveRecord

    

Else



    Me.Undo

    

End If

End If



'kayıtlarda değişiklik yapılmış

'kayitadeti = DCount("*", "tbl_ogrenci", "adi_soyadi='" & txtadsoyad & "' ")

'If kayitadeti > 0 Then

'MsgBox "Bu Öğrenci Daha Önce Kaydetilmiştir.Kayıt İşlemi Yapılmayacaktır.", vbCritical, "Uyarı: Tekrar Eden Kayıt"

'DoCmd.CancelEvent

'Else



'MsgBox "Bilgiler Başarı İle Kaydedildi", vbInformation, "İşlem Tamam"

tmdenedimlerpasif

kisisayisi

'End If

'End If

End Sub