[AC-2007] Erreur : Argument non valide

[solaar]

Bonjour.
je n'arrive pas à comprendre mon code.... il me marque une erreur: Argument non valide..

Code :

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.

[helas]

Bonsoir,
ne serait-ce pas

Code :

1
2
 
Set Stock_Ordinateur = dbc.OpenRecordset(qdfParam.name)

[solaar]

No je pense pas j ai dejas :

Code :

Set qdfParam = dbc.QueryDefs("Inventaire - Req - Stock Ordinateur(Phase 2)")

C'est pas le fait que je sois en access 2007 ?
Aussi lorsque je met les elements en dur dans les requetes tous passe bien.

[loufab]

Bonjour,

Je dirais ceci sans certitude :

Code :

Eval("Forms![Inventaire - Calcul Ecarts]![Mag Inventaire]")

A remplacer par ça :

Code :

Eval(Forms![Inventaire - Calcul Ecarts]![Mag Inventaire])

Le premier renvoi l'expression contenu alors que la deuxième renvoie le résultat de l'expression.

Cordialement,

[solaar]

Oui j'ai fait tout sa mais je suis tjrs sr la même erreur.
je comprend rien.

[loufab]

Bonjour,
ça ne vient donc pas de ce que tu mets dans le contrôle du formulaire et la syntaxe est correcte. Maintenant il faut voir du coté de ta requête.

Cordialement,

[solaar]

voisi ma requête:

Code :

1
2
3
4
SELECT DISTINCTROW Stocks.[Code Société], Stocks.[Code Etablissement], Stocks.[Code Magasin], Stocks.[Code Article], Stocks.[Identification Article], Stocks.[Décimales Unités], Stocks.[Décimales Poids], Stocks.[Décimales Valeurs], IIf([Stocks].[M-1 - Unités] Is Not Null,[Stocks].[M-1 - Unités],0) AS [M-1-Unités], IIf([Stocks].[M-1 - Emballages] Is Not Null,[Stocks].[M-1 - Emballages],0) AS [M-1-Emballages], IIf([Stocks].[M-1 - Poids] Is Not Null,[Stocks].[M-1 - Poids],0) AS [M-1-Poids], IIf([Stocks].[M-1 - Valeur] Is Not Null,[Stocks].[M-1 - Valeur],0) AS [M-1-Valeur], IIf([Inventaire - Req - Stock Ordinateur (Phase 1)].EQU Is Not Null,[Inventaire - Req - Stock Ordinateur (Phase 1)].EQU,0) AS EQU, IIf([Inventaire - Req - Stock Ordinateur (Phase 1)].EQE Is Not Null,[Inventaire - Req - Stock Ordinateur (Phase 1)].EQE,0) AS EQE, IIf([Inventaire - Req - Stock Ordinateur (Phase 1)].EQP Is Not Null,[Inventaire - Req - Stock Ordinateur (Phase 1)].EQP,0) AS EQP, IIf([Inventaire - Req - Stock Ordinateur (Phase 1)].[EQV] Is Not Null,[Inventaire - Req - Stock Ordinateur (Phase 1)].[EQV],0) AS EQV, IIf([Inventaire - Req - Stock Ordinateur (Phase 1)].SQU Is Not Null,[Inventaire - Req - Stock Ordinateur (Phase 1)].SQU,0) AS SQU, IIf([Inventaire - Req - Stock Ordinateur (Phase 1)].SQE Is Not Null,[Inventaire - Req - Stock Ordinateur (Phase 1)].SQE,0) AS SQE, IIf([Inventaire - Req - Stock Ordinateur (Phase 1)].SQP Is Not Null,[Inventaire - Req - Stock Ordinateur (Phase 1)].SQP,0) AS SQP, IIf([Inventaire - Req - Stock Ordinateur (Phase 1)].SQV Is Not Null,[Inventaire - Req - Stock Ordinateur (Phase 1)].SQV,0) AS SQV, Stock_Final_Unités([Stocks].[M-1 - Unités],[Stocks].[M-1 - Emballages],[EQU],[EQE],[SQU],[SQE],[QEMB]) AS TQU, Stock_Final_Emballages([Stocks].[M-1 - Unités],[Stocks].[M-1 - Emballages],[EQU],[EQE],[SQU],[SQE],[QEMB]) AS TQE, Stock_Final_Poids([Stocks].[M-1 - Poids],[EQP],[SQP]) AS TQP, Stock_Final_Valeur([Stocks].[M-1 - Valeur],[EQV],[SQV]) AS TQV, Articles.[Emballage - Quantité] AS QEMB
FROM (Stocks LEFT JOIN Articles ON (Stocks.[Code Article] = Articles.[Code Article]) AND (Stocks.[Code Etablissement] = Articles.[Code Etablissement]) AND (Stocks.[Code Société] = Articles.[Code Société])) LEFT JOIN [Inventaire - Req - Stock Ordinateur (Phase 1)] ON (Stocks.[Identification Article] = [Inventaire - Req - Stock Ordinateur (Phase 1)].[Identification Article]) AND (Stocks.[Code Article] = [Inventaire - Req - Stock Ordinateur (Phase 1)].[Code Article]) AND (Stocks.[Code Magasin] = [Inventaire - Req - Stock Ordinateur (Phase 1)].[Code Magasin]) AND (Stocks.[Code Etablissement] = [Inventaire - Req - Stock Ordinateur (Phase 1)].[Code Etablissement]) AND (Stocks.[Code Société] = [Inventaire - Req - Stock Ordinateur (Phase 1)].[Code Société])
WHERE (((Stocks.[Code Société])=Société_active()) AND ((Stocks.[Code Etablissement])=Etablissement_actif()) AND ((Stocks.[Code Magasin])=[MAG]))
ORDER BY Stocks.[Code Magasin], Stocks.[Code Article], Stocks.[Identification Article];

[loufab]

Bonjour,

Tu es certain que c'est pas cette ligne qui bloque ?

Code :

qdfParam.Parameters("[DTI]") = DTI  ' paramètres.

Il est où DTI dans ta requête ? Et la clause Parameters ?

Cordialement,