Ejercicio paso a paso. Macros con Condiciones Avanzadas


Objetivo.

 

Practicar la creación de Macros con Condiciones Avanzadas.

 

Abrir la base de datos Clases.accdb que se encuentra en la carpeta Mis ejercicios.

Vamos a partir de la macro creada en el anterior ejercicio de esta unidad para después cambiarlo desde la ventana Diseño de Macros.

1 Abre la macro Cambiar2 en Vista de Diseño.

2 Despliega el Botón de Office , y elige la opción Guardar como.

3 Escribe Cambiar3.

4 Haz clic en el botón Aceptar.

Ahora vamos modificar un poco la macro.

Vamos a hacer más estricta la condición, además de que el campo Nombre Curso sea Internet también exigiremos que el nºhoras sea menor que 30.

Además haremos que cuando la condición no se cumpla se muestre un cuadro de mensaje avisándolo.

Cuando se cumpla la condición también aumentaremos el nºhoras en 5, avisaremos con otro cuadro de mensaje y saldremos.

5 Selecciona la acción BuscarRegistro.

6 En Argumentos de Acción cambia el valor de la opción Buscar a Internet.

7 Haz clic sobre la línea de línea de Cerrar y pulsaremos 4 veces el botón de Insertar fila para insertar 4 nuevas filas en blanco.

8 Haz clic sobre la última línea de Eco y pulsaremos 1 vez el botón de Insertar fila para insertar 1 nueva fila en blanco.

Ya tenemos los espacios preparados, ahora hagamos los cambios

9 Modificaremos la Condición que dice [Formularios]![Cursos tabular]![Nombre Curso]="Papiroflexia" para que pueda leerse [Formularios]![Cursos tabular]![Nombre Curso]="Internet" Y [Formularios]![Cursos tabular]![Nºhoras]<30.

10 En la columna Condición de las cuatro siguientes filas (que están en blanco) escribiremos puntos suspensivos (...) para que estas acciones se realicen si la condición se cumple.

En el caso de que la condición no se cumpliese, se saltaría todas estas acciones y pasaría directamente a la acción de Cerrar.

Ahora seguiremos con las acciones que se realizarán si se cumple la condición. Como el cambio del campo Nombre Curso se realizará vamos con el nºhoras.

11 En la primera línea en blanco seleccionaremos la Acción EstablecerValor.

12 En Argumentos de acción escribiremos [Formularios]![Cursos tabular]![Nºhoras] en Elemento.

13 Escribe [Formularios]![Cursos tabular]![Nºhoras] + 5 en el campo Expresión para aumentar en el nºhoras.

Como ya no necesitamos más el formulario lo cerramos.

14 En la siguiente línea en blanco selecciona la Acción Cerrar.

15 En los Argumentos de acción selecciona Formulario en la opción Tipo de objeto.

16 Selecciona Cursos tabular en el desplegable Nombre del objeto.

17 Seleciona en la opción Guardar para guardar los cambios al cerrar.

Seguiremos mostrando un cuadro de mensaje avisando del cambio.

18 En la siguiente línea en blanco selecciona en la columna Acción CuadroMsj.

19 En el argumento Mensaje escribe Los campos 'Nombre Curso' y 'nºhoras' se han actualizado correctamente..

20 Cambia la opción Bip a No.

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

22 En la opción Título escribe Actualización Realizada.

Y ya habremos terminado, por lo que ahora deberemos parar la Macro para que no siga ejecutándose.

23 En la siguiente línea en blanco selecciona la Acción DetenerMacro.

Hemos terminado con todas las acciones que se realizarán si la condición resulta verdadera, ahora pasaremos a configurar lo que debe hacer la Macro si esta no se cumple.

24 Selecciona la siguiente Acción Cerrar.

Cambiaremos sus argumentos, pues no necesitamos que aquí se guarde el formulario, porque no se habrá realizado ningún cambio.

25 En los Argumentos de acción cambia el valor de la opción Guardar a No.

Y finalmente añadiremos un cuadro de mensaje para avisar de que no se han realizado cambios en el Formulario.

26 Selecciona la última línea que nos queda en blanco y elige la opción CuadroMsj en Acción.

27 En los Argumentos de acción escribe en el campo Mensaje No se ha modificado ningún campo.@Ningún registro cumplía los criterios establecidos.@.

28 Cambia la opción Bip a No.

29 Cambia la opción Tipo a Crítico.

30 En la opción Título escribe Error.

Hemos acabado, después de la condición, si es falsa, la macro cerrará el formulario sin guardarlo y avisará al usuario.

 

Aquí tienes una imagen de cómo debería quedar la Macro después de estos cambios:

 

31 Guarda la Macro y ejecútala sólo una vez.

Aparece el mensaje de error indicando que no se han producido cambios.

32 Abre la tabla Cursos para comprobar y cambia el nombre del curso Diseño web, que pusimos en ejercicios anteriores, y vuelve a poner Internet. Fíjate en las horas del curso.

33. Cierra la tabla y vuelve a ejecutar la Macro.

Aunque ha encontrado el curso de Internet, aparece el mensaje de error, porque no tiene menos de 30 horas.

Ahora, vamos a modifcar la Macro para que lo cambie si el número de horas es menor a 400.

34. Modifica la condición de la primera acción EstablecerValor, y escribe [Formularios]![Cursos tabular]![Nombre Curso]="Internet" Y [Formularios]![Cursos tabular]![Nºhoras]<400

35. Cierra la tabla y vuelve a ejecutar la Macro.

36 Si abre la tabla Cursos, comprobarás que ahora tenemos el curso de Diseño Web y que tiene 5 horas más de las que tenía el de Internet.

37 Cierra la Macro.

 




Julio-2007
Epp. 14.3
Volver



Página inicial  Cursos Informática Gratuitos

Síguenos en:   Facebook       Sobre aulaClic            Política de Cookies


© aulaClic. Todos los derechos reservados. Prohibida la reproducción por cualquier medio.