Merhaba Arkadaşlar
Bir textbox'ım var ve aşağıdaki kodu çalıştırıyorum.
Bu kodun Textbox30 a üç karakter girişi yapıldıktan sonra çalışmasını istiyorum. Çok uğraştım ama yapamadım. Bunu yapabilirmiyiz?
Bir textbox'ım var ve aşağıdaki kodu çalıştırıyorum.
Kod:
Private Sub TextBox30_Change()
If OptionButton1 = True Then Label27.Caption = OptionButton1.Caption & Format(TextBox30, "000")
If OptionButton2 = True Then Label27.Caption = OptionButton2.Caption & Format(TextBox30, "000")
On Error Resume Next
If [EkipmanList!h5:h65536].Find(Label27.Caption) = False Then
reset
MsgBox Label27.Caption & " nolu kayıt bulunamadı.", vbExclamation, "UYARI"
Exit Sub
End If
For i = 1 To 22
Controls("TextBox" & i) = s1.Cells([Sheet1!h5:h65536].Find(Label27.Caption).Row, i)
Next i
End Sub