Boş Textboxların Kontrolü

1 2 3 4 5 6 7 8 9 10 11 12
15/05/2020, 11:52

berduş

böyle yazınca çalışıyor ama iş uzatılmış oluyor)
Dim y, x As Integer
If Len(Trim(TextBox2 & TextBox3 & TextBox4 & "")) = 0 Then MsgBox "hepsi boş"

y = IIf(Len(Trim(TextBox5 & "")) > 0, 1, 0)
x = IIf(Len(Trim(TextBox6 & "")) > 0, 1, 0)
If x + y = 1 Then MsgBox "kutulardan biri boş"
15/05/2020, 12:01

m_demir

Hocam aşağıdaki kod kutulardan biri boş uyarısı veriyor. Ama kod durmuyor. Metin kutusunun birtanesi boş olmasına rağmen kayıt yapıyor.
15/05/2020, 12:06

feraz

If textbox5="" and textbox6<>"" then
Mesaj
Exit sub
End if

If textbox5<>"" and textbox6="" then
Mesaj
Exit sub
End if


Yukardaki gibi deneyin bir şart daha ekleyebilirsiniz gerekirse.

If textbox5="" and textbox6="" then
Mesaj
Exit sub
End if


Yukarıdaki gibi ikiside boşsa ayarlayın gerekli yeri
15/05/2020, 12:11

berduş

61. mesajdaki kodları diyorsanız o kodlar sadece bilgi verme amaçlı kodlar. Kayıt etmeyi engellemek için yapı değişmeli
mesela
If Len(Trim(TextBox2 & TextBox3 & TextBox4 & "")) = 0 Then MsgBox "hepsi boş"  bu kodu düşünün
If Len(Trim(TextBox2 & TextBox3 & TextBox4 & "")) = 0 Then 
         MsgBox "hepsi boş kayıt eklenemez"
         Exit Sub
else
         buraya kayıt ekleme kodları
end if
eğer 2 kontrolde aynı kod bloğunda olacaksa
Not : aşağıdaki kodlar Kaydetme kodundan önce yazılacak
Dim y, x As Integer
If Len(Trim(TextBox2 & TextBox3 & TextBox4 & "")) = 0 Then
         MsgBox "hepsi boş kayıt eklenemez"
         Exit Sub
end if

y = IIf(Len(Trim(TextBox5 & "")) > 0, 1, 0)
x = IIf(Len(Trim(TextBox6 & "")) > 0, 1, 0)
If x + y = 1 Then
         MsgBox "kutulardan biri boş"
         Exit Sub
end if
'buraya da kaydetme işlemleri eklenecek
15/05/2020, 12:19

m_demir

Çok teşekkürler Hocam ellerinize sağlık. Tam istediğim gibi olmuş. 
Hocalarım kusura bakmayın ikinizi de çok yordum. 

Konuyu taşıyabilirsiniz. Saygılarımla.
15/05/2020, 13:00

berduş

sorun yorulmak değil, elimde olsa 24 saat bilgisayarla uğraşırım çok da sorun olmaz ama amacımız öğretmeye çalışmak ve bu arada çözerken öğrenmek ve bir problemi çözmenin verdiği mutluluğu yaşamak. Ama problemlerini çözmeye çalıştığımız kişinin amacı öğrenmek olmadığı zaman bir süre sonra hep aynı tarzda, cevabı daha önce defalarca verilmiş sorular sormaya başlıyor. o zaman da en motive eden unsur, farklı bir sorunu çözmenin verdiği mutluluğu yaşayamıyorsunuz, dolayısıyla cevap verme istediği de kalmıyor. kimse her gün aynı soruların sorulduğu bulmacayı çözmeyi sevmez, değil mi?
iyi çalışmalar
kolay gelsin.
1 2 3 4 5 6 7 8 9 10 11 12