Sub Text1_Keypress(KeyAscii As Integer)
If KeyAscii >= 48 And KeyAscii <= 57 Or KeyAscii = 127 Or KeyAscii = 8 Then
' El 48 es 0 y el 57 es 9, 127 es SUPR y 8 es Backspace
Exit Sub
Else
MsgBox "Solo números para registrar el valor a pagar sin puntos, " & _
"ni comas, ni cualquier caracter especial!!"
End If
End Sub
pille este codigo para validar que solo ingrese numero el problema que al mandar el mensaje la letra sigue en el txt y no se borra
probe poniendo al final del msgbox text1="" pero no se borra
no se, yo para mi cliente uso este
Sub TextIP_Keypress(KeyAscii As Integer)
Static LastText As String
Static SecondTime As Boolean
If Not SecondTime Then
With TextIP
If .Text Like "*[!0-9]*" Then
MsgBox "Solo numeros para registrar el valor a pagar sin puntos, " & _
"ni comas, ni cualquier caracter especial!!"
SecondTime = True
.Text = LastText
.SelStart = LastPosition
Else
End If
End With
End If
End Sub
SecondTime = False
y me sirve bastante.. ( lo he modificado un poquito) :xD
Saludos
pero limpia el txt??
Aunque parezca que no...si lo hace :xD :xD
Saludos
Sub Text1_Keypress(KeyAscii As Integer)
If KeyAscii >= 48 And KeyAscii <= 57 Or KeyAscii = 127 Or KeyAscii = 8 Then
' El 48 es 0 y el 57 es 9, 127 es SUPR y 8 es Backspace
KeyAscii = 0 'Esto anula el caracter incorrecto.
Exit Sub
Else
MsgBox "Solo números para registrar el valor a pagar sin puntos, " & _
"ni comas, ni cualquier caracter especial!!"
End If
End Sub