Requête qui ne fonctionne pas en VBA/SQL

Bonjour,

j'ai le code suivant qui fonctionne correctement :

Code:

---

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:

---

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.

Salut,

Utilise le paramètre optionnel de la méthode Execute, histoire qu'une erreur soit levée en cas de problème (sinon, elle passe sous silence):

Code:

---

db.Execute mySQL, DbFailOnError

---

Ensuite, nettoyer ta requête des parenthèses / crochets superflus, et la mettre en forme, ce sera plus facile à lire, à comprendre, tu pourras entre autre l'inspecter dans la fenêtre d'exécution:

Code:

---

1 2 3 4 5 6

Dim MySql As String MySql = VbNullString '// Pas obligatoire MySql = MySql & "UPDATE T1_THMART LEFT JOIN T8_ART" & VbCrlf MySql = MySql & " ON T1_THMART.THMART_idART = T8_ART.ART_idART" & VbCrLf MySql = MySql & "SET T8_ART.ART_THMselection = True" & VbCrLf MySql = MySql & "WHERE T1_THMART.THMART_idTHM = [Formulaires]![_LstSouhaits_par_THM]![filtreTHM];"

---

On S'aperçoit que la requête s'appuie sur le formulaire _LstSouhaits_par_THM,
Ce dernier est-il ouvert au moment ou la requête s'exécute ?

j'ai ajouté l'option "db.Execute mySQL, DbFailOnError" comme suggéré,
mais aucun message n'apparait.

Et le formulaire _LstSouhaits_par_THM est bien présent.

Le point-virgule en fin d'instruction SQL ne serait pas de trop ?

@nemog:
Non, le point virgule fait partie du standard SQL.

@joan-74:
Autre option:
Récupère la valeur du champ filtreTHM issue du formulaire dans une variable et concatène cette dernière dans ta requête (Attention aux types de données).

on avance...

j'ai placé une valeur numérique dans la condition WHERE et sa marche. Le problème vient donc bien de là :

Code:

---

... = [Formulaires]![_LstSouhaits_par_THM]![filtreTHM]

---

Pour résumer mon formulaire principal doit récupéré un id dans une zone de liste modifiable d'un autre formulaire. Ce qu'il ne fait pas.

Le code suivant ne retourne aucune valeur

Code:

---

1 2	dim n as integer n = [Formulaires]![_LstSouhaits_par_THM]![filtreTHM]

---

NB: l'autre formulaire est normalement fermé, mais je le garde actuellement ouvert en attendant de résoudre le problème.

On peut éliminer un coupable potentiel: La requête.

Plus qu'a trouver quelque chose parmi tous le reste.

A mon avis le plus simple est de poster ta base de données, et que tu nous décrive comment reproduire cette anomalie (donne un max de détails).

Bonjour,

Avec ce type de syntaxe tu auras plus de visibilité sur ce que renvoi filtreTHM et tu pourras voir ce que donne ta requête au moment de l'exécution .

Code:

---

1 2 3 4 5 6 7

dim n as integer   n = forms("_LstSouhaits_par_THM").filtreTHM .... 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)=" & n & "));" ...

---

A noter que [Formulaires] n'est pas une syntaxe VBA, ça devrait donner une erreur de syntaxe et donc pas exécutable :

Code:

---

1 2	dim n as integer n = [Formulaires]![_LstSouhaits_par_THM]![filtreTHM]

---

Cordialement,

Code:

---

1 2 3 4 5 6 7

dim n as integer   n = forms("_LstSouhaits_par_THM").filtreTHM .... 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)=" & n & "));" ...

---

... testé à l'instant : Sa fonctionne parfaitement :bravo:

Merci encore.