Boş ise hata mesajı

[trueness]

Herkese Merhabalar,

Formumda bulunan metin kutuları boş ise komut çalışmasın, bir hata mesajı versin istiyorum,bir iki denemede bulundum ama olmadı,

If Me.Metin7 = Null Then MsgBox ("Deneme")
If Me.Metin7 = "" Then MsgBox ("Deneme")

Arkadaşlar forumda arama yaptım ve bununla ilgili bir takım örnekler buldum ama indiremiyorum.

Bu konu ile ilgili örnek ekleyebilirseniz veya nasıl olabiceğini yazabilirmisiniz?

Şimdiden Teşekkürler,

 

[leumruk]

If Textbox1="" Then
MsgBox "Giriş yapmamışsınız..."
Exit Sub
End If

Metin kutusu dediğiniz, sanırım textbox. Eğer öyleyse yukarıdaki kodu kodunuzun baş kısımlarında uygun yere yazınız.

 

[trueness]

Sayın Leumruk,

denedim ama buda çalışmıyor.

 

[adnanyurdakul]

if isnull(metin5) then msgbox "kutu boş) şekliyle denemelisin çalışıyor

 

[modalı]

Sayın truenes,

Mümkünse uygulamanızı ekleyebilir misiniz?

İyi çalışmalar

 

[EKKMB]

metin alanının özelliği de önemli

alanın boş olduğunu anlamak için tarih için ayrı bir yöntemi kullanıyor, sayı için ayrı metin için ayrı. bunların hepsini bir isnothing diye bir modül var elimde on gönderirim sana. onda isnull([metin...]) veya ([metin...])="" yerine isnothing(me.metin..) yazıyorsun. o modül işyerimdeki bilgisayarda kayıtlı gönderirim sana....

 

[ersoyalan]

Merhaba,

Ekli dosya işinize yarıyabilir.Kontrol edermisiniz.

E.ALAN

 

[mehmetdemiral]

Arkadaşlar, aslında ilginçtir ama benzer bir sorunu ben de bu akşam yaşadım. İlginç olan şu ki; sadece "0" değerinde kodlar çalışıyor, diğer durumlarda çalışmıyordu.

Bir form üzerinde bazı metin kutularım var. Bu alanlara girilecek verilerin "0" , null veya "" olmasını istemiyorum. Kodlar kayıt onayına basıldığında (onay kutusu) çalışıyor ve kontrol yapılıyor.
Kullandığım kodlar şunlardı:

If Me.Metin46 = 0 Or Me.Metin46 = Null Or Me.Metin46 = "" Then
MsgBox "Tarihte hata var", vbOKOnly, "Mehmetdemiral"
kayıtok = 0
Exit Sub
Else
end if

Bu kodları teker teker de denedim olmadı. Sadece alana 0(sıfır) değerini girdiğimde uyarıyı alıyorum, kayıt onayı da kaldırılıyor. Fakat null veya "" değerleri algılanmıyordu.

Fakat kodları şu şekle getirerek denediğimde sorun çözüldü.

If IsNull(Me.Metin46) Or (Me.Metin46) = "" Or (Me.Metin46) = "0" Then
MsgBox "Tarihte hata var", vbOKOnly, "Mehmetdemiral"
kayıtok = 0
Exit Sub
Else
end if


Aynı hataya düşen arkadaşlara duyurulur.