Ayuda Ejercicios Unidad 14. Las Macros

Ejercicio 1: Concesionario

1 Posiciónate en la ficha Macros de la ventana de la Base de datos y haz clic sobre el botón Nuevo para crear una nueva Macro.

2 Guarda la Macro desde Archivo → Guardar

3 Dale el nombre de SubirPrecio.

Primero desactivaremos el Eco de pantalla para que no se vean las acciones de la Macro.

4 En la primera fila selecciona Eco en la columna Acción.

5 Nos dirijimos a la parte inferior donde encontramos los Argumentos de la acción. Allí seleccionamos No en Eco activo.

6 Escribe Realizando cambios... en Texto de la barra de estado.

Ahora abriremos el formulario donde haremos los cambios.

7 En la siguiente fila selecciona en la columna Acción la acción AbrirFormulario.

8 En los Argumentos de acción seleccionamos Mantenimiento Coches vendidos en Nombre del formulario.

9 Modificaremos la opción Condición WHERE para que pueda leerse Negado EsNulo([Extras instalados]) para que se cargue el formulario filtrando los registros cuyo campo Extras instalados no sea nulo.

10 Cambia la opción Vista a Formulario.

11 Cambia la opción Modo de datos a Modificar.

12 Cambia la opción Modo de la ventana a Normal.

13 En la siguiente línea selecciona la Acción EjecutarMacro.

14 En los Argumentos de acción escribe SubirPrecio.repite en la opción Nombre de macro.

15 En expresión de repetición escribe Negado EsNulo([Formularios]![Mantenimiento Coches vendidos]![Matricula]) para que se repita la Macro repite para todos los coches en el formulario (todos tendrán número de matrícula).

Ahora nos desplazaremos unas cuantas líneas para colocar el bucle.

16 Baja unas 5 o 6 líneas y en Acción selecciona EstablecerValor.

17 En los Argumentos de Acción escribe [Formularios]![Mantenimiento Coches vendidos]![Precio] en Elemento para modificar el Precio del coche.

18 En Expresión escribe [Formularios]![Mantenimiento Coches vendidos]![Precio]+500000 para aumentar su Precio en 500000.

19 En la siguiente línea selecciona la Acción IrARegistro.

20 En Argumentos de acción selecciona Formulario en Tipo de objeto.

21 En Nombre del objeto selecciona Mantenimiento Coches vendidos.

22 En la opción Registro selecciona Siguiente.

Ya hemos terminado con el bucle. Modificará el campo Precio y luego pasará al siguiente hasta que no quede ninguno.

Ahora volveremos de nuevo a la línea que dejamos después de EjecutarMacro.

23 En la línea debajo de EjecutarMacro selecciona la acción Cerrar para cerrar el formulario.

24 En los argumentos de acción selecciona Formulario en Tipo de objeto.

25 En Nombre del objeto selecciona Mantenimiento Coches vendidos.

26 Selecciona Sí en la opción Guardar para que se cierre el formulario guardando los cambios.

27 En la siguiente fila selecciona la Acción CuadroMsj.

28 En los argumentos de acción escribe Se han aumentado los precios de los coches con extras. en la opción Mensaje.

29 Cambia la opción Bip a No.

30 Cambia la opción Tipo a Información.

31 En la opción Título escribe Actualización realizada.

Finalmente detendremos la Macro para que no siga ejecutándose.

32 En la siguiente fila añade la acción DetenerMacro.

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

33 Cierra la Macro guardando los cambios.

Ejercicio 2: Clínica

Apartado 2 :

1 Posiciónate en la ficha Macros de la ventana de la Base de datos y haz clic sobre el botón Nuevo para crear una nueva Macro.

2 Guarda la Macro desde Archivo → Guardar

3 Dale el nombre de AutoExec para que se ejecute cada vez que abras la base de datos.

Apartado 3:

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 Posiciónate en la ficha Consultas de la ventana Base de datos de la base de datos Clinica.

2 Haz clic en Crear una consulta en vista Diseño para crear una nueva consulta.

3 Selecciona la tabla Ingresos y pulsa Agregar.

4 Selecciona la tabla Pacientes y pulsa Agregar.

5 Haz clic en el botón Cerrar para empezara generar la consulta.

6 Ahora haz doble clic sobre la línea de relación existente entre las dos tablas para acceder a sus propiedades.

7 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.

8 Haz doble clic sobre Código Paciente para añadirlo la consulta.

9 Haz doble clic sobre Nºingreso para añadirla a la consulta.

10 En Nºingreso escribe Es Nulo en la fila Criterios:.

11 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.

12 Guarda la consulta como Pacientes sin Ingreso y cierrala.

Ahora crearemos la Macro que necesitamos.

13 Ves a la pestaña de Macros en la ventana de la base de datos y haz clic sobre ella.

14 Selecciona la Macro AutoExec que creamos en el apartado anterior y haz clic en Diseño para poder modificarla.

15 Activaremos la opción de Condiciones haciendo clic en el botón Condiciones en la barra de Diseño de Macros.

16 En la primera fila escribiremos en la columna Condición lo siguiente: 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.

17 En la primera fila seleccionaremos la acción AbrirConsulta.

18 En los argumentos de la acción seleccionaremos Crear Pacientes no ingresados en Nombre de la consulta.

19 En la siguiente línea selecciona de nuevo otra acción AbrirConsulta.

20 En los argumentos de la acción seleccionaremos Eliminar no ingresados en Nombre de la consulta.

21 Finalmente seleccionaremos la acción CuadroMsj en la última fila.

22 En argumentos de la acción escribe @Existen pacientes sin ingreso@Se han transladado a la tabla 'Pacientes no ingresados'@ en la opción Mensaje.

23 Cambia la opción Bip a No.

24 Cambia la opción Tipo a Aviso: !.

25 Escribe Pacientes sin Ingreso en la opción Título.

26 Ahora viene la parte más importante, deberás añadir puntos suspensivos en la columna de Condición para todas las acciones que hemos escrito, de esta forma sólo se ejecutarán si se cumple la condición que escribimos en la primera línea para la primera acción.

Una vez lo tengas habrás acabado.

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

27 Cierra la Macro guardando los cambios.