Lancer une requete parametree en vba et lui donner le parametre en vba

[Daniel sutero]

Bonjour bonjour a tout le forum,

Voici la problematique:

J'ai une requete parametree Access que j'execute en VBA avec le code suivant:

Set source = DBEngine.OpenDatabase("c:\ecorigen\ecoman.mdb")

Set r_lots = source.OpenRecordset("R_Infos_lots", dbOpenDynaset)

r_lots.MoveFirst


Le probleme est que quand il execute la requete, il me dit qu'il manque un parametre (celui que j'ai mis dans Access et qui correspond a la valeur d'un champ de formulaire :[forms]![F_FRO_GENERALE]![num_ordre_ecorigen]).

La question est comment en VBA lui passer la valeur du parametre pour qu'il puisse executer la requete ?

Merci à tous.

 

[Daniel sutero]

J'eai trouvé , merci à tous.

En fait il faut utiliser Querydefs comme suit

Dim Qry As DAO.QueryDef
Dim Rs As DAO.Recordset
Set Qry = CurrentDb.QueryDefs("R_Infos_lots")

Qry.Parameters("forms!F_FRO_GENERALE!num_ordre_ecorigen") = num_ordre_eco

' où forms!F_FRO_GENERALE!num_ordre_ecorigen est le parametre dans Access

Set Rs = Qry.OpenRecordset
While Not Rs.EOF
MsgBox Rs(0)
Rs.MoveNext
Wend
Set Qry = Nothing
Set Rs = Nothing


Ciao Ciao