AccessTr.neT
Boş Textboxların Kontrolü - Baskı Önizleme

+- 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)

Sayfalar: 1 2 3 4 5 6 7 8 9 10 11 12


RE: Boş Textboxların Kontrolü - feraz - 15/05/2020

Konu çözülmüş,alternatif olsun.

   
    Dim i As Byte, say As Byte
    arr = Array("TextBox5", "TextBox6")
   
    For i = LBound(arr) To UBound(arr)
        If Me.Controls(arr(i)) <> "" Then say = say + 1
    Next
   
    If say > 0 Then
        MsgBox "Devam etme iptal edildi", vbCritical, "Bilgi"
        Exit Sub
    End If



RE: Boş Textboxların Kontrolü - m_demir - 16/05/2020

Çok teşekkürler Hocam ellerinize sağlık.


RE: Boş Textboxların Kontrolü - feraz - 16/05/2020

(16/05/2020, 00:42)m_demir yazdı: Çok teşekkürler Hocam ellerinize sağlık.
Rica ederiz kolay gelsin.