Discussion :

[Invité]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ... par contre si je supprime le WHERE ça fonctionne !
can you help me ?

[Jean-Philippe André]

salut
il y a une virgule en trop

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

..., HeureEven, NumFiche,)

[Invité]

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.

[Jean-Philippe André]

oki ^^
et avec ceci ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 & "));"

[Invité]

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