Pb syntaxe requête une fois en vba [Résolu]

[clickandgo]

Bonjour à tous,

Suivant les conseils des pros de ce forum j'ai utilisé le mode SQL d'access pour faire une requête action, mais quand je l'insère en VBA la syntaxe est incorrecte :

Code :

DoCmd.RunSQL "UPDATE [Familles Produits / Prestations] SET WHERE ((([Familles Produits / Prestations].IdFamilleProduitPrestation)=[Formulaires]![Familles Produits / Prestations]![IdFamilleProduitPrestation]));"

D'autre part, peut on scinder la dite requête sur plusieurs lignes en VBA et si oui comment ?

Merci à tous

[LE VIEUX]

bonsoir,
un peu de lecture :
http://ledzeppii.developpez.com/instrsqlvb/

[clickandgo]

Envoyé par LE VIEUX

bonsoir,
un peu de lecture :
http://ledzeppii.developpez.com/instrsqlvb/

merci pour la lecture mais j'ai besoin de l' expérience d'un pro qui puisse m'aiguiller car même en lisant je ferai des erreurs, pour l'instant VBA m'accepte :

Code :

1
2
DoCmd.RunSQL "UPDATE [Familles Produits / Prestations] SET " & _
"WHERE ((([Familles Produits / Prestations].IdFamilleProduitPrestation)=[Formulaires]![Familles Produits / Prestations]![IdFamilleProduitPrestation]));"

- Mais à l'éxécution "Erreur de syntaxe...", je pense qu'il faut transformer l'expression du critère mais comment ?

- Faut il garder le "SET" aussi ?

Merci

[marot_r]

La méthode la moins frustrantre avec le SQL de Access c'est d'utiliser l'éditeur de requête. D'y composer ta requête via les icônes et le glisser-déplacer puis de basculer vers l'affichage en SQL.

Tu vas ainsi pouvoir voir ce que Access attend comme syntaxe et l'adapter à ton besoin.

A+

[clickandgo]

Envoyé par marot_r

La méthode la moins frustrantre avec le SQL de Access c'est d'utiliser l'éditeur de requête. D'y composer ta requête via les icônes et le glisser-déplacer puis de basculer vers l'affichage en SQL.

Tu vas ainsi pouvoir voir ce que Access attend comme syntaxe et l'adapter à ton besoin.

A+

merci pour ta réponse mais c'est ce que j'ai exactement fait, mais une fois en VBA la syntaxe n'est plus correcte !!!
Donc j'en suis tjs au même point !

[marot_r]

Peux-tu poster le SQL généré par Access ?

A+

[LedZeppII]

Bonsoir,

marot_r a posté plus vite que moi

il s'agit d'une erreur de syntaxe SQL.
Derrière SET il manque une ou plusieurs affectations.

Code :

NomChamp = qqchose

Liens sur le SQL d'Access :

• Guide de référence Microsoft Jet SQL.
  • Langage de manipulation de données
    • Instruction UPDATE

Un moyen simple pour avoir une idée du SQL dont on a besoin :
Créer une requête dans Access avec des valeurs littérales.
Passer en mode affichage SQL.
tu obtiens ton SQL.
A toi ensuite de le transposer en VBA, et de faire en sorte que les valeurs littérales puissent être remplacées par des éléments variables.

Autre chose : SQL utilise une notation anglo-saxonne.
[Formulaires] devient [Forms]
Comme devient Like
VraiFaux devient IIf
...
La liste est très longue.
Comme je l'ai dis plus haut, le mieux est de créer la requête avec Access et de passer à l'affichage SQL.
Tout sera traduit comme il faut.

A+

[clickandgo]

Envoyé par LedZeppII

Bonsoir,

marot_r a posté plus vite que moi

il s'agit d'une erreur de syntaxe SQL.
Derrière SET il manque une ou plusieurs affectations.

Code :

NomChamp = qqchose

Liens sur le SQL d'Access :

• Guide de référence Microsoft Jet SQL.
  • Langage de manipulation de données
    • Instruction UPDATE

Un moyen simple pour avoir une idée du SQL dont on a besoin :
Créer une requête dans Access avec des valeurs littérales.
Passer en mode affichage SQL.
tu obtiens ton SQL.
A toi ensuite de le transposer en VBA, et de faire en sorte que les valeurs littérales puissent être remplacées par des éléments variables.

Autre chose : SQL utilise une notation anglo-saxonne.
[Formulaires] devient [Forms]
Comme devient Like
VraiFaux devient IIf
...
La liste est très longue.
Comme je l'ai dis plus haut, le mieux est de créer la requête avec Access et de passer à l'affichage SQL.
Tout sera traduit comme il faut.

A+

Bonsoir les pros,

On dirait que vous avez mal lu ce que j'ai écrit plus haut :

Je vous ai mis le SQL d' Access dans mon premier message, or évidement il n'est pas accepté tel quel ...

Donc comment le mettre en forme ?
J'ai besoin d'un coup de pouce pour ne pas y passer encore des heures !

J'ai mis un exemple simple avec une seule condition ...

Merci

[marot_r]

Peux-tu poster le SQL générer par Access pour la requête qui te pose le problème ? S'il elle contient 3 conditions, fait une requête avec 3 conditions. Une fois que j'aurais le SQL je vais pouvoir te le 'convertir' en syntaxe VBA valide.

Le SQL dans le code c'est TRÈS frustrant mais on fini par y arriver.

A+

[LedZeppII]

Envoyé par clickandgo

Bonsoir les pros,

