Ayuda ejercicios unidad 14: Las macros (II)

Ejercicio 2: Clínica

Apartado 2 : Crea una macro que se ejecute cada vez que abras la base de datos.

1. Crea una nueva macro en la pestaña Crear > opción Macro.
2. Guardala desde la pestaña Archivo > Guardar o CTRL+G.
3. Dale el nombre de AutoExec para que se ejecute cada vez que abras la base de datos. No la cierres.

 

Apartado 3: La macro deberá ver si existen pacientes sin ingreso. En caso afirmativo deberá ejecutar las consultas Crear Pacientes no Ingresados y Eliminar no ingresados que creamos en unidades anteriores para que se guarden estos pacientes en la tabla Pacientes no ingresados y se eliminen de la tabla Pacientes. Si se ejecutan la consultas, es decir, si existen pacientes sin ingreso, deberás mostrar un mensaje al usuario indicándolo.

Para conseguir el objetivo de este apartado antes deberemos crear una consulta que utilizaremos para ver si existen o no pacientes sin número de ingreso.

1. Haz clic en el botón Diseño de Consulta de la pestaña Crear.
2. Selecciona la tabla Ingresos y pulsa Agregar.
3. Selecciona la tabla Pacientes y pulsa Agregar.
4. Haz clic en el botón Cerrar para empezara generar la consulta.
5. Ahora haz doble clic sobre la línea de relación existente entre las dos tablas para acceder a sus propiedades.
6. Selecciona la opción Incluir TODOS los registros de 'Pacientes' y sólo aquellos registros de 'Ingresos' donde los campos combinados sean iguales y pulsa Aceptar.
7. Haz doble clic sobre Código Paciente de la tabla Pacientes para añadirlo la consulta.
8. Haz doble clic sobre Nºingreso de la tabla Ingresos para añadirla a la consulta.
9. En Nºingreso escribe Es Nulo en la fila Criterios:.
10. Desactiva la casilla Mostrar: para el campo Nºingresos.
    El resultado será un listado de números de Códigos de Paciente que no tienen ingresos.
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.