Introducir valores decimales en textbox
tyloya
07 de Abril del 2004
Hola
He restringido la inserci贸n de datos en un textbox, para que s贸lo se introduzcan n煤meros,...quiero que s贸lo se permitan valores num茅ricos, como cantidades de dinero,....pero no me admite que introduzca valores decimales como 12,44,..etc....
El c贸digo que uso es este:
Private Sub txtdinerop_KeyPress(KeyAscii As Integer)
If KeyAscii >= 48 And KeyAscii <= 57 Or KeyAscii = 9 _
Or KeyAscii = 8 Then
Else
KeyAscii = 0
End If
Exit Sub
errdes:
MsgBox Err.Descriptio, vbInformation, "Warning"
Exit Sub
End Sub
C贸mo hago para que me deje introducir valores decimales?
Gracias
He restringido la inserci贸n de datos en un textbox, para que s贸lo se introduzcan n煤meros,...quiero que s贸lo se permitan valores num茅ricos, como cantidades de dinero,....pero no me admite que introduzca valores decimales como 12,44,..etc....
El c贸digo que uso es este:
Private Sub txtdinerop_KeyPress(KeyAscii As Integer)
If KeyAscii >= 48 And KeyAscii <= 57 Or KeyAscii = 9 _
Or KeyAscii = 8 Then
Else
KeyAscii = 0
End If
Exit Sub
errdes:
MsgBox Err.Descriptio, vbInformation, "Warning"
Exit Sub
End Sub
C贸mo hago para que me deje introducir valores decimales?
Gracias
rafa
07 de Abril del 2004
Hol Tyloya.
Tienes que permitir introducir la , o el . (segun quieras)
seria asi:
if KeyAscii = 46 then keyascii=44 'si pulsan . lo convierto en , (o al reves si prefieres)
If KeyAscii >= 48 And KeyAscii <= 57 Or KeyAscii = 9 _
Or KeyAscii = 8 Then or keyascii=44 'o 46 si elegiste .
Else
KeyAscii = 0
End If
Tienes que permitir introducir la , o el . (segun quieras)
seria asi:
if KeyAscii = 46 then keyascii=44 'si pulsan . lo convierto en , (o al reves si prefieres)
If KeyAscii >= 48 And KeyAscii <= 57 Or KeyAscii = 9 _
Or KeyAscii = 8 Then or keyascii=44 'o 46 si elegiste .
Else
KeyAscii = 0
End If
tyloya
07 de Abril del 2004
Muy bien,...lo que me faltaba era saber la equivalencia en Ascii del "." y la ",".....thanks