Merhaba arkadaşlar, formda zorunlu alanların doldurulması ve kaydedilmeden çıkılmaması uyarılarını nasıl verebilirim. İyi çalışmalar dilerim.
if isnull (me.metinkutusuadi) or me.metinkutusuadi="" then: msgbox "metinkutusuadi boş bıraktınız.": me.metinkutusuadi.setfocus:exit sub
geri bildirimde bulununuz.
(30/12/2016, 11:10)ozguryasin yazdı: if isnull (me.metinkutusuadi) or me.metinkutusuadi="" then: msgbox "metinkutusuadi boş bıraktınız.": me.metinkutusuadi.setfocus:exit sub
geri bildirimde bulununuz.
Sayın ozguryasin, bu kodu nerede kullanmalıyım. Yardımınız ricası ile..
Formun Güncelleme öncesine yazmanız gerekli
Sayın ozguryasin, Sayın boolean, örnek kodu tarif ettiğiniz şekilde kullandım ve çalışıyor. Bir metin kutusu için çalışıyor, 3 ayrı metin kutusunu nasıl kontrol etmesini sağlarım. İyi çalışmalar dilerim.
Kodu aşağıdaki gibi kullanabilirsiniz.
If IsNull(Me.Metin0) Or Me.Metin0 = "" Then
MsgBox "Metin0 boş bıraktınız."
Me.Metin0.SetFocus
Exit Sub
ElseIf IsNull(Me.Metin2) Or Me.Metin2 = "" Then
MsgBox "Metin2 boş bıraktınız."
Me.Metin2.SetFocus
Exit Sub
ElseIf IsNull(Me.Metin4) Or Me.Metin4 = "" Then
MsgBox "Metin4 boş bıraktınız."
Me.Metin4.SetFocus
Exit Sub
Else
MsgBox ("Tüm Alanlar Dolu")
End If