Discussion :

[pphil972]

Bonsoir, j' ai un souci avec la déclaration d'un recordset qui me renvoie une erreur "Opérateur Absent".Ci-dessous la requête, pouvez-vous m'aider ? Merci.

Code :

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

1
2
3
4
5
Dim aDb As DAO.Database
Dim aRst As DAO.Recordset
 
    Set aDb = CurrentDb
    Set aRst = aDb.OpenRecordset("SELECT COUNT (*) FROM PRODUIT WHERE PRODUIT.PRESTATION = " & [Forms]![AJOUT_ACTION]![PRESTATION])

[Invité]

Salut,

ton champ Prestation est de quel type?

[6ril25]

Salut,

pense aussi à ajouter

Code :

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

AS compteur

après le "count(*)"
soit, donc

Code :

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

SELECT COUNT(*) AS compteur FROM PRODUIT

[pphil972]

Prestation est de type Variant par défaut.

[pphil972]

Quand je mets:

Code :

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

SELECT COUNT(*) AS compteur FROM PRODUIT

Cela ne change rien j'ai toujours le même message d'erreur à savoir :

Erreur de syntaxe (Opérateur absent) dans l'expression 'PRODUIT.PRESTATION=AAA25B'

Apparemment il manque un opérateur dans cette expression ...mais lequel ?
Merci de votre aide.

[willcartley]

Essaye çà pour voir :

Code :

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

Set aRst = aDb.OpenRecordset("SELECT COUNT (*) FROM PRODUIT WHERE PRODUIT.PRESTATION = """ & [Forms]![AJOUT_ACTION]![PRESTATION]) & """"

[Invité]

Essaye çà pour voir :

Code :

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

Set aRst = aDb.OpenRecordset("SELECT COUNT (*) FROM PRODUIT WHERE PRODUIT.PRESTATION = """ & [Forms]![AJOUT_ACTION]![PRESTATION]) & """"

Je mettrais des simple quotes (Enfin c'est à tester):

Code :

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

Set aRst = aDb.OpenRecordset("SELECT COUNT (*) FROM PRODUIT WHERE PRODUIT.PRESTATION = "'" & [Forms]![AJOUT_ACTION]![PRESTATION]) & "'"

[pphil972]

Aucune des solutions proposées ne fonctionnent, me renvoi un message "incompatibilité de type" pour la solution:

Code :

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

Set aRst = aDb.OpenRecordset("SELECT COUNT (*) FROM PRODUIT WHERE PRODUIT.PRESTATION = """ & [Forms]![AJOUT_ACTION]![PRESTATION]) & """"

et erreur sur la syntaxe sur la dernière solution:

Code :

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

Set aRst = aDb.OpenRecordset("SELECT COUNT (*) FROM PRODUIT WHERE PRODUIT.PRESTATION = "'" & [Forms]![AJOUT_ACTION]![PRESTATION]) & "'"

[Invité]

Aucune des solutions proposées ne fonctionnent, me renvoi un message "incompatibilité de type" pour la solution:

Code :

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

Set aRst = aDb.OpenRecordset("SELECT COUNT (*) FROM PRODUIT WHERE PRODUIT.PRESTATION = """ & [Forms]![AJOUT_ACTION]![PRESTATION]) & """"

et erreur sur la syntaxe sur la dernière solution:

Code :

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

Set aRst = aDb.OpenRecordset("SELECT COUNT (*) FROM PRODUIT WHERE PRODUIT.PRESTATION = "'" & [Forms]![AJOUT_ACTION]![PRESTATION]) & "'"

La parenthèse fermante était mal placée... désolé -> il faut la déplacer à la fin

Set aRst = aDb.OpenRecordset("SELECT COUNT (*) FROM PRODUIT WHERE PRODUIT.PRESTATION = "'" & [Forms]![AJOUT_ACTION]![PRESTATION] & "'")

[pphil972]

La dernière solution ne correspond pas non plus car la syntaxe est erronnée. Merci ....

[willcartley]

Prestation est de type Variant par défaut.

Tu peux mettre le type variant pour un champ d'une table Access?
Si ce champ est numérique, essaye çà:

Code :

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

Set aRst = aDb.OpenRecordset("SELECT COUNT (*) FROM PRODUIT WHERE PRODUIT.PRESTATION = " & [Forms]![AJOUT_ACTION]![PRESTATION] & ";")

Si texte :

Code :

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

Set aRst = aDb.OpenRecordset("SELECT COUNT (*) FROM PRODUIT WHERE PRODUIT.PRESTATION = """ & [Forms]![AJOUT_ACTION]![PRESTATION] & """;")

Edit: Effectivement, attention aussi à la parenthèse...