Bonjour,
Voici une requête
Code : Sélectionner tout - Visualiser dans une fenêtre à part
UPDATE Paramètres SET Cpt2 = DCount("Classement","Valeurs","Classement = '" & [Lib1] & "'");
que j'éxécute avec cette commande :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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