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 ?