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

D

Daniel sutero

Guest
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.
 
D

Daniel sutero

Guest
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
 

Statistiques des forums

Discussions
314 450
Messages
2 109 726
Membres
110 552
dernier inscrit
jasson