Textbox2 değeri 1 ve 2 ile başlıyorsa textbox3 e YOK YAZSIN

[a_self_lion]

Selam arkadaşlar sizlerin yardımı ile yapmış olduğum marketler için gazete takip programın da yapamadım bir kontrol var textbox2 değerim 1001-1002-1003.... , 2001-2002-2003.... veya 3001-3002-3003... , 4001-4002-4003... gibi değerler alıyor burda yapmak istediğim 1 ve 2 ile başlarsa bu değer textbox3 e YOK YAZDIRMAK.
Yardım ederseniz sevinirim. Teşekkürler.

 

[Orion1]

Aşağıdaki kodları deneyiniz.

Private Sub CommandButton1_Click()
If Left(TextBox2.Value, 1) = "1" Or Left(TextBox2.Value, 1) = "2" Then
    TextBox3.Value = "YOK"
End If
End Sub

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Private Sub TextBox3_Enter()
    TextBox3 = IIf(Val(Mid(TextBox2, 1, 1)) = 1 Or Val(Mid(TextBox2, 1, 1)) = 2, "YOK", "VAR")
End Sub

 

[a_self_lion]

Çok TeŞekkÜr Ederİm Sayin Cost Control Ve Orİon2 Elİnİze SaĞlik