Boş Alan Kontrolü

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

(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

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

(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

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