textbox içinde aynı birden fazla karekter sınırı

[heft]

Merhabalar,
Textbox1 de sadece bir defa "." (nokta) yazma izni vermek istiyorum
2. yada daha fazla yazılmaya kalkılırsa yazmayacak.
Böyle bir kod var mı acaba?

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Option Explicit
 
Private Sub TextBox1_Change()
    Dim SAY As Byte
    SAY = Len(TextBox1) - Len(Replace(TextBox1, ".", ""))
    If SAY > 1 Then SendKeys "{BS}"
End Sub

 

[heft]

Çok teşekkürler sağolun tam aradığım buydu.