Page 299 - Curso experto en Microsoft Acces 2013 - Alfredo Rico

11. Guarda la consulta como Pacientes sin Ingreso y ciérrala.

Ahora definiremos la macro que necesitamos. Para ello, nos situaremos en la
macro AutoExec que acabamos de crear.

12. Vamos a introducir una condición, de modo que deberás hacer doble clic en la opción Si del
panel Catálogo de acciones, en la sección Flujo de programas.

13. La Expresión condicional será DCont("*";"Pacientes sin Ingreso")>0. Esto evaluará si el
número de registros en la consulta Pacientes sin Ingreso es mayor que 0. En caso afirmativo
ejecutaremos las acciones que nos piden.

Todas las acciones que vamos a agregar a esta macro estarán dentro del panel condicional
llamado Si. Fíjate bien de agregarlas correctamente.

14. Agrega la acción AbrirConsulta. El argumento Nombre de consulta será Crear Pacientes
no ingresados.

15. Agrega otra acción a continuación, también del tipo AbrirConsulta. El argumento Nombre de
consulta será Eliminar no ingresados.

16. Por último, agrega la acción CuadroDeMensaje. Sus argumentos serán:
- En Mensaje el texto @Existen pacientes sin ingreso@Se han transladado a la tabla
'Pacientes no ingresados'@.
- La opción Bip a No.
- La opción Tipo a Aviso: !.
- El Título el texto Pacientes sin Ingreso.

Si has seguido bien los pasos tu macro debería parecerse a esta:

La estructura es sencilla: Si No hay ingresos Entonces Abrir las consultas y mostrar
mensaje Finalizar si.

Cierra base de datos, guardando los cambios en la macro.

Curso experto en Microsoft Access 2013 – Alfredo Rico – RicoSoft 2015 298