"If IsNull(forms![nombre_formulario]![nombre_campo1]) Then" para evaluar todos los campos a la vez
No he encontrado nada en ningún sitio por eso busco ayuda.
Me piden evaluar de una manera sencilla si, en un formulario, se pueden remarcar de alguna manera los campos que están vacíos. Para los campos obligatorios ya controlo la obligatoriedad de respuesta, así que esto es para el resto, ya que son formularios muy largos, y quieren ver a simple vista si se han dejado algún campo, etc.
Así que se me ocurrió un botón en el formulario con lo siguiente:
Dim lngRojo As Long
lngRojo = RGB(255, 0, 0)
If IsNull(Forms![1_Datos_unidad_ejecutora]![Tipo]) Then
[Tipo].BorderColor = lngRojo
[Tipo].BorderWidth = 3
DoCmd.RunCommand acCmdRefreshPage
End If
Ahora bien, la base de datos está compuesta de muchos formularios, y cada uno con muchos registros, lo que me hace imposible escribirlos todo uno a uno.
Quisiera saber si hay alguna opción para evaluar si todos los campos de un formulario son nulos o no con una sola instrucción, y no uno a uno.
Algo como:
If IsNull(Forms![1_Datos_unidad_ejecutora]!["ALGUNO DE LOS CAMPOS DEL FORMULARIO"]) Then ...
Para evitar esto:
If IsNull(Forms![1_Datos_unidad_ejecutora]![Tipo]) Then...
If IsNull(Forms![1_Datos_unidad_ejecutora]![Provincia]) Then...
If IsNull(Forms![1_Datos_unidad_ejecutora]![Distrito]) Then...
...