Discussion :

[fisio]

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

[Jean-Philippe André]

Salut,

tes champs JH_1 et JH_2 sont-ils des dates ou bien du texte ?

[fisio]

Il s'agit bien évidemment de dates au format : Date, abrégé

Aussi pour uniquement ce test suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Fix(JH_1) < '" & Lundi.Value & "'

et un enregistrement suivant :

JH_1 : 24/11/2010

Les jours 25,26,27,28,29,30 et 31 de tous les mois sont retenus !!!

[Jean-Philippe André]

ok, et utiliser la clause between a la place ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

And Fix(JH_1) < '" & Lundi.Value & "' And Fix(JH_2) > '" & Lundi.Value & "'

devenant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

and '" & Lundi.Value & "' BETWEEN Fix(JH_1) And Fix(JH_2)

en sachant que l'utilisation de quote avec la fonction Fix me parait moyennement judicieux.

[fisio]

Non mêmes symptômes

[Jean-Philippe André]

Ok,

peux tu dans ce cas la, virer la partie Fix de ta requete, elle n'a de mon point de vue aucune plus value a etre utilisee pour ce critere.

Remplace aussi les quotes par une syntaxe de date standard #MM/DD/YYYY#