VBA > Parametrer une requete > table

Bonjour,

J'utilise plusieurs requetes parametrees, et toutes sont pareilles... a part qu'elles vont piocher dans differentes tables. Je pensais donc faire une requete qui englobe toutes les autres avec un FROM [table] et mettre .Parameters("table")="table_voulue" pour ne pas avoir a creer plein de requetes semblables... mais il n'a pas l'air de vouloir mettre un parametre dans le FROM! Est-ce que c'est normal ou c'est moi qui ai fais une erreur? Est-ce qu'on ne peut pas contourner le probleme?

Exemple de code:

Code:

---

1 2 3 4 5 6 7

Set qdf = CurrentDb.QueryDefs!Q_Scrap_Month_Weld With qdf .Parameters("month") = monthwanted .Parameters("year") = YearWantedMonth.Value End With   Set rst = qdf.OpenRecordset()

---

Et ce bout de code appelle Q_Scrap_Month_Weld:

Code:

---

1 2 3

SELECT Q_Scrap_Weld.WeekStartingDate, Q_Scrap_Weld.Key_ManufactureOrder_Weld, ScrapA1, ScrapA2, ScrapA3, FROM Q_Scrap_Weld WHERE (((Format([Q_Scrap_Weld.WeekStartingDate],"mm"))=[month]) AND ((Format([Q_Scrap_Weld.WeekStartingDate],"yyyy"))=[year])) OR (((Format([Q_Scrap_Weld.WeekStartingDate],"yyyy"))=[year]) AND ((Format(DateAdd("d",6,[Q_Scrap_Weld.WeekStartingDate]),"mm"))=[month]));

---

Mais apres je fais la meme chose avec Q_Scrap_Month_Molding, Q_Scrap_HotStamping... et il y a juste le champ from qui change par rapport a Q_Scrap_Mont_HotStamping

Les paramètres doivent représenter des valeurs et non des tables. Désolé

Par contre, ce que tu peux faire c'est quelque chose comme ça :

Dans la requête :

Citation:

---

SELECT ... FROM [Param_latable]

---

Puis dans ton code :

Citation:

---

Set qdf = CurrentDb.QueryDefs!Q_Scrap_Month_Weld
With qdf
.SQL=Replace(.SQL,"[Param_table]","TableClient")
.Parameters("month") = monthwanted
.Parameters("year") = YearWantedMonth.Value
End With

Set rst = qdf.OpenRecordset()

---

Bonjour,

La même idée, un peu plus complète

Code:

---

1 2 3 4 5

SQL = "SELECT TBLX.WeekStartingDate, TBLX.Key_ManufactureOrder_Weld, … FROM TBLX WHERE (((Format([TBLX.WeekStartingDate],"mm"))=[month]) AND …; qdf.SQL = Replace(SQL,"TBLX","Q_Scrap_Month_Weld") ...

---

Bon courage,

pgz

Merci! J'ai pris la solution de Tofalu puisque ma requete est trop longue pour etre mise dans le code VBA 8O et ca marche... mais comme il change le sql de la requete, apres avoir execute une fois la requete il a remplace QueryTable par Q_ManufactureOrder_HotStamping (et donc je ne peux pas l'utiliser une autre fois). J'ai donc essaye de rechanger le SQL une fois que j'ai referme mon recordset:

Code:

---

qdf.sql = Replace(sql, "Q_ManufactureOrder_HotStamping", "querytable")

---

Sauf que la ca m'a remplace la longue requete par un INSERT INTO que j'utilisais dans mon code 8O je ne sais pas du tout ce que ca vient faire la!!
Bon j'ai ajoute finalement

Code:

---

1 2 3 4

Set qdf = CurrentDb.QueryDefs!Q_Chart_Month_Percent With qdf .sql = Replace(.sql, "Q_ManufactureOrder_HotStamping", "Querytable") End With

---

Et maintenant ca marche ;) mais pouvez-vous m'expliquer pourquoi il a change Q_Chart_Month_Percent en mettant n'importe quoi dedans la 1ere fois? :roll:

Et puis une derniere question: j'ai peur que par exemple s'il y a une erreur dans l'execution du code un jour (a cause de mauvaises donnees par exemple) ca s'arrete en plein milieu et ca ne remette donc pas dans la requete "QueryTAble" donc la requete sera inutilisable... comment eviter ca?

Edit: je viens de decouvrir l'utilite de la gestion d'erreur :mrgreen: je rajoute juste le code dans Err_nom_Click: et c'est bon?