Tu peux faire des comparaisons de date avec les opérateurs normaux style inférieur à :
Dim AujourdHui As Date = Now()
If Me![DateDepart] < AujourdHui And Me![DateRetour] > AujourdHui Then
Me![Pouet] = 1
End Id |
A vérifier pour le Now(), je sais plus si c'est ça la fonction pour donner la date courante...