TextBox Doluluk Kontrolü

[nickella]

Arkadaşlar, yapmış olduğum projede 3 adet textbox'ın doluluk durumuna göre buton aktif ya da pasif olacak. 3 textbox'ın da dolu olması kesinlikle şart. eğer 3 'ü de dolu olursa button aktif olsun. 3 textbox dolduktan sonra eğer bir tanesinin içeriği silinirse tekrar pasif olsun istiyorum. yardımlarınızı bekliyorum.

 

[Necdet]

Merhaba,

Biraz uzun yol oldu ama idare edin artık.

Private Sub TextBox1_Change()

    If Not TextBox1.Value = "" And Not TextBox2.Value = "" And Not TextBox3.Value = "" Then
        CommandButton1.Enabled = True
    Else
        CommandButton1.Enabled = False
    End If
    
End Sub

Private Sub TextBox2_Change()

    If Not TextBox1.Value = "" And Not TextBox2.Value = "" And Not TextBox3.Value = "" Then
        CommandButton1.Enabled = True
    Else
        CommandButton1.Enabled = False
    End If
    
End Sub

Private Sub TextBox3_Change()

    If Not TextBox1.Value = "" And Not TextBox2.Value = "" And Not TextBox3.Value = "" Then
        CommandButton1.Enabled = True
    Else
        CommandButton1.Enabled = False
    End If
    
End Sub

Private Sub UserForm_Initialize()
        CommandButton1.Enabled = False
End Sub

 

[nickella]

Merhaba,

Biraz uzun yol oldu ama idare edin artık.

Private Sub TextBox1_Change()

    If Not TextBox1.Value = "" And Not TextBox2.Value = "" And Not TextBox3.Value = "" Then
        CommandButton1.Enabled = True
    Else
        CommandButton1.Enabled = False
    End If
    
End Sub

Private Sub TextBox2_Change()

    If Not TextBox1.Value = "" And Not TextBox2.Value = "" And Not TextBox3.Value = "" Then
        CommandButton1.Enabled = True
    Else
        CommandButton1.Enabled = False
    End If
    
End Sub

Private Sub TextBox3_Change()

    If Not TextBox1.Value = "" And Not TextBox2.Value = "" And Not TextBox3.Value = "" Then
        CommandButton1.Enabled = True
    Else
        CommandButton1.Enabled = False
    End If
    
End Sub

Private Sub UserForm_Initialize()
        CommandButton1.Enabled = False
End Sub

Çok teşekkür ederim. Sorunsuz çalışıyor