Karakter Saydırma

[Tasarım]

Arkadaşlar kusura bakmayın yeni konu açmak zorunda kaldım. Sabahtan beri forumda arıyorum bir türlü bulamadım. Eğer varsa linkini veren olursa çok memnun olurum.
Benim sorunum, bir program hazırlıyorum ve bir bölümde takıldım. Örneğin bir textbox kutusuna girilen verileri sayabilecek bir kod arıyorum. Text kutusu IBAN kodu ile ilgili ve 26 karakter olması zorunlu, girilen verinin 26 karakter olup olmadığını kontrol edecek. Eğer 26 karakterden düşük ise yandaki Label'e "X" işareti, 26 karakter ise "OK" yazmasını istiyorum.

Yardımlarınızı bekliyorum arkadaşlar.

 

[Necdet]

Merhaba,

Kodu denemeden doğrudan yazdım siz hem deneyiniz hem kendinize uyarlayınız.

If Not Len(Textbox1.value) = 26 Then
Label1.caption = "X"
Else
Label1.Caption =""
EndIf

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodları çalışmanıza uyarlayıp denermisiniz.

Option Explicit
 
Private Sub TextBox1_Change()
    If Len(TextBox1) = 26 Then
        Label1.Caption = "OK"
    Else
        Label1.Caption = "X"
    End If
End Sub
 
Private Sub UserForm_Initialize()
    TextBox1.MaxLength = 26
End Sub

 

[Tasarım]

Allah razı olsun arkadaşlar, her ikisi de çalıştı.