Discussion :

[Dryss51]

Bonjour,

Dans un contexte d'archivage, j'ai réalisé des requètes de suppression.
Ces requètes fonctionnent parfaitement dans access, j'ai donc récupéré le code sql que j'ai mis dans une variable chaine de caractère "SuppAction".
J'execute ensuite cette variable grace à un docmd.runSql SuppAction. (Tout ceci est réaliser à la suite d'un click_bouton.)

Et cela génère une erreur de syntaxe 3075 !!

Voila un Bout du code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
SuppAction = "DELETE DISTINCTROW Action.*, [Commande Matériel Exxon].N°CommandeExxon" _
        & "FROM (Proposition INNER JOIN ([Action] INNER JOIN Générer ON Action.N°Action = Générer.N°Action) ON Proposition.N°propo = Générer.N°propo) INNER JOIN ([Commande Matériel Exxon] INNER JOIN ([Affaire SIE] INNER JOIN (Matériel INNER JOIN Posseder ON Matériel.[iD Matériel] = Posseder.[iD Matériel]) ON [Affaire SIE].N°AffaireSIE = Matériel.N°AffaireSIE) ON [Commande Matériel Exxon].N°CommandeExxon = [Affaire SIE].N°CommandeExxon) ON Proposition.N°propo = Posseder.N°propo" _
        & "WHERE ((([Commande Matériel Exxon].N°CommandeExxon)= "& N°Comm & "));"
 
DoCmd.RunSQL SuppAction

Si quelqu'un pourrait m'aider car la je bloque....

[Domi2]

Bonjour,

Essaie déjà comme ceci. J'ai mis un espace avant le " de fin de ligne.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
SuppAction = "DELETE DISTINCTROW Action.*, [Commande Matériel Exxon].N°CommandeExxon " & _
             "FROM (Proposition INNER JOIN ([Action] INNER JOIN Générer ON Action.N°Action = Générer.N°Action) ON Proposition.N°propo = Générer.N°propo) INNER JOIN ([Commande Matériel Exxon] INNER JOIN ([Affaire SIE] INNER JOIN (Matériel INNER JOIN Posseder ON Matériel.[iD Matériel] = Posseder.[iD Matériel]) ON [Affaire SIE].N°AffaireSIE = Matériel.N°AffaireSIE) ON [Commande Matériel Exxon].N°CommandeExxon = [Affaire SIE].N°CommandeExxon) ON Proposition.N°propo = Posseder.N°propo " & _
             "WHERE ((([Commande Matériel Exxon].N°CommandeExxon)= "& N°Comm & "));"

Domi2

[Dryss51]

Je n'efface pas ce post car il peut conduire certaine personne à débugger, j'ai cherché et recherché, cela faisait 2h que j'etais entrain de me triturer les méninges.

Je Poste sur le forum, et je fais ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
SuppAction = "DELETE DISTINCTROW Action.*, [Commande Matériel Exxon].N°CommandeExxon" _
        & " FROM (Proposition INNER JOIN ([Action] INNER JOIN Générer ON Action.N°Action = Générer.N°Action) ON Proposition.N°propo = Générer.N°propo) INNER JOIN ([Commande Matériel Exxon] INNER JOIN ([Affaire SIE] INNER JOIN (Matériel INNER JOIN Posseder ON Matériel.[iD Matériel] = Posseder.[iD Matériel]) ON [Affaire SIE].N°AffaireSIE = Matériel.N°AffaireSIE) ON [Commande Matériel Exxon].N°CommandeExxon = [Affaire SIE].N°CommandeExxon) ON Proposition.N°propo = Posseder.N°propo" _
        & " WHERE ((([Commande Matériel Exxon].N°CommandeExxon)= " & N°Comm & " ));"

J'ai juste rajouter un espace après les guillemets au retour de ligne, alors que sur d'autre requètes que je rentre dans des variables genre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
SauvPropo = "SELECT [Commande Matériel Exxon].N°CommandeExxon, [Commande Matériel Exxon].Demandeur, [Commande Matériel Exxon].MatérielDemandé, [Commande Matériel Exxon].DateDébutExx, [Commande Matériel Exxon].DateFinExx, [Commande Matériel Exxon].NomProjetExxon, [Commande Matériel Exxon].[Nom Fournisseur], [Affaire SIE].N°AffaireSIE, [Affaire SIE].ChargéAffaire, [Affaire SIE].[Date Reception Propo], [Affaire SIE].[Date création affaire], [Affaire SIE].[Date fin affaire], [Affaire SIE].[Nombre d'heure attribuée], Matériel.[iD Matériel], Matériel.Repère, Matériel.Désignation, Posseder.[iD Matériel], Posseder.N°propo, Proposition.N°propo, Proposition.[Date Création propo], Comprendre.N°propo, Comprendre.[N°Type Action], Comprendre.[NB Heures pour une action], [Type action].Désignation INTO backupPropo IN 'C:\Transfert\La base\Archivage\Archivage.mdb'" _
        & "FROM (Proposition INNER JOIN ([Commande Matériel Exxon] INNER JOIN ([Affaire SIE] INNER JOIN (Matériel INNER JOIN Posseder ON Matériel.[iD Matériel] = Posseder.[iD Matériel]) ON [Affaire SIE].N°AffaireSIE = Matériel.N°AffaireSIE) ON [Commande Matériel Exxon].N°CommandeExxon = [Affaire SIE].N°CommandeExxon) ON Proposition.N°propo = Posseder.N°propo) INNER JOIN ([Type action] INNER JOIN Comprendre ON [Type action].[N°Type Action] = Comprendre.[N°Type Action]) ON Proposition.N°propo = Comprendre.N°propo " _
        & "WHERE ((([Commande Matériel Exxon].N°CommandeExxon)=" & N°Comm & "));"

Il n'y a pas d'espace et ça marche très bien...
c'est à n'y rien comprendre

[Dryss51]

Merci Domi je pense que tu avais parfaitement cerné le problème, d'ailleur dorénavant, je pense que j'utiliserai ta technique qui doit moins facilité les bugs d'espacement