Fechas

[madritel]

Buenos días;

Tengo el siguiente problema, en una tabla principal con unos registros tengo
entre otros un registro de fechas, llamado "FECHA" y en otro tengo
"ANTIGUEDAD" tambien con formato fecha.

Mi proposito era establecer una alarma titulada "PERIODO DE PRUEBA", he
generado la correspondiente macro (Msgbox) con la pretendo que lanzar un
mensaje advirtiendo que hay agentes en periodo de prueba y hay que evaluar.
Quizas mas adelante intente realizar una macro que me de el listado de
agentes en período de evaluación.


Private Sub P_P_Click()
Dim Primerafecha As Date
Dim Segundafecha As Date
Primerafecha = HISTORICO_DE_PERSONAL.[ANTIGUEDAD]
Segundafecha = DateAdd("d", 15, Primerafecha)

If FECHA = Segundafecha Then ADVERTENCIA
End

He implementado el siguiente código pero no funciona, he probado también a
escribir el comando SELECT pero me da error...

Si me pudierais hechar una mano, os estaría agradecido.

Un saludo.
jesus