Discussion :

[laforet]

Salut à tous et merci de m'aider.

J' ai conçu un état qui repose sur une requête. Cette requête a une variable que je suis sensée renseigner à partir d'un formulaire. J'ai donc créé mon formulaire et j'y ai placé un bouton qui me permet de générer mon état. Concrètement, l'utilisateur entre une date, et cette date représente en fait la valeur que je dois attribuer à la variable de la requête.

En résumé, l'utilisateur sélectionne une date et demande l'état de cette date, je veux récupérer cette date et renseigner la variable de la requête avant de générer mon état.

Dans le code du bouton j'ai fait ceci:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Dim stDocName As String
    Dim requete As DAO.QueryDef
 
    Set requete = CurrentDb.QueryDefs("ReqParametree")
 
    requete.Parameters("dateparam") = dateImp.Value   //dateparam est la variable de la requête et dateImp est la date que je récupère du formulaire
 
 
    stDocName = "communique"  // commnunique est le nom de l'état
 
    DoCmd.OpenReport stDocName, acPreview

J'espère que quelqu'un a compris mon pb et pourra m'aider. Merci

[laforet]

Pour un complément d'infos voici ma requête:

Code sql :

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

1
2
3
4
SELECT TOP 10 Table_cot.[Date Cotation], Table_cot.Cours, Table_cot.[Seuil bas], Table_cot.[Seuil haut], Table_cot.[Quantite demandee], Table_cot.[Quantite offerte], Table_cot.[Volume echange], Table_cot.[Capitalisation boursiere], Table_cot.Variation, Table_cot.Statut
FROM Table_cot
WHERE Table_cot.[Date Cotation]>=dateparam
ORDER BY Table_cot.[Date Cotation];

Lorsque je clique sur le bouton, Access me demande de donner la valeur de dateparam, pourtant je croyais l'avoir fait avec

Code :

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

requete.Parameters("dateparam") = dateImp.Value

Merci encore

[Juan277]

Bonjour Laforet,

Loin d'être un expert, j'utilise moi aussi ce procédé dans mes formulaires, seulement je n'ai pas eu ce problème. Peut être doit tu préciser l'endroit où se trouve ce bouton : Me.DateImp.Value ou carrément le chemin complet.

Code :

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

1
2
3
4
5
6
7
8
 
            Set oQdf = CurrentDb.QueryDefs("R_MANDAT_INSERT")
            With oQdf
                .Parameters("NUM_MANDAT") = Me.txtFichierHopayra.Value
                .Parameters("DATE_EXPORT") = Me.txtDateExport.Value
                .Execute
            End With
            oQdf.Close

Voici un exemple de ce que moi j'utilise. Ca fonctionne bien. Je ne sais pas si ca change qqchose mais mes paramètres dans ma requêtes sont entre crochets [dateparam].

J'espère t'avoir éclairé.

[laforet]

Finalement j'ai résolu le pb, en remplaçant dateparam dans ma requête par Forms![maForm]!dateImp pour faire directement reférence au champ du formulaire.

Et ensuite je refais

Code :

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

requete.Parameters("Forms![maForm]!dateImp ") = dateImp.Value

dans le code de mon bouton.

Merci encore et à bientôt.