Validar entrada de datos en formulario access
Publicado por jose (4 intervenciones) el 27/10/2015 04:12:53
Buenas noches, tengo un bd y un formulario en el que debo ingresar numeros pero ya valide que la entrada no sea nula, de esta manera:
esto funciona,
pero ahora quiero que valide que solo sean numeros y no simbolos y letras, tengo esta idea pero no me funciona:
Me pueden dar una mano? Gracias....
1
2
3
4
5
6
Private Sub a_d_cedis_Exit(Cancel As Integer)
If Trim(Nz(Me.a_d_cedis, "")) = "" Then
MsgBox "El campo Asistencia-Diurna-CEDIS no puede estar en blanco", vbInformation, "Aviso"
Cancel = TrueEnd If
End Sub
esto funciona,
pero ahora quiero que valide que solo sean numeros y no simbolos y letras, tengo esta idea pero no me funciona:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
If (KeyAscii >= 97) And (KeyAscii < 122) Or (KeyAscii >= 65) And (KeyAscii < 90) Then
MsgBox "Debe ingresar solo numeros", vbInformation
KeyAscii = 8End If
If (KeyAscii >= 33) And (KeyAscii <= 47) Or (KeyAscii >= 58) And (KeyAscii <= 100) Or _
(KeyAscii >= 91) And (KeyAscii <= 96) Or (KeyAscii >= 123) And (KeyAscii <= 126) Then
MsgBox "No puede ingresar Simbolos", vbInformation
KeyAscii = 8End If
If Len( a_d_cedis) >= 5 Then
KeyAscii = 0MsgBox "No puede ingresar mas de 4 numeros", vbInformation
a_d_cedis = ""
End If
Me pueden dar una mano? Gracias....
Valora esta pregunta
0
