[ABO.BANCIANA]

السلام عليكم ورحمة الله وبركاتة

استعمل الكود التالى للتاكد بان المكتوب فى التكست رقم وليس حروف

وماشة الحال تمام

ولكن

ماهو الحال عند اضافى 2 دوت (مثل 10.15.1) او (15..1)

تكون هنا المشكلة

Private Sub Text17_KeyPress(KeyAscii As Integer)
Dim ss As String
If KeyAscii = 8 Then Exit Sub
ss = "0123456789."
i = InStr(ss, Chr(KeyAscii))
If i = 0 Then KeyAscii = 0
End Sub

ارجوا التوضيح بعدم كتابة فاصل عشرى مرتين15..1

تحياتى