Je ne peux pas exploiter ton code car la séletion des dates fait appel à plusieurs requêtes en même temps.
Là tu as fait un code en fonction d'une table où il y a avait 2champs date.
Moi j'ai minimum cinq requêtes à afficher qui font appel toutes à une table commune, table dans laquelle il y a un champ date.
mais ca ne pose pas de problème, tu utilises le même raisonnement pour tes 4 ou 5 requêtes.
Cycle de vie d'un bon programme :
1/ ça fonctionne 2/ ça s'optimise 3/ ça se refactorise
Pas de question technique par MP, je ne réponds pas
Mes ouvrages :
Apprendre à programmer avec Access 2016, Access 2019 et 2021
Apprendre à programmer avec VBA Excel
Prise en main de Dynamics 365 Business Central
Pensez à consulter la FAQ Excel et la FAQ Access
Derniers tutos
Excel et les paramètres régionaux
Les fichiers Excel binaires : xlsb,
Autres tutos
J'ai la même chose chez moi sur 4 requêtes.
Tu inscris le même critère dans le champ Date (Entre datedebut() et datefin())
C'est tout. Puis tu met le code. cela me semble clair.
Je te propose de me zipper ton fichier avec seulement ta table et tes requêtes, ainsi que ton tableau de bord.
Je te montrerai.
Trop gros encore ..
Il y a d'autres tables dedans que je ne peux pas supprimer sinon les requetes ne fonctionnent pas.
si tu veux tu me l'envoie par mail
ou sinon tu découpe ta base en 3 parties (les tables, puis les requêtes, puis les form) et nous on reconstitue tout.
< à 5 M tu me la mail
> à 5 tu la découpes
ok reçu le fichier je regarde cela demain et je te dis.
Je souhaiterais exploiter la piste de Starec au début de ce topic (mettre DT Picker en critères) mais je n'y arrive pas !
J'ai ajouté 2 DT Picker, créé un bouton de commande sur lequel j'ai mis le code de Jpcheck
Rien ne se passe.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2 Dim StrSQL As String StrSQL="SELECT * FROM Table WHERE MaDate BETWEEN #" & Calendar1.value &"# AND#"& Calendar2.Value & "#;
Par contre, la clause where que JpCheck m'a donnée au préalable, à mettre dans mes requêtes m'enlève tous les résultats qui ont une valeur nulle et me laisse ceux où il y a qqch alors que je ne veux pas.
j'avance sur ton topic mais je ne comprend pas. Dans le code quand je veux faire référence à la date du jour, je met "date()" et il me renvoie une erreur dessus alors que avec mon application ceal fonctionne.
salut,
pense au format de la date #MM/dd/yyyy# dans la requête SQL
Cycle de vie d'un bon programme :
1/ ça fonctionne 2/ ça s'optimise 3/ ça se refactorise
Pas de question technique par MP, je ne réponds pas
Mes ouvrages :
Apprendre à programmer avec Access 2016, Access 2019 et 2021
Apprendre à programmer avec VBA Excel
Prise en main de Dynamics 365 Business Central
Pensez à consulter la FAQ Excel et la FAQ Access
Derniers tutos
Excel et les paramètres régionaux
Les fichiers Excel binaires : xlsb,
Autres tutos
Bonjour,
Un membre de ce forum, Bruno28, m'a gentiment aidée à trouver la solution. Je vous la poste donc en espérant qu'elle serve.
En insérant dans mes requêtes la clause WHERE suivante
et en ajoutant dans mon form 2 zones de texte, nommées Date1 et date2, auxqelles il ajouté les codes suivants sur l'événement perte focus:
Code : Sélectionner tout - Visualiser dans une fenêtre à part WHERE (((DETAIL.Date) Between Formulaires![3 TABLEAU DE BORD]!Date1 And Formulaires![3 TABLEAU DE BORD]!Date2))
Et
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7 Private Sub Date1_LostFocus() Me.Requête1_sous_formulaire.Requery Me.Requête1_sous_formulaire1.Requery Me.type_clientèle_sous_formulaire.Requery Me.Nbre_d_appels_attribués_par_négo_____sous_formulaire.Requery Me.Requête1_sous_formulaire2.Requery End Sub
Ainsi, toutes mes requêtes qui alimentaient mon form sont updatées en fonction de la date que je sélectionne dans mes zone de texte Date1 et Date2.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7 Private Sub Date2_LostFocus() Me.Requête1_sous_formulaire.Requery Me.Requête1_sous_formulaire1.Requery Me.type_clientèle_sous_formulaire.Requery Me.Nbre_d_appels_attribués_par_négo_____sous_formulaire.Requery Me.Requête1_sous_formulaire2.Requery End Sub
J'ai donc abandonné l'idée de faire la sélection de date via MS Date and Picker...
Merci Bruno28
Voilà. Si vous avez d'autres suggestions, n'hésitez pas. Je m'en enrichirais.
Bien à vous.
je pêche toujour sur cette fonction Date() qui doit normalement me renvoyer la date du jour.
Où dois je mettre ton format MM/DD/YYYY jpcheck ??? dans ma requête SQL.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5 SELECT Count(DETAIL.Numdetail) AS CompteDeNumdetail, DETAIL.Date FROM DETAIL GROUP BY DETAIL.Date HAVING (((DETAIL.Date) Between Date() And Date()-180));
bonjour, comme ceci :
voir si il faut des simple quote ou pas selon que tu lances la requête depuis vba ou pas
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4 SELECT Count(DETAIL.Numdetail) AS CompteDeNumdetail, DETAIL.Date FROM DETAIL GROUP BY DETAIL.Date HAVING (DETAIL.Date) Between Format(Date(),"#MM/dd/yyyy#") And Format(Date()-180,"#MM/dd/yyyy#");
Cycle de vie d'un bon programme :
1/ ça fonctionne 2/ ça s'optimise 3/ ça se refactorise
Pas de question technique par MP, je ne réponds pas
Mes ouvrages :
Apprendre à programmer avec Access 2016, Access 2019 et 2021
Apprendre à programmer avec VBA Excel
Prise en main de Dynamics 365 Business Central
Pensez à consulter la FAQ Excel et la FAQ Access
Derniers tutos
Excel et les paramètres régionaux
Les fichiers Excel binaires : xlsb,
Autres tutos
Bonjour messieurs et merci encore de vous pencher sur mon post.
Avez-vous la solution qui m'a été donnée que j'ai postée plus haut ?
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager