Bonjour,

Voici mon dernier soucis :

Je dispose d'un planning dont les dates de 5 jours de la semaine sont enregistrés dans les champs d'un formulaire.

Un test permet de vérifier pour chaque semaine si un rendez-vous est pris. Ces rendez-vous peuvent être d'une journée ou alors de plusieurs journée d'où le code suivant :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
TST = "Select HP, Société, Contact, Type_2, Type_1 From " & SourceTable & " WHERE Validation LIKE '" & 1 & "' And Fix(JH_1) = '" & Lundi.Value & "' And Fix(JH_2) = '" & Lundi.Value & "' And Heure_Début <= '908' And Heure_Fin >= '908' 
 
OR (Validation LIKE '" & 1 & "' And Fix(JH_1) = '" & Lundi.Value & "' And Fix(JH_2) <> '" & Lundi.Value & "'And Heure_Début <= '908')
 
OR (Validation LIKE '" & 1 & "' And Fix(JH_1) <> '" & Lundi.Value & "' And Fix(JH_2) = '" & Lundi.Value & "'And Heure_Fin >= '908') 
 
OR (Validation LIKE '" & 1 & "' And Fix(JH_1) < '" & Lundi.Value & "' And Fix(JH_2) > '" & Lundi.Value & "');"
Set rec = CurrentDb.OpenRecordset(TST)
Ainsi le problème se localise au niveau du dernier test :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
And Fix(JH_1) < '" & Lundi.Value & "' And Fix(JH_2) > '" & Lundi.Value & "'
Ainsi si les dates sont les suivantes :

JH_1 : 15/02/2010
JH_2 : 18/02/2010

Alors suivant ce dernier test les jours suivants sont retenues :

- 16/02/2010, 17/02/2010

Mais aussi pour les dates suivantes :

- 16/01/2010, 17/01/2010
- 16/03/2010, 17/03/2010
- 16/04/2010, 17/04/2010
- 16/05/2010, 17/05/2010
....

Pour vous aidez à la réflexion les dates des jours de la semaine sont inscrits sous la syntaxe suivante :

si Now est un dimanche
alors Lundi.value = Fix(Now) + 1

Merci