Access 2010 critere "jour" dans requête

[anthonydu62]

Bonjour à toutes et tous.
Je cherche un moyen pour faire DES "Critères" dans une requete.
La condition c'est si on arrive après 13h30 on va au jour suivant mais...
J'en est trouvé certaines.
Celle que j'ai trouvé:

Si jour =
- Lundi avant 13h30, prendre date en court
- Lundi après 13h30, prendre date + 1 jour
.... Idem pour tous les jours de la semaine.
J'ai donc utilisé ceci:

VraiFaux((Maintenant())>=CDbl(Date())+0,5625;Date()+1;Date())

Maintenant là je trouve pas... (car je ne veux pas voir les "données" du samedi et du dimanche. Passer directement au Lundi suivant)
si jour =
-Vendredi après 13h30, prendre date en court +3 (pour arrivé au lundi suivant)
-Samedi , prendre date en court + 2 (pour arrivé au lundi suivant)
-Dimanche, prendre date en court + 1 (pour arrivé au lundi suivant)

Et je ne vois pas comment faire.
Pouvez vous m'aider?
Merci d'avance
-----

[umfred]

imbriqué un test qui regarde si date()+1 est un samedi ou un dimanche
quelque chose comme ça (j'ai volontairement décomposé sur plusieurs lignes en ajoutant des commentaires pour essayer de rendre plus lisible le code, il faudra supprimer ceux-ci pour tester)

VraiFaux((Maintenant())>=CDbl(Date())+0,5625;                        ' si heure >= 13h30
              VraiFaux(DatePart('w',Date()+1)=vbSaturday;               'si jour+1 est un samedi
                            Date()+3;                                                     ' alors on retourne jour+3
                            VraiFaux(DatePart('w',Date()+1)=vbSunday;   'si jour+1 n'est pas un samedi, mais un dimanche
                                          Date()+2;                                       ' alors on retourne jour+2
                                          Date()+1)                                       'si jour+1 n'est ni un samedi, ni un dimanche, on retourne jour+1
                            )
               ;Date())                                                                     ' si avant 13h30

[anthonydu62]

imbriqué un test qui regarde si date()+1 est un samedi ou un dimanche
quelque chose comme ça (j'ai volontairement décomposé sur plusieurs lignes en ajoutant des commentaires pour essayer de rendre plus lisible le code, il faudra supprimer ceux-ci pour tester)

VraiFaux((Maintenant())>=CDbl(Date())+0,5625;                        ' si heure >= 13h30
              VraiFaux(DatePart('w',Date()+1)=vbSaturday;               'si jour+1 est un samedi
                            Date()+3;                                                     ' alors on retourne jour+3
                            VraiFaux(DatePart('w',Date()+1)=vbSunday;   'si jour+1 n'est pas un samedi, mais un dimanche
                                          Date()+2;                                       ' alors on retourne jour+2
                                          Date()+1)                                       'si jour+1 n'est ni un samedi, ni un dimanche, on retourne jour+1
                            )
               ;Date())                                                                     ' si avant 13h30

Ca ne fonctionne pas par contre j'ai trouvé ceci

VraiFaux((JourSem(Date();2)<=5) Et Format(Temps();"Heure, abrégé")<="13:30";Date();VraiFaux((JourSem(Date();2)<5);Date()+1;Date()+8-JourSem(Date();2)))

Et cela fonctionne nickel