Introducir valores decimales en textbox
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
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