Discussion :

[djibysadji]

Bonsoir!
J'essaie d'afficher les résultats d'une requête en sélectionnant parmi les boutons d'option et en saisissant du texte dans le textbox appelé ici txtcherche. Mais aucune ligne ne s'affiche dans la listbox. Est-ce parce que c'est une requête qu'il y a ce problème? J'ai déjà utilisé ce code et cela avait fonctionné; mais la source était une table et non une requête.
Voici le code:

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
19
Private Sub Txtcherche_Change()
Dim strrowsource As String
 
strrowsource = "Select [Classe_libelle], [Eleve_nom], [Matiere_libelle], [Devoir_libelle]" & "FROM RNIND_notes_eleves"
 
Select Case Me.Cadre20
Case 1
'strrowsource = strrowsource & " where [PRENOMS_EL] Like ""*" & Me.Txtcherche.Text & "*"""
strrowsource = strrowsource & " where  [Eleve_nom]like ""*" & Me.Txtcherche.Text & "*"""
Case 2
strrowsource = strrowsource & " where  [Classe_libelle]like ""*" & Me.Txtcherche.Text & "*"""
Case 3
strrowsource = strrowsource & " where  [Matiere_libelle]like ""*" & Me.Txtcherche.Text & "*"""
Case Else
strrowsource = strrowsource & " where  [Devoir_libelle]like ""*" & Me.Txtcherche.Text & "*"""
 
End Select
TxtListbox.RowSource = strrowsource
End Sub

djibysadji

[micniv]

De mon côté je trouve plus facile d'utiliser

Code :

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

1
2
strrowsource = strrowsource & " where  [Eleve_nom]like '*" & Me.Txtcherche.Text & "*'" 
...

et utilise des

Code :

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

debug.print strrowsource

pour vérifier le résultat

[djibysadji]

Bonsoir micnic!
J'ai utilisé les changements proposés mais toujours aucune ligne ne s'affiche dans la listbox.

[micniv]

As tu essayé la requête affichée - dans la fenetre Execution du VBE - par la ligne

Code :

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

 debug.print strrowsource

Cette requête renvoie t'elle les lignes attendues ?

En relisant : il faut un espace avant le LIKE

[djibysadji]

Bonjour micniv, le forum!
C'est résolu! La fenêtre d'exécution m'a aidé à trouver la faille.
Merci encore une fois pour la piste.
Cependant je trouve que j'ai choisi une approche qui ne me satisfait pas à cent pour cent. Elle me donne seulement la possibilité de sélectionner un critère. Je voudrais pouvoir choisir au moins deux critères. Par exemple le nom de l'élève et la matière.
Le formulaire est surtout destiné à consulter les notes des élèves individuellement.
Je sais qu'avec les cages à cocher il possible de faire une sélection multiple mais je ne sais pas encore les utiliser.

[micniv]

Je voudrais pouvoir choisir au moins deux critères. Par exemple le nom de l'élève et la matière

Effectivement, il ne faut pas utiliser des cases à cocher dans ce cas.
Utilise une liste déroulante txtEleve pour l'élève, puis une autre pour la matière, puis une autre pour ...

et crée une fonction AddWhere pour remplir le prédicat WHERE

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
function AddWhere() as string
 
AddWhere = " TRUE "
 
if len(nz(txtEleve)) > 0 then
' si le controle est rempli
AddWhere = AddWhere & " AND [Eleve_nom] LIKE '*" & Me.txtEleve & "*'" 
end if 
 
if len(nz(txtMatiere)) > 0 then
' si le controle est rempli
AddWhere = AddWhere & " AND [Matiere_libelle] LIKE '*" & Me.txtMatiere & "*'" 
end if 
 
... ' si d'autres critères
 
end function

et pour l'utiliser tu modifies la ligne de ton prog

Code :

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

strrowsource = strrowsource & " WHERE " & AddWhere

bon we

[djibysadji]

Bonjour micniv
Génial! Exactement ce que je voulais.
Merci