aviso automatico

AVISO AUTOMÁTICO AL ABRIR UN FORMULARIO1
Cuántas veces no hemos pensado: “estaría bien que al abrir
este formulario de Access me saltara un aviso para decirme
que hay “gestiones” con fechalímite para hacerse y que
están a punto de vencer”.
En este ejemplo vamos a ver cómo podemos conseguir que
Access nos lance un recordatorio para evitarnos “sustos” de
última hora. El ejemplo sedesarrollará sobre el supuesto de
que tenemos una tabla que nos recoge información sobre
contratos, los cuales tienen una fecha de vencimiento.
Access nos avisará a partir de una semana antes de lafecha límite si el contrato no se ha revisado.
Aprovecharemos también para, además del aviso, añadir un elemento de decisión por parte del
usuario, donde se solicitará si quiere ver un informe conla lista de contratos pendientes.
Manos a la obra:
1.- Creamos una tabla, a la que llamaremos TContratos, con los siguientes campos:
· NumContrato: autonumérico
· NombreCli: texto -> Recogerá elnombre del cliente
· FInicio: fecha/hora -> Recogerá la fecha de inicio del contrato
· FFin: fecha/hora -> Recogerá la fecha de fin del contrato
· Revisado: sí/no -> Recogerá si se ha revisado ono. Comprobamos que su valor
predeterminado sea 0 (0 = falso)
2.- Creamos una consulta basada en la tabla anterior y la guardamos como CContratosPdtes.
Añadimos todos los campos de TContratos algrid de la consulta. Para los siguientes campos
escribimos lo siguiente en la línea de criterios:
· [FFin]: >=Fecha() Y Emergente le decimos que “Sí”
4.- Creamos un formulario en blanco, queguardaremos con el nombre de FMenu.
5.-Sacamos las propiedades de FMenu, nos vamos a la pestaña Eventos y en el evento “Al
abrir” le asignamos el siguiente código:
--Private Sub Form_Open(Cancel AsInteger)
On Error GoTo sol_err
Dim rst As Recordset
Dim vFecha As Date
Dim vAhora As Date
Dim vRevisado As Boolean
1

La BD de ejemplo os la podéis bajar aquí.

1

Visítame en...