code dans une requête SQL

Bonjour
En fait le but de ce code est d'afficher une liste d'objet d'une table selon des critères(ici le nom du livre, celui de l'auteur...) choisi grâce à des cases d'option, et selon une liste(LstRecherche).
Par exemple l'utilisateur cherche un bouquin par auteur, il coche le critère par auteur, puis il choisit ds la liste le nom de l'auteur.
Mais après j'ai un problème pr afficher la recherche.

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private Sub cmdRechercher_Click()   If chkChoix.Value = 1 Then DoCmd.RunSQL ("SELECT * FROM qryListebis WHERE ObjectNomAuteur = " & LstRecherche.Value) ElseIf chkChoix.Value = 2 Then DoCmd.RunSQL ("SELECT * FROM qryListebis WHERE ObjectNomLivre = " & LstRecherche.Value) ElseIf chkChoix.Value = 3 Then DoCmd.RunSQL ("SELECT * FROM qryListebis WHERE ObjectNomCollection = " & LstRecherche.Value) End If   End Sub

---

Merci pr votre aide

J'ai oublié d'indiquer l'erreur:
erreur '3075'
Erreur de syntaxe ds l'expression
'ObjectNomAuteur='

Voilà

Si les valeurs de la liste sont des String, il faut mettre la valeur entre quotes
Personnellement j'encadre ce typre de valeurs par des chr(34) (double quote) pour éviter les problêmes d'apostrophes.

Code:

---

1 2 3

DoCmd.RunSQL ("SELECT * FROM qryListebis WHERE ObjectNomAuteur = " & chr(34) & LstRecherche.Value & chr(34)) Ou DoCmd.RunSQL ("SELECT * FROM qryListebis WHERE ObjectNomAuteur = '" & LstRecherche.Value & "'")

---

J'ai effectué la modification, maintenant erreur '2342'
Une action ExecuterSQL nécessite un argumant consistant en une instruction SQL

Je suis bloqué devant ca:?

Hello,

pense à déboguer ton SQL :
http://cafeine.developpez.com/access...el/debugprint/

Bonjour,

la définition de runsql

RunSQL(InstructionSQL, UtiliserTransaction)

instructionSQL: Expression chaîne qui correspond à une instruction SQL valide pour une requête action ou une requête définition des données. Elle utilise une instruction INSERT INTO, DELETE, SELECT...INTO, UPDATE, CREATE TABLE, ALTER TABLE, DROP TABLE, CREATE INDEX ou DROP INDEX.

A+

Merci à tous, j'ai compris certaines choses et cela fonctionne je laisse le code final:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Private Sub cmdRechercher_Click()   If chkChoix.Value = 1 Then LstRecherche.RowSource = "SELECT * FROM tblLivre WHERE ObjectNomAuteur = txtCledeRecherche.Value " ElseIf chkChoix.Value = 2 Then LstRecherche.RowSource = "SELECT * FROM tblLivre WHERE ObjectNomLivre = txtCledeRecherche.Value " ElseIf chkChoix.Value = 3 Then LstRecherche.RowSource = "SELECT * FROM tblLivre WHERE ObjectNomCollection = txtCledeRecherche.Value "   End If   End Sub

---