Bonjour,

j'ai le code suivant qui fonctionne correctement :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
'Met à TRUE les enrgts du champs [...]
DoCmd.OpenQuery "Q1_THMART_details_init"
Cependant, je souhaite le ré-écrire en utilisant du VBA/SQL.

Comme je n'y connais pas grand chose en VBA, je me suis inspiré d'exemples vu sur le net,
Malgrés plusieurs tentatives, je n'y arrive pas. Rien ne se passe à l'exécution.

Le problème ne vient probablement pas du SQL, qui est un copier/coller de la requête qui, elle fonctionne.
Je pense que c'est la manière de l'exécuter qui est mauvaise, ou qu'il manque des trucs.

Ci-dessous l'un des derniers code testé :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
 
           Dim mySQL As String
           Dim db As dao.Database
           Set db = CurrentDb        
            mySQL = "UPDATE T1_THMART LEFT JOIN T8_ART ON T1_THMART.THMART_idART = T8_ART.ART_idART SET T8_ART.ART_THMselection = True " _
           & "WHERE (((T1_THMART.THMART_idTHM)=[Formulaires]![_LstSouhaits_par_THM]![filtreTHM]));"
           db.Execute mySQL
NB:
- j'ai bien "Microsoft DAO 3.6 Object Librairy" activé dans les références.
- La base est une petite base perso/en local

Si quelqu'un peut me dire se qui ne va pas.
Merci d'avance.