On dirait que vous avez mal lu ce que j'ai écrit plus haut :

Je vous ai mis le SQL d' Access dans mon premier message, or évidement il n'est pas accepté tel quel ...

Ta requête n'est pas complète.
Si tu essaie de l'exécuter (je dis bien exécuter, pas afficher), Access te dira qu'il doit y avoir au moins un champ de destination.
Tu n'a rien mis dans la ligne "mise à jour".

A+

[clickandgo]

Envoyé par LedZeppII

Ta requête n'est pas complète.
Si tu essaie de l'exécuter (je dis bien exécuter, pas afficher), Access te dira qu'il doit y avoir au moins un champ de destination.
Tu n'a rien mis dans la ligne "mise à jour".

A+

Merci d'avoir répondu,

Le SQL était malheuresement tronqué dans mon premier message, le voici :

UPDATE [Familles Produits / Prestations] SET [Familles Produits / Prestations].Famille = [Formulaires]![Familles Produits / Prestations]![Famille], [Familles Produits / Prestations].Type = [Formulaires]![Familles Produits / Prestations]![Type], [Familles Produits / Prestations].Description = [Formulaires]![Familles Produits / Prestations]![Description]
WHERE ((([Familles Produits / Prestations].IdFamilleProduitPrestation)=[Formulaires]![Familles Produits / Prestations]![IdFamilleProduitPrestation]));

Venant tel quel d' access ...

Ce que je recherche c'est qu'il m'actualise 3 champs d'un formulaire indépendant (Famille,type,description) avec comme critère la référence à la clé principale qui devrait permettre de distinguer l'enregistrement.

[marot_r]

Code :

1
2
3
4
5
6
7
8
9
dim sql as string
sql = "UPDATE [Familles Produits / Prestations] SET [Familles Produits / Prestations].Famille = "
sql = sql & [Forms]![Familles Produits / Prestations]![Famille]
sql = sql & ", [Familles Produits / Prestations].Type = "
sql = sql & [Forms]![Familles Produits / Prestations]![Type]
sql = sql & ", [Familles Produits / Prestations].Description = """
sql = sql & [Forms]![Familles Produits / Prestations]![Description] & """"
sql = sql & "WHERE ((([Familles Produits / Prestations].IdFamilleProduitPrestation)= "
sql = sql & [Forms]![Familles Produits / Prestations]![IdFamilleProduitPrestation] & "));"

Si Type est du texte il faut mettre

Code :

1
2
3
sql = sql & ", [Familles Produits / Prestations].Type = """
sql = sql & [Forms]![Familles Produits / Prestations]![Type]
sql = sql & """, [Familles Produits / Prestations].Description = """

J'ai découpé à la hache mais on pourrait organiser le code pour que chaque élément logique soit sur une ligne, cela rendrait la lecture et la modification plus facile.

A+

[clickandgo]

Envoyé par marot_r

Code :

Si Type est du texte il faut mettre

Code :

J'ai découpé à la hache mais on pourrait organiser le code pour que chaque élément logique soit sur une ligne, cela rendrait la lecture et la modification plus facile.

A+

Merci beaucoup pour tout ce travail

Il me reste une question, comment déclencher la requête ? On ne peut plus utiliser "RunSQL" ?

Merci

[marot_r]

Tu mets simplement

Code :

DoCmd.runSQL sql

En le construisant dans une chaîne de caractère à part, il est plus facile d'examiner la syntaxe, et éventuellement de l'altérer, que directement dans le RunSQL mais le résultat est le même.

A+

[clickandgo]

Envoyé par marot_r

Tu mets simplement

Code :

DoCmd.runSQL sql

En le construisant dans une chaîne de caractère à part, il est plus facile d'examiner la syntaxe, et éventuellement de l'altérer, que directement dans le RunSQL mais le résultat est le même.

A+

Bonjour à tous,

Je viens de me rendre compte que la version 2010 d' access accepte la syntaxe des requêtes générées tel quel :

Il m'a suffit de mettre dans le code " & _" pour sauter une ligne à chaque fois et rajouter un guillemet à chaque début de ligne et le tour était joué !!!

Il serait peut être bon d'en informer les autres utilisateurs qui continuent à appliquer l'ancienne méthode ...

En tous cas merci beaucoup pour votre aide, chapeau !

[marot_r]

ce n'est pas une nouveauté de 2010, cela existe depuis au moins la version 2.0 :o). Tu peux le faire avec n'importe quelle instruction.

Par exemple :

Code :

1
2
3
a = _
  b + _
  c

Il y a une contraite sur le nombre de _ qu'on peut utiliser. Je crois que c'est une dizaine.

Personnellement je trouve aussi que cela rend plus dificille à lire et plus difficile à débugger. Le seul endroit ou je m'en sert c'est pour les signatures de fonction qui comportent beaucoup de paramêtres.

A+

[clickandgo]

Envoyé par marot_r

ce n'est pas une nouveauté de 2010, cela existe depuis au moins la version 2.0 :o). Tu peux le faire avec n'importe quelle instruction.

Par exemple :

Code :

Il y a une contraite sur le nombre de _ qu'on peut utiliser. Je crois que c'est une dizaine.

Personnellement je trouve aussi que cela rend plus dificille à lire et plus difficile à débugger. Le seul endroit ou je m'en sert c'est pour les signatures de fonction qui comportent beaucoup de paramêtres.

A+

Oui mais ce qui est chouette c'est qu'on gagne beaucoup de temps et qu'il n'y avait pas besoin de se compliquer tant la vie ! (voir les réponses de ce post ...)