AccessTr.neT

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