Şarta GÖre Textbox

[leyhus]

EĞER Textbox1 Veli ve hasan'sa Textbox6 ya 7 rakamını atsın.diğerleri ise 6 rakamını atsın.Bir türlü yapamadım.

 

[alpi]

Kod sayfasının en üst satırına.

Option Compare Text

Private Sub ComboBox1_Change() olayının en alt satırına.

If TextBox1.Text = "veli" Or TextBox1.Text = "hasan" Then
    TextBox6.Text = 7
Else
    TextBox6.Text = 6
end if

yazın.