Validar Cuadro de Texto
Hola expertos: en un cuadro de texto ingreso hasta 12 dígitos (letras y/o números) quisiera por favor que antes de actualizar se verificar cuantos dígitos ingrese y si son 9, me avise que faltan 3 de lo contrario no se grabe y si me excedí igual.
De antemano muchas gracias
De antemano muchas gracias
1 Respuesta
Respuesta de Julián González Cabarcos
1
Supongamos que el cuadro de texto se llama Cliente. En sus propiedades-eventos-Antes de actualizar crea un procedimiento de evento y entre Private Sub y End Sub escribe
Dim a As Integer
a = 12 - Len([cliente])
If a > 0 Then
MsgBox "Quedan " & a
DoCmd. CancelEvent
Elseif a<0 then
Msgbox"Te has pasado en " & a
Docmd. Cancelevent
End If
Así, cuando escribas algo y pulses Enter te aparecerá un mensaje con los dígitos que te quedan o te hayas pasado y no te deja pasar. Si lo que has escrito tiene los 12 justos si te deja.
Dim a As Integer
a = 12 - Len([cliente])
If a > 0 Then
MsgBox "Quedan " & a
DoCmd. CancelEvent
Elseif a<0 then
Msgbox"Te has pasado en " & a
Docmd. Cancelevent
End If
Así, cuando escribas algo y pulses Enter te aparecerá un mensaje con los dígitos que te quedan o te hayas pasado y no te deja pasar. Si lo que has escrito tiene los 12 justos si te deja.
