22/04/2012, 23:30
|
| | | Fecha de Ingreso: enero-2008 Ubicación: Lima - Perú
Mensajes: 1.127
Antigüedad: 16 años, 3 meses Puntos: 10 | |
| Respuesta: Problema con guarda datos numericos
Prueba con este codigo:
Private Sub Text1_KeyPress(KeyAscii As Integer)
''Solo permite estos caracteres...
If (Chr(KeyAscii) < "0" Or Chr(KeyAscii) > "9") And _
Chr(KeyAscii) <> vbBack And _
Chr(KeyAscii) <> "," And _
Chr(KeyAscii) <> "." Then
KeyAscii = 0
End if
End Sub |