Problème de syntaxe sur ma première requête

Version imprimable

Bonjour,

Je reprends une application Access dans un environnement Access 2007 (développée initialement en Access 2000).

L'ensemble de l'application a été développée "graphiquement" et il n'y a quasiment pas de code VBA.

Je souhaite lancer ma première requête VBA et je n'arrive pas à trouver l'erreur de syntaxe...
Code:

1 2 3 4 5 6 7 8 9 10 Dim strRequete As String strRequete = "UPDATE Table_A " _ & "INNER JOIN Table_B INNER JOIN (Table_C INNER JOIN Table_A ON Table_C.Champs_ID = Table_A.Champs_ID) ON Table_B.Champs_Type = Table_A.Champs_Type " _ & "SET Champs_Statut = \'Réalisée\' " _ & "WHERE ((Table_A.Champs_ID)=[Formulaires]![Formulaire_Ident]![ZoneListeDeroulante_Nom]) AND ((Table_A.Champs_Type) Like \'*\' & [Formulaires]![Formulaire_Ident]![SousFormulaire_Action].[Form]![ZoneListeDeroulante_Type] & \'*\');" DoCmd.SetWarnings False DoCmd.RunSQL (strRequete) DoCmd.SetWarnings True
Pouvez-vous m'aidez ?

[EDIT: Désolé, j'aurais peut-être du poser la question dans VBA Access ? Merci de déplacer le post si c'est le cas!]

Re-Bonjour,

Comme tu es en VBA, il faut "sortir" tes paramètres de l'expression SQL (tous les contrôles de ton formulaire).
De plus, je n'ai pas compris les \' que tu mets ?
Tu devrais avoir :

Code:

1
2
3
4
5
6
7
8
9
10
Dim strRequete As String
 
strRequete = "UPDATE Table_A " _
            & "INNER JOIN Table_B INNER JOIN (Table_C INNER JOIN Table_A ON Table_C.Champs_ID = Table_A.Champs_ID) ON Table_B.Champs_Type = Table_A.Champs_Type " _
            & "SET Champs_Statut = 'Réalisée' " _
            & "WHERE Table_A.Champs_ID=" & [Formulaires]![Formulaire_Ident]![ZoneListeDeroulante_Nom] & " AND ((Table_A.Champs_Type) Like '* " & [Formulaires]![Formulaire_Ident]![SousFormulaire_Action].[Form]![ZoneListeDeroulante_Type] & "*'"
 
DoCmd.SetWarnings False
DoCmd.RunSQL (strRequete)
DoCmd.SetWarnings True

Cordialement,

Bonjour,

madefemere a raison, c'est plus propre de sortir les références à tes formulaires de ta syntaxe SQL et de recréer ta chaine SQL avec le contenu de tes zones. Cependant tu peux aussi les laisser et cela marche aussi bien.

Attention toutefois au pièges a éviter dans les deux cas .

Première syntaxe, en laissant les références dans la syntaxe SQL, tu dois modifier [Formulaires] par le mot clé équivalent en anglais [Forms] sinon SQL ne reconnaitra pas la collection equivalente.
Tu devras donc avoir :
Code:

1 2 3 4 5 6 7 8 9 10 Dim strRequete As String strRequete = "UPDATE Table_A " _ & "INNER JOIN Table_B INNER JOIN (Table_C INNER JOIN Table_A ON Table_C.Champs_ID = Table_A.Champs_ID) ON Table_B.Champs_Type = Table_A.Champs_Type " _ & "SET Champs_Statut = 'Réalisée' " _ & "WHERE Table_A.Champs_ID=[Forms]![Formulaire_Ident]![ZoneListeDeroulante_Nom] AND ((Table_A.Champs_Type) Like '*' & [Forms]![Formulaire_Ident]![SousFormulaire_Action].[Form]![ZoneListeDeroulante_Type] & '*' '" DoCmd.SetWarnings False DoCmd.RunSQL (strRequete) DoCmd.SetWarnings True
De plus je te conseille a la place de :
Code:

1 2 3 DoCmd.SetWarnings False DoCmd.RunSQL (strRequete) DoCmd.SetWarnings True
[/CODE]

D'utiliser seulement :

Code:

Currentdb.execute strRequete

Qui ne met pas de message et évite de modifier la valeur de SetWarnings ;)

Pour la deuxième syntaxe comme le propose madefemere, il faut bien penser à rajouter les cotes simple si le contenu de ton champ de ton formulaire est du texte ;)
Mais ici c'est un ID et donc du numérique je suppose ;)

Merci à tous les deux pour vos conseils :merci:

J'ai finalement abouti à:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 Const cstStatutRealise As String = "Réalisée" Const cstStatutAFaire As String = "En cours" Dim strRequete As String Dim strType As String If IsNull(Me.ZoneListeDeroulante_Type) Then strType = "*" Else strType = Me.ZoneListeDeroulante_Type End If strRequete = "UPDATE Table_A" _ & " SET Table_A.Champs_Statut='" & cstStatutRealise & "'" _ & " WHERE (Table_A.Champs_Statut='" & cstStatutAFaire & "')" _ & " AND (Table_A.Champs_Type Like '" & strType & "')" _ & " AND (Table_A.Champs_ID=" & Formulaire_Ident.ZoneListeDeroulante_Nom & ")" _ & " WITH OWNERACCESS OPTION;"
Champs_ID est numérique donc pas de simple quotes.
Champs_Type est de type numérique, mais je souhaite dans certain cas utiliser "*", donc j'ai maintenu le Like avec les simples quotes. La syntaxe originale était plutôt " AND (Table_A.Champs_Type Like '*" & strType & "*')", mais je ne vois pas trop l'intérêt...
Par ailleurs, j'ai retiré les INNER JOIN (issus du SELECT généré par le générateur de requête Access) puisque tous les champs que j'ai à tester sont présents dans Table_A et que le champs à modifier n'est présent QUE dans Table_A. Je ne crois pas faire de bêtise.

J'ai bien noté la syntaxe

Code:

CurrentDb.Execute strRequete

que je vais préférer au RunSQL pour les raisons citées par Didier.

Vous noterez que j'ai ajouté

Code:

" WITH OWNERACCESS OPTION;"

à la fin de la requête, pour d'accorder à l'utilisateur qui exécute cette requête les mêmes autorisations qu'au propriétaire de la requête (ref: tuto Le Langage SQL appliqué à Access par Alexandre le Grand)

Est-ce nécessaire ?

Je flague "Résolu", mais toute précision sera le bienvenu ;)

08/04/2015, 21h38
Didier L

Bonsoir,

Citation:

Vous noterez que j'ai ajouté
" WITH OWNERACCESS OPTION;"
à la fin de la requête, pour d'accorder à l'utilisateur qui exécute cette requête les mêmes autorisations qu'au propriétaire de la requête (ref: tuto Le Langage SQL appliqué à Access par Alexandre le Grand)

Est-ce nécessaire ?

Pas à ma conaissance.
Je ne l'ai jamais utilisé.
Mais je n'ai pas de recul pour savoir dans quel cas cela pourrait être util ou pas 8O