soria4xse respondió:
En el momento de saber la fecha elegida (por ejemplo campo1_afterupdate) Haces: --- if dcount ("*","tabla","campo1=#" & format(me.campo1-1,"mm-dd-yy") & "#" then msgbox "fecha incorrecta" Me. Campo1. Undo Me. Campo1. Setfocus end if ---