AccessTr.neT
Zorunlu alan ve kaydet uyarıları - 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ığı: Zorunlu alan ve kaydet uyarıları (/konu-zorunlu-alan-ve-kaydet-uyarilari.html)

Sayfalar: 1 2


Zorunlu alan ve kaydet uyarıları - ertans - 30/12/2016

Merhaba arkadaşlar, formda zorunlu alanların doldurulması ve kaydedilmeden çıkılmaması uyarılarını nasıl verebilirim. İyi çalışmalar dilerim.


Cvp: Zorunlu alan ve kaydet uyarıları - ozguryasin - 30/12/2016

if isnull (me.metinkutusuadi) or me.metinkutusuadi="" then: msgbox "metinkutusuadi boş bıraktınız.": me.metinkutusuadi.setfocus:exit sub

geri bildirimde bulununuz.


Cvp: Zorunlu alan ve kaydet uyarıları - ertans - 30/12/2016

(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..


Cvp: Zorunlu alan ve kaydet uyarıları - boolean_ - 30/12/2016

Formun Güncelleme öncesine yazmanız gerekli


Cvp: Zorunlu alan ve kaydet uyarıları - ertans - 30/12/2016

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.


Cvp: Zorunlu alan ve kaydet uyarıları - ozanakkaya - 30/12/2016

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