Hoy vamos a aprender cómo comprobar que se ha rellenado un campo obligatorio de nuestro formulario Access usando VBA.
Este tipo de comprobaciones es importante realizarlas antes de exportar a una tabla los datos introducidos en un formulario. Los motivos pueden ser diversos.
Puede que no queramos guardar el registro de un cliente sin haber introducido su dirección o puede que la tabla tenga campos claves sin los cuales no almacenarán los registros que enviemos si no están rellenos.
Con el código que vamos a ver, el programa nos avisará si alguno de esos campos que consideramos importantes no están rellenos.
En el archivo que adjunto a modo de ejemplo, tenemos un formulario para introducir datos personales.
Supongamos que en nuestro caso, los campos obligatorios son "Nombre" y "Apellidos". Por lo tanto, al pulsar el botón Enviar, comprobaremos si están rellenos antes de hacer nada.
El código en VBA que controlará si los campos obligatorios han sido cumplimentados irá escrito sobre el evento "Al hacer clic" del botón Enviar.
Private Sub Enviar_Click()
'Comprobamos que se encuentran rellenos los campos obligatorios
If IsEmpty(Form!Nombre) Or IsNull(Form!Nombre) Then
MsgBox "Rellenar el campo Nombre"
GoTo error
End If
If IsEmpty(Form!Apellidos) Or IsNull(Form!Apellidos) Then
MsgBox "Rellenar el campo Apellidos"
GoTo error
End If
MsgBox "Enviado con éxito"
error:
End Sub
En caso de no haber rellenado alguno de los dos campos, el programa nos avisará a través de un cuadro de texto. Si, por el contrario, todo está bien, nos salgrá un mensaje diciéndonos que el envío se ha realizado exitosamente.
Aquí os dejo un enlace donde explico el funcionamiento de la función msgbox.
Espero que con este ejemplo hayas aprendido a comprobar si ha sido rellenado un campo obligatorio usando VBA.
Por último, quiero invitarte a compartir tus dudas en los comentarios o en el foro. Intentaré ayudarte en todo lo que pueda, y así aprenderemos todos.
Un saludo y hasta la próxima.
Si te ha servido y quieres donar
Descarga el archivo del ejemplo
Últimas publicaciones
0 comentarios