Discussion :

[teffal]

Bonjour,
J'ai un formulaire basé sur une requête paramétrée. Comment passer les paramètre à cette requête à l'aide de VBA , puis ouvrir ce formaulaire: Je veux pas apparaître la fenêtre d'access qui permet de saisir ces paramètres.

Merci

[pgz]

Bonjour,

il y a plusieurs façons de faire. Je te propose celle-ci :
Tu définis ton paramètre comme variable globale dans un module indépendant. Il te suffit alors de donner une valeur à cette varaiable avant d'ouvrir le formulaire.

pgz

[teffal]

Merci, mais je comprends pas comment je vais passer le paramètre à ma requête de cette façon.

[pgz]

Re,

Effectivement, ce n'est pas si simple. Voici une méthode qui marche

Code :

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

1
2
3
4
5
6
7
8
9
10
Dim qdf As QueryDef, db As DAO.Database
 
Set db = CurrentDb
Set qdf = db.QueryDefs("MaRequête")
qdf.SQL = "SELECT ... WHERE ... = '" & "MonParamTexte" & "'));"
 
DoCmd.OpenQuery qdf.Name
 
Set qdf = Nothing
Set db = Nothing

Pour la ligne qdf.SQL = ..., tu recopies le SQL de ta requête et tu insères la valeur du paramètre, à la place du paramètre. Dans l'exemple le paramètre est de type texte, à adapter si c'est un nombre ou une date...

pgz