SQL transformé en VBA

Bonjour,
Voici une requête

Code:

---

UPDATE Paramètres SET Cpt2 = DCount("Classement","Valeurs","Classement = '" & [Lib1] & "'");

---

que j'éxécute avec cette commande :

Code:

---

DoCmd.OpenQuery "1R-PARAM-CLASSEUR-COMPTAGE", acViewNormal, acEdit

---

Cela fonctionne correctement mais j'ai voulu insérer cette requête directement dans une procédure événementielle de cette façon :

Code:

---

1 2 3 4 5 6 7

stClassement = Chr(34) & "Classement" & Chr(34) stValeurs = Chr(34) & "Valeurs" & Chr(34) stCritere = Chr(34) & "Classement = ' & [Lib1] & ' " & Chr(34) MsgBox stClassement & " -- " & stValeurs & " -- " & stCritere SQL = "UPDATE Paramètres SET Cpt2 = DCount('stClassement', 'stValeurs', 'stCritere')" DoCmd.RunSQL (SQL)

---

Après éxécution j'ai la MsgBox : Microsoft Office Access Inconnu
Où est mon erreur ?
Merci

Bonjour,

Que déclares-tu à l'ouverture, outre tes variables ? :)

Merci pour la réponse.
J'ai pas bien compris ce que tu me demande, toutefois voilà ce que j'ai déclaré en début de procédure (elle s'active sur le clic d'un bouton).

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Dim SQL As String Dim SQLup As String Dim dbCurrent As Database Dim stDocName As String Dim stLinkCriteria As String Dim Curseur As DAO.Recordset Dim Titre_évalué As String Dim Nb As Integer Dim Comments As String Dim stIndex As String Dim stTitre As String Dim stVal As Double Dim stClassement As String Dim stValeurs As String Dim stCritere As String   Set dbCurrent = CurrentDb()

---

Citation:

---

MsgBox stClassement & " -- " & stValeurs & " -- " & stCritere

---

Code:

---

1 2	MsgBox ("stClassement & " -- " & stValeurs & " -- " & stCritere")

---

Le reste à l'air d'être bon...

La réponse que me fait MSO 'Microsoft Office Access : Inconnu'
semblerait vouloir dire qu'il ne trouve pas d'articles correspondant à stCritere dans la table Valeurs donc qu'il interprète mal cette chaîne de caractères.
Mais je ne vois pas pourquoi :(