Bonjour.
je n'arrive pas à comprendre mon code.... il me marque une erreur: Argument non valide..
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
DTII = Forms![Inventaire - Calcul Ecarts]![Date Inventaire]
DTI = "01/" & DatePart("m", DTII) & "/" & DatePart("yyyy", DTII)
 
Set dbc = CurrentDb
Dim qdfParam As QueryDef
 
 
Set Inventaire_Entête = db(DBI("Inventaire - Entête")).OpenRecordset("Inventaire - Entête")
Set qdfParam = dbc.QueryDefs("Inventaire - Req - Stock Ordinateur(Phase 2)")
 
qdfParam.Parameters("[MAG]") = Eval("Forms![Inventaire - Calcul Ecarts]![Mag Inventaire]")
qdfParam.Parameters("[DTI]") = DTI  ' paramètres.
 
Set Stock_Ordinateur = qdfParam.OpenRecordset()
il se blogue sur la dernière ligne.
Merci pour l'aide.