Soru TextBox_Change hk.

[by_erman]

Merhaba
Birden fazla Textbox'um için içerisinde belirlemiş olduğum bir veri gelmesi durumunda boş göstermeye çalışıyorum. Ayrı ayrı yazdığımda oluyor fakat toplu yapmak istediğimde olmuyor. Toplu olarak aşağıdaki kodu yazmaya çalıştım.
Şimdiden teşekkür eder, kolaylıklar dilerim herkese.

Private Sub TextBox_Change() 'BELİRLİ FORMATI ÇEVİRME
        TextBoxMT9 = Empty: TextBoxMT8 = Empty: TextBoxMT7 = Empty: TextBoxMT6 = Empty: TextBoxMT5 = Empty: TextBoxMT4 = Empty:
        TextBox = "00:00:00"
        TextBox.Text = ""
End Sub

 

[murat_fidan]

Merhaba
Birden fazla Textbox'um için içerisinde belirlemiş olduğum bir veri gelmesi durumunda boş göstermeye çalışıyorum. Ayrı ayrı yazdığımda oluyor fakat toplu yapmak istediğimde olmuyor. Toplu olarak aşağıdaki kodu yazmaya çalıştım.
Şimdiden teşekkür eder, kolaylıklar dilerim herkese.

Private Sub TextBox_Change() 'BELİRLİ FORMATI ÇEVİRME
        TextBoxMT9 = Empty: TextBoxMT8 = Empty: TextBoxMT7 = Empty: TextBoxMT6 = Empty: TextBoxMT5 = Empty: TextBoxMT4 = Empty:
        TextBox = "00:00:00"
        TextBox.Text = ""
End Sub

Sub TextBoxKontrol()
    Dim kontrolVerisi As String
    Dim ctl As Control
    
    kontrolVerisi = "veri" ' Kontrol edilecek veri
    
    For Each ctl In Me.Controls ' Me, formun ismidir
        If TypeName(ctl) = "TextBox" Then ' Sadece TextBox'ları kontrol ediyoruz
            If InStr(1, ctl.Value, kontrolVerisi, vbTextCompare) > 0 Then
                ctl.Value = "" ' TextBox'ı boşalt
            End If
        End If
    Next ctl
End Sub

 

[by_erman]

Sub TextBoxKontrol()
    Dim kontrolVerisi As String
    Dim ctl As Control
   
    kontrolVerisi = "veri" ' Kontrol edilecek veri
   
    For Each ctl In Me.Controls ' Me, formun ismidir
        If TypeName(ctl) = "TextBox" Then ' Sadece TextBox'ları kontrol ediyoruz
            If InStr(1, ctl.Value, kontrolVerisi, vbTextCompare) > 0 Then
                ctl.Value = "" ' TextBox'ı boşalt
            End If
        End If
    Next ctl
End Sub

İlginiz için teşekkür ederim.