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ş"
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.
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
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
Ç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.
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.