Discussion :

[Ragnarok85]

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 :

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

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

[Ragnarok85]

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

Voilà

[Oleff]

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 :

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

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 & "'")

[Ragnarok85]

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

[cafeine]

Hello,

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

[soltani1]

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+

[Ragnarok85]

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

Code :

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

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