formu kapatırken yarım kalan kayıt hatası

1 2
01/01/2013, 00:54

Mecnun24

Merhabalar. Formda tamamlanmamış bir kayıt (doldurulması gerekli iken doldurulmayan alan ) olduğunda formu kapatmaya çalıştınızda ilk önce gerekli alanı boş bırakmayınız mesajı ardındanda bu nesneyi şu an kaydedemezsiniz diye başlayan uzun bir hata mesajı alırız. Bu hata mesajları yerine kendi mesajları yazamazmıyız. Mesela kaydı tamamlamadan formu kapatamazsınız gibi. Araştırdım ancak Bu konuya bir türlü çözüm bulamadım, Mesela formun unload olayına yazılacak bir kodla bunu sağlayamazmıyız.
01/01/2013, 01:13

alpeki99

Formun Unload olayında değilde Dirty yani Kirlide olayında bu işlemi yaptırabilirsiniz. Örnek Access videolu görsel ders bulunmaktadır:

Görsel Ders - Formun Dirty Özelliği, Kayıt Değişikliğinin Onay ile Kaydedilmesi
01/01/2013, 01:51

fatih karagöl

alpeki üstadım müsadenizle bir alternatifte benden olsun.
sn mecnun24 formun modülünü bu şekilde ayarlarsanız zannediyorum istediğiniz gibi olacak.

Private Sub nullKontrol()
If IsNull(ad) Or ad = "" Then MsgBox "isim alanı gereklidir", vbInformation, "my applaciton": End
If IsNull(tutar) Or tutar = "" Then MsgBox "tutar alanı adı gereklidir", vbInformation, "my applaciton": End
End Sub


Private Sub Form_BeforeUpdate(Cancel As Integer)
nullKontrol
End Sub
01/01/2013, 20:44

Mecnun24

sayın alpeki99 ayrı bir butona basınca değilde formun sağ üst kenarındaki kapat butonundan kapatırken uygulayabilirmiyiz. Kullanıcı kapat butonundan değilde formun kendi kapat butonuyla kapatsa.tşkrler.
Sayın fatih karagöl formu kapatırken mesaj veriyor ancak tamam deyince Access gene kendi mesajını veriyor ve form kapatabiliyor. Accessin kendi mesajını vermesini ve formun kapatılamaması mümkünmü ? tşkrler.
02/01/2013, 01:59

alpeki99

Access'in kendi sağ üst köşedeki kapat butonunu devre dışı bırakıyorum. Program içindeki formların sağ üst köşesindeki kapat butonlarını devre dışı bırakıyorum. Bir buton ekleyip ona tıklandığında aşağıdaki kontrolü yaptırıyorum:


If Me.Dirty Then
If MsgBox("Formda kaydedilmemiş bilgiler var. Eğer çıkmak isterseniz bilgiler geri getirilemeyecek şekilde silinecek. Çıkmak istediğinizden emin misiniz?", vbQuestion + vbYesNo, "Çıkış Öncesi Uyarı!!!") = vbYes Then
Me.Undo
DoCmd.Close
Else
Exit Sub
End If
Else
DoCmd.Close
End If
02/01/2013, 04:19

fatih karagöl

sn mecnun
istediğinize en yakın kodlar aşağıdadır. tek kusuru hatalı kayıtla kapanışı engelledikten sonra denetimlerdeki mevcut değerleri sıfırlıyor olması. yok oda olmasın derseniz unbound denetimlere ve Sql kodlarına dönmeniz gerekecek.

Function nullKontrol() As Boolean

If IsNull(tarih) Or tarih = "" Then nullKontrol = True:
If IsNull(ad) Or ad = "" Then nullKontrol = True:
If IsNull(tutar) Or tutar = "" Then nullKontrol = True:
End Function


Private Sub Form_BeforeUpdate(Cancel As Integer)
If nullKontrol = True Then
MsgBox "boş olanlar var bu şekilde kayıt edemezsiniz", vbInformation, "my acces"
End
End If
End Sub


Private Sub Form_Error(DataErr As Integer, Response As Integer)
Select Case DataErr
Case 2169
Response = acDataErrContinue
End Select
End Sub

Private Sub Form_Unload(Cancel As Integer)
If nullKontrol = True Then Cancel = True
End Sub
1 2