Discussion :

[Arola78]

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

[Chtulus]

Bonjour,

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

[Arola78]

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 :

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

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()

[Chtulus]

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

Code :

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

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

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

[Arola78]

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