Jeux des dates [Résolu]

[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 :

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 :

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

[jpcheck]

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 :

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 !!!

[jpcheck]

ok, et utiliser la clause between a la place ?

Code :

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

devenant

Code :

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

[jpcheck]

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#

[fisio]

Voici la nouvelle syntaxe :

Code :

OR (Validation LIKE '" & 1 & "' And '" & Lundi.Value & "' BETWEEN JH_1 And JH_2);"

Erreur 3464 : type de données incompatible dans l'expression des critères.

Aussi pouvez-vous être plus clair sur les quotes et formats de dates.

Merci

[fisio]

Je reste sur le même problème avec cette formule :

Code :

TEST = "Select HP, Société, Contact, Type_2, Type_1 FROM " & SourceTable & " WHERE Validation = '1' And '" & Fix(Lundi.Value) & "' BETWEEN Fix(JH_1) AND Fix(JH_2) ;"

Le fait de retirer le Fix() procure l'Erreur 3464 : type de données incompatible dans l'expression des critères, et la syntaxe " & Lundi.value & " BETWEEN JH1 AND JH2 ne fonctionne pas

Une requête SQL réalisé sous un autre formulaire fonctionne sur les mêmes champ de la même table.

Code :

strSql = "Select DISTINCTROW " & " Jour_1, HP, Lieu, Contact, Société, " & SourceTable & ".* FROM " & SourceTable & " WHERE ((Validation = '" & 1 & "' And Jh_1 >= Jh_1.Value And Jh_2 <= Jh_2.Value)

Seulement comment attribuer les résultats : HP, Société, Contact, Type_2, Type_1 à des valeurs comme A, B, C, D et E

Merci

[jpcheck]

Salut,
et en passant par

Code :

TEST = "Select HP, Société, Contact, Type_2, Type_1 FROM " & SourceTable & " WHERE Validation = '1' And #" & Fix(Lundi.Value) & "# BETWEEN JH_1 AND JH_2 ;"

[fisio]

Oui pouvez-vous m'expliquer le rôle des symboles #

Seulement j'ai un exemple sous le coude pour lequel le code ne fonctionne pas :

date de début 03/01/2011
date de fin 06/05/2011

pour les lundi 7 février et 11 avril 2011 le code ne fonctionne pas !!

Merci

[jpcheck]

Les dates sous Access sont lues au format MM/JJ/AAAA en plus des # avant et apres.

Deux approches donc :
- soit tu inseres les dates directement dans ce format la;
- soit tu manipules les entrees de telle sorte a fournir la date au format Access

edit : voir les infos de la a ce sujet :
http://access.developpez.com/faq/?page=dates#DateFormat

[fisio]

Voici la meilleur réponse après quelques heures de recherche :

Code :

WHERE Validation = '1' And datevalue('" & Fix(Lundi.Value) & "') BETWEEN Fix(JH_1) AND Fix(JH_2) ;"

Merci pour ton aide précieuse, cela va dans le meilleur des sens.