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

[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