Discussion :

[Tazzou]

Salut à vous.

Je cherche à créer une requête pour extraire toutes les dates (en l'occurence les jours fériés et les dimanches mais pour ça je vois comment faire) comprises entre 2 dates mais je ne vois pas comment faire...

Pourriez-vous m'aider SVP?

Merci beaucoup

[loufab]

Bonjour,

1ère méthode :

Code :

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

SELECT... FROM ... WHERE madate BETWEEN dateMini AND dateMaxi;

2ème méthode :

Code :

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

SELECT... FROM ... WHERE madate>=dateMini AND madate<=dateMaxi;

ou encore

Code :

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

SELECT... FROM ... WHERE madate>dateMini AND madate<dateMaxi;

Cordialement,

[Tazzou]

Oui je comprends mais je n'ai pas créé de table avec des dates disons que je veux créer la table avec les dates de jours fériés et dimanche, comment arriver à avoir les dates en question à l'aide d'une requête?

Merci du temps consacré à m'aider

[Jean-Philippe André]

Le mieux reste de passer par le mode recherche et de tomber sur des solutions toutes faites dans la
https://access.developpez.com/faq/?p...nip#NbJourOuvr

ou encore d econsulter les blogs DVP :
https://blog.developpez.com/philben/...dun-jour-ferie

[loufab]

Désolé ce n'est pas clair.

[Tazzou]

Désolé ce n'est pas clair.

Je vais essayer d'éclaircir ma demande...

Ce que je souhaite, c'est créer une requête qui me permettra d'avoir la liste des dates de fériés et des dimanches compris entre 2 dates.

Merci de m'aider.

[Tazzou]

Je viens de tenter ceci:

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
20
21
Sub ListeJoursFeries(DateDebut As Date, DateFin As Date, NbDeJours As Integer)
 
Dim intJour As Integer
Dim Date_A_Tester As Date
 
For intJour = 0 To NbDeJours
   Select Case EstFerie(Date_A_Tester)
      Case True
         DoCmd.RunSQL "INSERT INTO T_Garde2 ( DateGarde ) SELECT( Date_A_Tester ) as DateGarde"
      Case False
   End Select
 
   Select Case DatePart("w", Date_A_Tester, vbMonday)
      Case 6
         DoCmd.RunSQL "INSERT INTO T_Garde2 ( DateGarde ) SELECT( Date_A_Tester ) as DateGarde"
      Case Else
   End Select
 
Next
 
End Sub

mais lorsque j'exécute cette commande, j'ai une inputbox qui s'ouvre et me demande d'entrer Date_A_Tester...

Une idéee ??? Merci

[Jean-Philippe André]

Salut,

tu dois passer la variable et non le nom en dur =]

Mais ton code n'a pour l'instant aucun sens, tu passes des parametres que tu n'utilises pas (ou pas correctement)

Pour la partie qui pose probleme dans ta demande :

Code :

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

DoCmd.RunSQL "INSERT INTO T_Garde2 ( DateGarde ) SELECT(#" & Format(Date_A_Tester,"MM/DD/YYYY") & "#) as DateGarde"

[loufab]

Pour employer une requête SELECT pourquoi pas directement faire un VALUES ?

https://msdn.microsoft.com/en-us/lib...ffice.10).aspx

Pour intégrer des valeurs en provenance de VBA dans du SQL il faut faire ceci :

Code :

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

DoCmd.RunSQL "INSERT INTO T_Garde2 ...." & Date_A_Tester() & "....;"

Attention ! avec des valeurs texte il faut mettre les séparateurs. Pour les dates attention à la notation en US/UK en VBA.

[Riton47]

Bonjour,

Si j'ai bien compris la question, vous voulez les dimanches et jours féries compris entre 2 dates.
Je vous propose cette petite base exemple.
Entrez une date de début et une date de fin dans le formulaire et cliquer sur le bouton.
Comme je ne suis pas un pro, les "experts" corrigeront le code VBA....(merci à eux)

Merci
Henri

[Tazzou]

Bonjour,

Si j'ai bien compris la question, vous voulez les dimanches et jours féries compris entre 2 dates.
Je vous propose cette petite base exemple.
Entrez une date de début et une date de fin dans le formulaire et cliquer sur le bouton.
Comme je ne suis pas un pro, les "experts" corrigeront le code VBA....(merci à eux)

Merci
Henri

Ca fonctionne super bien, j'adapte à ce dont j'ai besoin.

Merci