Discussion :

[L_layton]

Bonjour,

J'ai des autorisation sous la forme :
DATE_DEBUT
DATE_FIN
etc

j'ai un formulaire ou je rentre
une date de début et une date de fin.

Je souhaiterais que la requête m'affiche toute les autorisations qui sont dans l'intervalle et celle dont la date de fin est dans l'intervalle mais pas la date de début.
Au début je voulais faire

Code :

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

WHERE (dbo_AUTORISATION_ACCES.DATE_DEBUT)<=Format([Formulaires]![Saisie 2 dates]![SecondeDateinvisible],"yyyy-mm-dd")) AND ((dbo_AUTORISATION_ACCES.DATE_FIN)<=Format([Formulaires]![Saisie 2 dates]![SecondeDateinvisible],"yyyy-mm-dd")

Voici un schémas

[tee_grandbois]

bonsoir,
cette fonction renvoie un booléen lorsque l'une et/ou l'autre des 2 premières dates passées en paramètre sont inclues dans l'intervalle de la 3ème et la 4ème date du paramètre:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
Function DatesIntersect( _
    ByVal dtDate1 As Date, _
    ByVal dtDate2 As Date, _
    ByVal dtFenetreDebut As Date, _
    ByVal dtFenetreFin As Date) _
    As Boolean
 
' INTERSECTION DE CRENEAUX DE DATES
' ---
' Entrée : dtDate1        <- Première date
'          dtDate2        <- Deuxième date (>= dtDate1)
'          dtFenetreDebut <- Départ du créneau temps
'          dtFenetreFin   <- Fin du créneau temps
' Sortie : True si les 2 créneaux se chevauchent.
'
 
    DatesIntersect = (dtDate2 >= dtFenetreDebut) And (dtDate1 <= dtFenetreFin)
End Function

à priori avec tes champs, cela doit donner ceci:

Code :

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

WHERE DatesIntersect(CVDate(dbo_AUTORISATION_ACCES.[DATE_DEBUT]),CVDate(dbo_AUTORISATION_ACCES.[DATE_FIN]),[Formulaires]![Saisie 2 dates]![PremiereDateinvisible],[Formulaires]![Saisie 2 dates]![SecondeDateinvisible])=True;

si PremiereDateinvisible exite car je ne l'ai pas vu dans le bout de code que tu as donné

[L_layton]

Où est-ce que je dois mettre la fonction pour pouvoir l’appeler plus tard en SQL ?

[tee_grandbois]

Ou est-ce que je dois mettre la fonction pour pouvoir l’appeler plus tard en SQL ?

dans un Module standard depuis l'onglet Créer du ruban et ensuite le bouton Module ou Visual Basic (mais surtout pas Module de classe)

[L_layton]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
Function DatesIntersect( _
    ByVal dtDate1 As Date, _
    ByVal dtDate2 As Date, _
    ByVal dtFenetreDebut As Date, _
    ByVal dtFenetreFin As Date) _
    As Boolean
 
' INTERSECTION DE CRENEAUX DE DATES
' ---
' Entrée : dtDate1        <- Première date
'          dtDate2        <- Deuxième date (>= dtDate1)
'          dtFenetreDebut <- Départ du créneau temps
'          dtFenetreFin   <- Fin du créneau temps
' Sortie : True si les 2 créneaux se chevauchent.
'
 
    DatesIntersect = (dtDate2 >= dtFenetreDebut) And (dtDate1 <= dtFenetreFin)
End Function

à priori avec tes champs, cela doit donner ceci:

Code :

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

WHERE DatesIntersect(CVDate(dbo_AUTORISATION_ACCES.[DATE_DEBUT]),CVDate(dbo_AUTORISATION_ACCES.[DATE_FIN]),[Formulaires]![Saisie 2 dates]![PremiereDateinvisible],[Formulaires]![Saisie 2 dates]![SecondeDateinvisible])=True;

si PremiereDateinvisible exite car je ne l'ai pas vu dans le bout de code que tu as donné[/QUOTE]

Merci beaucoup je testerais ça en tout cas.
Ps : à quoi sert le CVDate ?

[tee_grandbois]

Ps : à quoi sert le CVDate ?

d'après ton autre discussion, tu utilises une table liée avec des dates formatées (au format "yyyy-mm-dd") qu'Access voit comme des champs texte. CVDate() est une fonction qui convertit les dates formatées en un vrai champ de type date (uniquement pour l'affichage).
Le type date est en réalité un numérique double qui, pour être lisible par les humains, est affiché avec un format "compréhensible" car c'est plus facile de lire
"19/02/2020 22:02:00" plutôt que 43880,9180555556

[L_layton]

d'après ton autre discussion, tu utilises une table liée avec des dates formatées (au format "yyyy-mm-dd") qu'Access voit comme des champs texte. CVDate() est une fonction qui convertit les dates formatées en un vrai champ de type date (uniquement pour l'affichage).
Le type date est en réalité un numérique double qui, pour être lisible par les humains, est affiché avec un format "compréhensible" car c'est plus facile de lire
"19/02/2020 22:02:00" plutôt que 43880,9180555556

Quand j'exécute le code j'ai se message d'erreur
Cette expression présente une syntaxe incorrecte, ou est trop complexe pour être évaluée.
Ma requête dans sa globalité:

Code SQL :

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

1
2
3
SELECT Format(dbo_AUTORISATION_ACCES.DATE_DEBUT,"dd/mm/yyyy") AS DATE_DEBUT, Format(dbo_AUTORISATION_ACCES.DATE_FIN,"dd/mm/yyyy") AS DATE_FIN, dbo_PERSONNE.NOM_PERSONNE, dbo_PERSONNE.PRENOM_PERSONNE, dbo_SERVICE.LIBELLE_SERVICE, dbo_AUTORISATION_ACCES.CLE_AUTORISATION, dbo_AUTORISATION_ACCES.PARKING
FROM dbo_PERSONNE INNER JOIN (dbo_SERVICE INNER JOIN dbo_AUTORISATION_ACCES ON dbo_SERVICE.ID_SERVICE = dbo_AUTORISATION_ACCES.ID_SERVICE) ON dbo_PERSONNE.ID_PERSONNE = dbo_AUTORISATION_ACCES.ID_PERSONNE
WHERE DatesIntersect(CVDate(DATE_DEBUT),CVDate(DATE_FIN),CVDate([Formulaires]![Saisie 2 dates]![PremiereDateinvisible]),CVDate([Formulaires]![Saisie 2 dates]![SecondeDateinvisible]))=True;

En modifiant les deux dernier paramètre la fonction peut s’exécuter avec 2 dates au pifs ( pourtant je n'ai toujours aucun résultats même en mettant 02/01/2000 02/01/2100

Code SQL :

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

WHERE DatesIntersect(CVDate(DATE_DEBUT),CVDate(DATE_FIN),CVDate(28/11/1995),CVDate(28/11/1995))=True;

[hyperion13]

Salut
Ne serait-ce pas plus tôt

Code :

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

WHERE DatesIntersect(CVDate(DATE_DEBUT),CVDate(DATE_FIN),[Formulaires]![Saisie 2 dates]![PremiereDateinvisible],[Formulaires]![Saisie 2 dates]![SecondeDateinvisible])=True;

[tee_grandbois]

Salut hyperion13,

Salut
Ne serait-ce pas plus tôt

Code :

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

WHERE DatesIntersect(CVDate(DATE_DEBUT),CVDate(DATE_FIN),[Formulaires]![Saisie 2 dates]![PremiereDateinvisible],[Formulaires]![Saisie 2 dates]![SecondeDateinvisible])=True;

pile poil le code que j'ai posté précédemment

Quand j'exécute le code j'ai se message d'erreur
Cette expression présente une syntaxe incorrecte, ou est trop complexe pour être évaluée.

à priori, le problème se situerait ici:

Code :

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

SELECT Format(dbo_AUTORISATION_ACCES.DATE_DEBUT,"dd/mm/yyyy") AS DATE_DEBUT

cela crée une référence circulaire qu'Access ne peut pas évaluer.
Pour qu'un alias soit valide il faut lui donner un autre nom que celui du champ que l'on utilise.

Ici, à la place de CVDate, il faut mettre les fameux # (hash, croisillon ou dièse, je ne sais pas trop)

Code :

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

WHERE DatesIntersect(CVDate(DATE_DEBUT),CVDate(DATE_FIN),#28/11/1995#,#28/11/1995#)=True;

ou alors les " (guillemets, double-quotes ...) car avec des séparateurs, cela devient du texte (sauf si comme dans l'exemple précédent, cela correspond au séparateur système):

Code :

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

WHERE DatesIntersect(CVDate(DATE_DEBUT),CVDate(DATE_FIN),CVDate("28/11/1995"),CVDate("28/11/1995"))=True;

[hyperion13]

Salut tee_grandbois
Nous sommes bien d'accord
dbo_AUTORISATION_ACCES.DATE_DEBUT et dbo_AUTORISATION_ACCES.DATE_FIN sont au format yyyy-mm-dd.
Donc normalement, la requête devrait être comme tu l'avais indiqué de ce style là, en supposant que les textbox du form soient ou non formatées en date, abrégé et que les dates saisies sont au format date, abrégé.

Code SQL :

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

1
2
3
SELECT dbo_AUTORISATION_ACCES.DATE_DEBUT, dbo_AUTORISATION_ACCES.DATE_FIN, dbo_PERSONNE.NOM_PERSONNE, dbo_PERSONNE.PRENOM_PERSONNE, dbo_SERVICE.LIBELLE_SERVICE, dbo_AUTORISATION_ACCES.CLE_AUTORISATION, dbo_AUTORISATION_ACCES.PARKING
FROM dbo_PERSONNE INNER JOIN (dbo_SERVICE INNER JOIN dbo_AUTORISATION_ACCES ON dbo_SERVICE.ID_SERVICE = dbo_AUTORISATION_ACCES.ID_SERVICE) ON dbo_PERSONNE.ID_PERSONNE = dbo_AUTORISATION_ACCES.ID_PERSONNE
WHERE DatesIntersect(CVDate(DATE_DEBUT),CVDate(DATE_FIN),[Formulaires]![Saisie 2 dates]![PremiereDateinvisible],[Formulaires]![Saisie 2 dates]![SecondeDateinvisible])=True;

[L_layton]

Bah j'ai réussis à résoudre mon problème avec simplement des variables et en supprimant le formulaire ou je saisissais mes variable.

En gros j’appuie sur le bouton pour exécuter la requête et les text box s'ouvrent.
Merci beaucoup pour votre aide je me souviendrais des références circulaire.