textbox ta seçili karakter engeli

[arslan]

Merhaba arkadaşlar
Textbox a , (virgül) girilmesini engellemek istiyorum tek bir karektere
yasak konulabilirmi. virgül harici karakterler girilsin

 

[Levent Menteşoğlu]

Aşağıdaki, kodları deneyin.

[vb:1:72f9602fa2]
Private Sub TextBox1_Change()
If TextBox1 = "" Then Exit Sub
If Mid(TextBox1.Value, Len(TextBox1.Value), 1) = "," Then
MsgBox "VİRGÜL YAZILAMAZ"
TextBox1 = ""
End If
End Sub
[/vb:1:72f9602fa2]

veya

[vb:1:72f9602fa2]Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii = 44 Then MsgBox "VİRGÜL YAZILAMAZ"
End Sub
[/vb:1:72f9602fa2]

 

[arslan]

teşekkürler arkadaşlar. ama bi sorun var . vilgül yazılamaz uyarısından sonra sadece virgülü silmesini istiyorum girdiğim sayının tamamını değil
Üsteki kod uyarıdan sonra tamamını siliyor
Altaki kod uyarıdan sonra virgülü ekliyor

 

[Levent Menteşoğlu]

Alttaki kod tam istediğiniz gibidir. Þimdi denedim virgülü hiç bir şekilde yazmadı. Olmazsa dosyanızı gönderin bir bakalım.

 

[Levent Menteşoğlu]

Üstteki koduda aşağıdaki gibi değiştirin.

[vb:1:961facbbbf]Private Sub TextBox1_Change()
If TextBox1 = "" Then Exit Sub
If Mid(TextBox1.Value, Len(TextBox1.Value), 1) = "," Then
MsgBox "VİRGÜL YAZILAMAZ"
TextBox1 = Mid(TextBox1.Value, 1, Len(TextBox1.Value) - 1)
End If
End Sub[/vb:1:961facbbbf]

 

[arslan]

Bizim uygulamalarımız ara sıra hata veriyor. sizler gibi usta değiliz.
Bende bu şekilde uyguladım problemim çözüldü

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii = 44 Then
MsgBox "VİRGÜL YAZILAMAZ"
KeyAscii = 0
End If
End Sub

 

[arslan]

leventm bey İkinci gönderdiğin kodu görmemişim ya.
sadece üstekilere göre söylemiştim .afedersin

 

[Korhan Ayhan]

Selam Arkadaşlar,

Textboxa sadece bir kere "," girişini nasıl sağlarız. İkinci kez girmek istendiğinde "," çalışmasın.

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

[vb:1:87b3189141]Private Sub TextBox1_Change()
say = Len(TextBox1) - Len(Replace(TextBox1, ",", ""))
If say > 1 Then SendKeys "{bs}"
End Sub
[/vb:1:87b3189141]

 

[Korhan Ayhan]

Sn. leventm,

Kusura bakmayın bir detayı atlamışım. Bu işi commanbutton ile yapıyorum kodları nasıl düzenleyebiliriz. :hey:

 

[Levent Menteşoğlu]

Bu işi commandbutonla nasıl yaptığınızı açıkçası anlayamadım. Commandbuttondaki kodlarınızı yazarmısınız.

 

[Korhan Ayhan]

Kodu aşağıdaki şekilde düzenleyince istediğim oldu ilginize teşekkür ederim.
Virgülü commanbutton ile uyguluyordum.Sizin verdiğiniz koda Locked=True özelliğini ekleyince istediğim oldu.

Private Sub TXTEKRAN_Change()
Say = Len(TXTEKRAN) - Len(Replace(TXTEKRAN, ",", ""))
If Say = 1 Then CMDNOTKA.Locked = True
End Sub