Discussion :

[Invité]

Bonjour,

J'ai le message d'erreur suivant lorsque j'exécute la fonction suivante :

Instruction SQL non valide ; 'DELETE', 'INSERT', 'PROCEDURE', 'SELECT' ou 'UPDATE' attendus. (Erreur 3129)

Mon code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub bt_supprCat_Click()
Dim nbProd As Integer
Dim sql1 As String
nbProd = DCount("*", "[jos_vm_product_category_xref]", "[category_id]=" & Me.category_id & "")
If (nbProd = 0) Then
sql1 = "DELETE * FROM [jos_vm_category_xref] WHERE [categorie_child_id] = " & Me.category_id & ";"
 
DoCmd.RunSQL "sql1"
 
Else
MsgBox nbProd
End If
End Sub

Je ne vois vraiment d'où vient mon erreur, elle doit être toute bête mais je n'arrive pas à comprendre

Merci d'avance

PS: désolé si ce n'est pas le bon forum J'ai hésité entre celui-ci et celui sur le VBA

[Jean-Philippe André]

salut,
tu passes la chaine de caracteres "sql1" au lieu du contenu de la variable sql1.
Tu as donc des guillemets en trop
essaie avec

Code :

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

DoCmd.RunSQL sql1

[Invité]

Oui effectivement ça fonctionne mieux ^^

Comme quoi ça aide d'avoir un regard extérieur car c'est vraiment une erreur bête

Merci beaucoup de ton aide