TextBox

[ahmett46]

Slm arkadaşlar Textbox ta istediğimiz kadar rakam girilmesini istiyoruz ne az ne de çok(örnek 11) az ve çok girildiğinde eksik hane ve fazla hane girdiniz şeklinde uyarı versin nasıl bir kod kullanmalıyız. İlgilenen arkadaşlara teşekkürler

 

[Orion1]

Merhaba.
Aşağıdaki kodları userform'un kod sayfasına yapıştırınız.

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Len(TextBox1.Value) < 11 Then
    MsgBox "Textboxx'a 11 Karakaterden az giriş yaptınız..!!", vbCritical
End If
If Len(TextBox1.Value) > 11 Then
    MsgBox "Tetxbox!a 11 karakterden fazla giriş yaptınız..!!", vbCritical
End If
End Sub

 

[ocamsul]

SN: ahmett46 sanırım aşağıdaki gibi bir örnek işinizi görecektir.

Private Sub TextBox1_Change()
If Len(TextBox1.Value) <> 11 Then
TextBox1 = Empty
MsgBox "11 HANE RAKAM G&#304;R&#304;L&#304;R"
Cancel = True
End If
End Sub

 

[ahmett46]

Teşekkür ediyorum arkadaşlar!
Sayın Sezar Bey TextBox a eksik ve fazla yazdığımızda uyarı veriyor. Enter e bastığımızda imleç diğer TextBox a geçiyor. Geçmese aynı TextBox ta kalsa diyorum. Mümkün mü?

 

[Orion1]

Merhaba.

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Len(TextBox1.Value) < 11 Then
    MsgBox "Textboxx'a 11 Karakaterden az giri&#351; yapt&#305;n&#305;z..!!", vbCritical
cancel=true
End If
If Len(TextBox1.Value) > 11 Then
    MsgBox "Tetxbox!a 11 karakterden fazla giri&#351; yapt&#305;n&#305;z..!!", vbCritical
cancel=true
End If

End Sub

 

[ahmett46]

Teşekkür ediyorum eline sağlık
İyi çalışmalar

 

[ahmett46]

Slm arkadaşlar
MultiPage nin içine oluşturduğum TextBox lara entere tıkladığımda sırayla gitmiyor ne yapabilirim

 

[emrexcel123]

sıra

arkadaşım textbox'ları sıra ile yerleştirirsen örneğin
textbox1,2,3 gibi...

 

[Orion1]

Merhaba.
Properties'ten Textbox'lar&#305;n Tab index &#246;zelliklerinizi istedi&#287;iniz s&#305;raya g&#246;re ayarlayabilirsiniz.

 

[ocamsul]

Slm arkadaşlar
MultiPage nin içine oluşturduğum TextBox lara entere tıkladığımda sırayla gitmiyor ne yapabilirim

Aşağıdaki kodları denerseniz TextBoxların sıralamasını istediğiniz gibi değiştirirsiniz.

Private Sub UserForm_Initialize()
TextBox2.TabIndex = 1
TextBox1.TabIndex = 2
TextBox3.TabIndex = 3
End Sub

Örneğin Burada TextBox2 Userform açıldığında aktif olan ilk TextBox dur.