Validar TextBoxes
Buen día.
Tengo un form con varias cajas texbox
Tengo botones de comando para incluir, grabar, editar, etc.
Luego de haber puesto los datos en los textbox y cuando pido grabar los datos pulsando el commandbuton correspondiente, puse un procedimiento sub que consiste en los siguiente
Private Sub DatosOk ()
if Len(Trim(Me.TxtDato01.text)) = 0 then
MsgBox "Falta Dato 1"
TxtDato01.SetFocus
EndIf
if Len(Trim(Me.TxtDato02.text)) = 0 then
MsgBox "Falta Dato 2"
TxtDato02.SetFocus
EndIf
Y así, sucesivamente 4 o 5 veces más
End Sub
El caso es que no logro que se pare en el SetFocus correspondiente al dato faltante. Muestra el MsgBox pero no se queda en el textbox esperando que lo digite.
Cree que puede ayudarme, ¿por favor?
Así haya que reescribirlo todo de nuevo, espero su apreciada respuesta
Saludos y gracias desde Venezuela
Tengo un form con varias cajas texbox
Tengo botones de comando para incluir, grabar, editar, etc.
Luego de haber puesto los datos en los textbox y cuando pido grabar los datos pulsando el commandbuton correspondiente, puse un procedimiento sub que consiste en los siguiente
Private Sub DatosOk ()
if Len(Trim(Me.TxtDato01.text)) = 0 then
MsgBox "Falta Dato 1"
TxtDato01.SetFocus
EndIf
if Len(Trim(Me.TxtDato02.text)) = 0 then
MsgBox "Falta Dato 2"
TxtDato02.SetFocus
EndIf
Y así, sucesivamente 4 o 5 veces más
End Sub
El caso es que no logro que se pare en el SetFocus correspondiente al dato faltante. Muestra el MsgBox pero no se queda en el textbox esperando que lo digite.
Cree que puede ayudarme, ¿por favor?
Así haya que reescribirlo todo de nuevo, espero su apreciada respuesta
Saludos y gracias desde Venezuela
