Registrarse

[CARRY-ON]

Código:

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

[papanoel_devacaciones]

no se, yo para mi cliente uso este

Código

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) 

Saludos

[CARRY-ON]

pero limpia el txt??

[papanoel_devacaciones]

Aunque parezca que no...si lo hace 






Saludos

[APOKLIPTICO]

Código

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