¿Como hacer que el ACCESS te avise al llegar a una fecha?? Ayuda!

[Piloto78]

Hola a todos!

A ver, el problema es que necesito poner una fecha límite para determinados procesos que se realizan en la base de datos en Access. Por ejemplo un proceso debe finalizarse 5 días después de haberlo abierto (fecha_inicio). Lo que necesito es que al llegar a ese quinto día, me salga un mensaje en pantalla (Estoy pensando en algo parecido a las citas del Outlook o algo así) que me diga simplemente: "Hoy es el ultimo día para terminar esta tarea".

Por favor alguien puede decirme si puede hacerse algo así?

Gracias de antemano.

[Taribo007]

Puedes usar una consulta, con la funcion dateadd puedes obtener una la fecha cin dias mas tarde, y luego depende de donde lo quieras hacer. Por ejemplo, al iniciar la aplicacion puedes comprobar si esta consulta devuelve algun registro, y en caso afirmativo mostrar el mensaje.

un saludo

[Piloto78]

Vale eso me parece bien. ¿Pero cómo muestro el mensaje?. Es decir, imaginemos que hago la consulta y la ejecuto al arrancar la aplicación (creo que no tengo problemas con eso) y resulta que hay dos tareas que terminan hoy. En ese caso, cómo saco los dos mensajes, uno por cada tarea??

Gracias por tu respuesta.

[Taribo007]

Mira, te voy a poner un ejemplo:

tabla Tareas: Campos: IdTarea;DesTarea;FechaTarea

Consulta:(esta consulta mostraria las tareas que se cumplen hoy)

SELECT IdTarea, DesTarea, DateAdd("d",5,[FechaTarea]) AS FechaMasCinco
FROM Tareas
WHERE DateAdd("d",5,[FechaTarea])=Date();

La guardamos y la llamamos ConsultaTareas

Ahora, en el evnto load del form de inicio, abrimos un recordset dela consulta, y si hay registros (tareas que cumplen hoy), lo recorremos y vamos concatenando las tareas en una variable que mostraremos en un mensaje:

Dim TareasCumplen As String
Dim rst As DAO.Recordset

Set rst = CurrentDb.OpenRecordset("ConsultaTareas")

If rst.RecordCount = 0 Then
MsgBox "Ninguna tarea cumple hoy", vbInformation, "ATENCION"
Else
TareasCumplen = "Hoy cumplen las siguientes tareas: " & vbCrLf
While Not rst.EOF
TareasCumplen = TareasCumplen & "-" & rst!destarea & vbCrLf
rst.MoveNext
Wend
MsgBox TareasCumplen, vbInformation, "ATENCION"
End If


un saludo