probleme de syntaxe dans requete vba

bjr à tous,
p'tit souci avec une requete en vba... elle fonctionne via le QBE mais pas via le module du form sur un update de liste deroulante.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

DoCmd.SetWarnings False Dim sql As String sql = " delete * from Tbl_TempCommune ;" DoCmd.RunSQL sql MsgBox "test 1" sql = "INSERT INTO Tbl_TempCommune (Reference, DateEven, TypeEven, HeureEven, NumFiche,) " & _ "SELECT Reference, DateEven, TypeEven, HeureEven, NumFiche " & _ "FROM EvenCommune WHERE (((EvenCommune .TypeEven)= Forms!Apercu!ChoixType));" MsgBox "test 2" Me.Form.Requery MsgBox "test 3"

---

les 3 msgbox s'ouvrent bien
mais au final ma table est vide 8O... par contre si je supprime le WHERE ça fonctionne !
can you help me ?

salut
il y a une virgule en trop

Code:

---

..., HeureEven, NumFiche,)

---

salut JP
oui effectivement... c'est parce que j'ai tronqué ma requete pour poser la question , mais dans le module c'est clean. et donc le probleme reste tel que decrit.

oki ^^
et avec ceci ?

Code:

---

1 2 3

sql = "INSERT INTO Tbl_TempCommune (Reference, DateEven, TypeEven, HeureEven, NumFiche,) " & _ "SELECT Reference, DateEven, TypeEven, HeureEven, NumFiche " & _ "FROM EvenCommune WHERE (((EvenCommune .TypeEven)= " & Forms("Apercu").Controls("ChoixType").Value & "));"

---

re... JP mille excuses, en fait mon premier script fonctionne bien... l'erreur était dans le source de la liste deroulante.