[ACCESS] Boîte dialogue alimentée pr variable

Salut,


Tu pourrais demander la saisie de la date dans un champ texte indépendant et faire référence à la valeur de ce champ dans ton code.

Par exemple, si tu as des requêtes avec un critère. A l'ouverture Access te demande la valeur du critère. Tu peux la lui fournir avec une condition WHERE du type: DateRecherchée=Forms!NomDuForm!NomDuChampTexte

Bin, ça dépend... Comment procèdes-tu actuellement?

Tu pourrais par exemple partir d'un formulaire muni de boutons de commande permettant d'appeler les différentes requêtes. Tu peux ajouter un champ texte indépendant (qu'on appellerait "RechercheDate" dans lequel tu entres la date.

Tes requêtes peuvent être créées avec l'assistant graphique. Dans ce cas tu inclus le champ "date" de ta table et en regard de "critère" tu tapes "=RechercheDate" (sans les guillements).
En mode SQL ça donne: SELECT... ...WHERE "NomDuChampContenantLaDate=RechercheDate"; (Bien sûr, tu dois mettre tes propres critères)

Dans ta situation actuelle, demandes-tu l'affichage d'une InputBox pour entrer la date ou la boite s'affiche-t-elle automatiquement à l'ouverture de ta requête? Dans ce dernier cas, c'est parce qu'Access ne trouve pas le critère de recherche. Si tu le lui indique comme proposé plus haut la boite ne devrait plus s'afficher.

Bien, je pense que la solution que je te propose devrait fonctionner...

Access peut simplement utiliser la valeur du champ texte eu lieu et place de la valeur renvoyée par l'input box.

Si cela ne te convient pas, tu peux déclarer une variable

dim DateRech As Date

puis lui attribuer une valeur:

DateRech = InputBox...

Puis tu utilises simplement la valeur de DateRech dans tes critères de tri.

mais ce n'est pas très "transparent": l'utilisateur ne sait pas ce que contient la variable. Ca implique aussi que l'utilisateur utilise toujours le formulaire dans le même ordre sinon, à moins de prévoir un bloc If dans le code de chaque bouton pour vérifier si la variable a été initialisée.

Bon , me revoila.

désolé , je n'y arrives pas .

j 'ai essayé de mettre un champ indépendant sur un formulaire et de faire référence à ce champ pour que les requêtes prennent le mois en considération ; mais j'ai aussi créé un module pour créer la variable mais les inputbox apparaissent toujours , le tout ensemble ne fonctionne pas , séparément non plus d'ailleurs.

Function ARRETE()
Dim MOISCONCERNE As Date
MOISCONCERNE = InputBox("ENTRER LE MOIS CONCERNE", "RESULTATS MENSUELS", Default, 100, 100)
End Function

"=Forms!F_monformulaire!MOISCONCERNE"

<"=Forms!F_monformulaire!MOISCONCERNE"+1

Si j'ai bien compris, tu as des boutons de commande qui appellent les requêtes.

C'est directement dans les requêtes que tu devrais faire référence aux critères.

Si tu travailles avec l'assistant, dans le champ "critères" (partie inférieure du tableau) et dans la colonne où tu veus appliquer le tri, tapes la référence à la date recherchée (le nom du champ indépendant): =Forms!NomDuFormulaire!NomDuChamp

Normalement ça doit fonctionner sinon, c'est que les noms du formulaire ou de champ ne sont pas corrects ou qu'ils contiennent des espaces et que tu n'as pas mis de crochets([])...

Si tu travailles en mode SQL, tu dois avoir une condition Where du type: SELECT... WHERE "NomDuChampSurLequelTuVeuxTrier = Forms!NomDuFormulaire!NomDuChampIndépendant";

   Si j'ai bien compris, tu as des boutons de commande qui appellent les requêtes.

 = MOISCONCERNE+1 

Bon , en retravaillant un peu la syntaxe et sans passer par input box , il y a du mieux; les requêtes sur le mois concerné fonctionnent mais celles sur le mois suivant non.
en fait j'ai entré comme criTère de requête pour le mois suivant:

=[Forms]![F_monformulaire].[MOISCONCERNE]+1

=[Forms]![F_monformulaire].[MOISCONCERNE]

En effet, je pense que tu devais essayer:
Mois(MOISCONCERNE) + 1

mais peut-être devras-tu modifier le premier terme de ton critère pour qu'il ne renvoie lui aussi que le mois...

Bonjour ,

Euréka , j'ai trouvé.
Pour ceux que ça intéresse ,je mets le code ci-dessous.

Détail de l'affaire:

Sur F_monformulaire mettre contrôle indépendant
Avec nom : MOISCONCERNE


Affecter à un bouton du formulaire une macro exécutant exécutant les requêtes nécessaires à l’arrêté R_Entrées, R_Sorties, R_Stocks

Critère à noter dans les requêtes
dans le champ dateentree

Comme [Forms]![F_monformulaire].[MOISCONCERNE]

Comme [Forms]![F_monformulaire].[MOISCONCERNE]

<=AjDate("m";1;[Forms]![F_monformulaire].[MOISCONCERNE])

Est Null Ou >=AjDate("m";1;[Forms]![F_monformulaire].[MOISCONCERNE])