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.
Merci pr votre aide
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
Partager