+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Boş Textboxların Kontrolü (/konu-bos-textboxlarin-kontrolu.html)
RE: Boş Textboxların Kontrolü - m_demir - 14/05/2020
Haklısınız Hocam.
RE: Boş Textboxların Kontrolü - berduş - 14/05/2020
On Error Resume Next gibi hata denetleme yada atlama kodlarini projeniz bittiktwn sonra ekleyin o satiri siler yada pasif yaparsaniz nerlerde hata verdigini gorursunuz
RE: Boş Textboxların Kontrolü - feraz - 14/05/2020
Gifi izleyin.Trim olmazsa boşlukta dolu sayılıyor.
If Trim(TextBox1.Value) <> "" Or Trim(TextBox2.Value) <> "" Then
MsgBox "Textboxlardan biri dolu"
Else
MsgBox "Hepsi bos"
End IfBuda empty ile çalışan gif.
RE: Boş Textboxların Kontrolü - m_demir - 14/05/2020
Çok teşekkürler Hocam Çektiğiniz video için.
Hocam eklediğiniz kodlar çalışıyor. TextBox boş uyarısı veriyor uyarıdan sonra durmuyor. Kayıt yapıyor. Benim istediğim TextBoxların birtanesi boş ise kayıt işlemi yapmasın dursun.
Re: Boş Textboxların Kontrolü - feraz - 14/05/2020
(14/05/2020, 23:05)m_demir yazdı: Çok teşekkürler Hocam Çektiğiniz video için.Exit sub ekleyiniz!!!!!!!!!!!
Hocam eklediğiniz kodlar çalışıyor. TextBox boş uyarısı veriyor uyarıdan sonra durmuyor. Kayıt yapıyor. Benim istediğim TextBoxların birtanesi boş ise kayıt işlemi yapmasın dursun.
Buda array ile
Dim arr, i As Byte, say As Byte
arr = Array("TextBox1", "TextBox2")
For i = LBound(arr) To UBound(arr)
If Me.Controls(arr(i)) <> "" Then say = say + 1
Next
If say > 0 Then
MsgBox "Textboxlardan biri dolu"
Exit Sub
Else
MsgBox "Hepsi bos"
End If
Erase arrRE: Boş Textboxların Kontrolü - berduş - 14/05/2020
Sayin @m_demir exceli öğrenmek istiyorsanız kodları incelemeniz ve anlamaya çalışmanız şart. Yoksa öğrenemezsiniz önceki mesajlarımda size zaten yazılan kodun çalışması için ne yapmanız gerektiğini belirtmiştim. Lütfen öğrenmek için çaba harcayın, anlamaya çalışın yoksa ayninsorulari defalarca sorarsiniz ve artık bizlerde "Ogrenmek icin degil isi bize yaptirmak icin soruyor" kanısı oluşmaya başlar, sonrasında ise cevap alabilme ihtimaliniz azalır.