Merhaba Arkadaşlar.
1-Ekteki formu açıp kapattığımda bile kayıt yapıyor. Toplam kayıt kısmı sürekli artıyor. Neden olduğunu anlayamadım. Metin kutularına "Adı alanı boş geçilemez" uyarısınıda ekledim ama olmuyor. Neden olabilir? Teşekkür ederim.

Form özelliklerinden "Kapat Düğmesi" özelliğini Hayır olarak değiştir. Forma kapat butonu ekle. Butonun tıklandığında olayına

    If IsNull(txt_TC_KİMLİK_NO) Then

        Me.Undo

        DoCmd.Close

    Else

        If MsgBox("Değişiklikler Kaydedilsin mi?", vbYesNo, "Kaydediliyor...") = vbYes Then

            DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

            DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70

            DoCmd.Close

        Else

            Me.Undo

        DoCmd.Close

        End If

    End If

kodunu yaz.


Ayrıca, "txt_TC_KİMLİK_NO" Metin kutusunun çıkıldığında olayındaki kodu aşağıdaki ile değiştir.

Private Sub txt_TC_KİMLİK_NO_Exit(Cancel As Integer)



Dim var_mi As Byte



If IsNull(txt_TC_KİMLİK_NO) Then

Exit Sub

    var_mi = DCount("TC_KİMLİK_NO", "KURULKARARI", "TC_KİMLİK_NO='" & Me.txt_TC_KİMLİK_NO & "'")

    

    If var_mi > 0 Then

    

        MsgBox "Bu TC Kimlik Numarası İle Daha Önce Kayıt Yapılmış. Kontrol Ediniz", vbCritical + vbOKOnly, "Mükerrer Kayıt"

        Me.txt_TC_KİMLİK_NO = Empty

        Me.txt_TC_KİMLİK_NO.SetFocus

        Else

        

        Me.Undo

                

    End If

  End If

End Sub

Sayın Sledgeab yardımınız için çok teşekkür ederim.