+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Form Açılıp Kapandıkça Boş Kayıt Yapıyor (/konu-form-acilip-kapandikca-bos-kayit-yapiyor.html)
Form Açılıp Kapandıkça Boş Kayıt Yapıyor - durkheim - 14/02/2011
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.
Cvp: Form Açılıp Kapandıkça Boş Kayıt Yapıyor - ozanakkaya - 14/02/2011
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 SubCvp: Form Açılıp Kapandıkça Boş Kayıt Yapıyor - durkheim - 14/02/2011
Sayın Sledgeab yardımınız için çok teşekkür ederim.