Alerta de data

Alguem me pode disponibilizar um exemplo de alerta diário com 30 dias de antecedencia sobre uma data até á data do evento. Gosta que o alerta aparecesse todos os dias até á data do evento a não ser que desse o evento como concluido.

encontrei um topico aqui mas não consigo ver os exemplos

http://maximoaccess.forumeiros.com/t324-resolvidolembrete-com-dias-de-antecedencia

up

Ok tentei assim:

Código:

Private Sub Form_Load()
Dim DATCOMPRA As Date
If Me.[DATCOMPRA] < Date - 30 Then
    MsgBox "Sua mensagem", vbInformation, "Atenção"
End If
End Sub

Não resolveu só funciona se existir apenas um registo

Tendo vários registos já não funciona

na msgBox gostava ainda que aparecesse o nome da viatura tipo "Veículo L-200 faltam 30 dias para revisão"

Help!!!

Após varias tentativas consegui assi:

Código:

Private Sub Form_Open(Cancel As Integer)
Dim Aviso As Date
Aviso = Date - 30
If Me.Datamatricula < Aviso Then
MsgBox "Existe uma viatura para revisão"
Else
End If
End Sub

Agora gostava que a mensagem me dissesse qual a viatura e me levasse para o registo da mesma.