Skip to main content

AccessTr.neT


Boş Alan Kontrolü

Boş Alan Kontrolü

#13
"esc" tuşu işe yaramıyor mu?
Cevapla
#14
(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
Cevapla
#15
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
Cevapla
#16
(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
Cevapla
#17
ÖD
sayenizde ben de öğrenmiş oldum)
iyi çalışmalar
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da