Boş Alan Kontrolü - Baskı Önizleme

Boş Alan Kontrolü - Baskı Önizleme

+- 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ığı: Boş Alan Kontrolü (/konu-bos-alan-kontrolu.html)

Sayfalar: 1 2 3

Cvp: Boş Alan Kontrolü - berduş - 20/07/2019

"esc" tuşu işe yaramıyor mu?

RE: Boş Alan Kontrolü - most - 20/07/2019

(20/07/2019, 22:42)halily yazdı: "esc" tuşu işe yaramıyor mu?

Evet "esc" işe yarıyor, acaba otomatik esc mi yaptırmalıyım

Cvp: Boş Alan Kontrolü - berduş - 20/07/2019

ilk eklediğiniz dosya için before update olayının kodunu aşağıdaki ile değiştirip

Private Sub Form_BeforeUpdate(Cancel As Integer)

If IsNull(Me.Açılan_Kutu47) Or IsNull(Me.Açılan_Kutu30) Or IsNull(Me.Metin40) Or IsNull(Me.LotNo) Then

MsgBox "Eksik bilgi girişi."

DoCmd.CancelEvent

Exit Sub

End If

End Sub

kaydet butonunun kodunun en başına da aşağıdaki kodu ekler misiniz?
eğer düzgün çalışırsa kaydet butonundaki değer kontrol kodlarını silebilirsiniz.

Me.Hareket_alt_formu.Form.Recordset.MoveFirst

RE: Boş Alan Kontrolü - most - 20/07/2019

(20/07/2019, 22:56)halily yazdı: ilk eklediğiniz dosya için before update olayının kodunu aşağıdaki ile değiştirip

Kod:

Private Sub Form_BeforeUpdate(Cancel As Integer) If IsNull(Me.Açılan_Kutu47) Or IsNull(Me.Açılan_Kutu30) Or IsNull(Me.Metin40) Or IsNull(Me.LotNo) Then MsgBox "Eksik bilgi girişi." DoCmd.CancelEvent Exit Sub End If End Sub

kaydet butonunun kodunun en başına da aşağıdaki kodu ekler misiniz?
eğer düzgün çalışırsa kaydet butonundaki değer kontrol kodlarını silebilirsiniz.

Kod:

Me.Hareket_alt_formu.Form.Recordset.MoveFirst

Sayın @"halily"şimdi oldu, CancelEvent alt satıra geçmesini engelledi, çok teşekkür ederim bihayli uğraştırdı. elinize sağlık

Cvp: Boş Alan Kontrolü - berduş - 20/07/2019

ÖD
sayenizde ben de öğrenmiş oldum)
iyi çalışmalar