Discussion :

[Apoulit]

Bonjour @ tous,
j'ai une listebox qui se met à jour selon 3 critères, Noms, catégories, année, sur ma base de donnée T_sports de la manière suivante :

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
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Private Sub txtchercheNoms_AfterUpdate()
 
strRowSource = "SELECT [Noms],[categorie],[annee]" & "FROM T_Sports " & _
"WHERE [Noms] like '*" & Me.txtchercheNoms.Text & "*'"
 
 
 
Liste1.RowSource = strRowSource
End Sub
 
 
Private Sub txtcherchecategorie_AfterUpdate()
 
strRowSource = "SELECT [noms],[categorie],[annee]" & "FROM T_Sports " & _
"WHERE [categorie] like '*" & Me.txtcherchecategorie.Text & "*'"
 
 
Liste1.RowSource = strRowSource
 
 
 
End Sub
 
Private Sub txtchercheannee_Change()
 
 
 
strRowSource = "SELECT [noms],[categorie],[annee]" & "FROM T_Sports " & _
"WHERE [annee] like '*" & Me.txtchercheannee.Text & "*'"
 
 
 
 
 
Liste1.RowSource = strRowSource
End Sub

Alors ça fonctionne, mais avec un seul critère à la fois et donc je peux trier que par les noms, ou que les catégories, ou que les sports pratiqués, je voudrais savoir si mon code peut être modifié pour obtenir un tri sur les 3 critères en même temps.
ex : Dupont , senior , badminton : il faut que sur ma listebox1 apparaissent tous les Dupont qui sont seniors et qui pratiquent le badminton.

Merci d'avance !

[Jean-Philippe André]

Salut,

dans les 3 evenements Change, tu peux faire une seule procédure appelee- exemple

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub txtchercheNoms_AfterUpdate()
ProcedureCommune
End Sub
 
Sub ProcedureCommune()
strRowSource = "SELECT [noms],[categorie],[annee]" & "FROM T_Sports " & _
"WHERE [annee] like '*" & Me.txtchercheannee.Text & "*' AND [Noms] like '*" & Me.txtchercheNoms.Text & "*' and [categorie] like '*" & Me.txtcherchecategorie.Text & "*'"
 
Liste1.RowSource = strRowSource
End Sub

attention aux apostrophes dans les noms ou catégories

[Apoulit]

Bonjour JPA,
le code fonctionne pas, mais je l'avais déjà essayé, le problème viens de la condition AND qui n'est pas pris en compte d'ailleurs elle passe pas en bleu tu peux écrire AND and ou And c'est pareil ça rectifie pas :/
Mais l'idée c'est ça, on bute sur quelque chose là :/

Merci, à te lire.

[Jeannot45]

Une piste que tu pourrais exploiter en lisant le tuto : Listes multifonctions qui explique comment gèrer ce genre de problème.

Bonne lecture

[hyperion13]

Alors écrire Where ou WHERE, AND ou And ou and n'impacte nullement le résultat de la req.

ÉDIT : Ôtez-nous d'un gros doute, vous êtes bien sur une listbox et non pas sur un subform ? Parce que dans un de vos billets d'hier vous cherchez à remettre à zéro des champs d'un subform de recherche à son ouverture ?

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
20
21
22
23
24
25
26
27
28
29
Private Sub Form_Current()
Me.listspo.RowSource = "SELECT * FROM tbl_spo;"
End Sub
Private Sub txtnom_AfterUpdate()
'Me.listspo.RowSource = "SELECT * FROM tbl_spo WHERE [nom_spo] Like '*" & Me.txtnom & "*' AND [cat_spo] Like '*" & Me.txtcat & "*' AND [annee_spo] Like '*" & Me.txtannee & "*';" 'si filtre appliqué sur listbox
FilterForm 'si filtre appliqué sur sform
End Sub
Private Sub txtcat_AfterUpdate()
'Me.listspo.RowSource = "SELECT * FROM tbl_spo WHERE [nom_spo] Like '*" & Me.txtnom & "*' AND [cat_spo] Like '*" & Me.txtcat & "*' AND [annee_spo] Like '*" & Me.txtannee & "*';"'si filtre appliqué sur listbox
FilterForm 'si filtre appliqué sur sform
End Sub
Private Sub txtannee_AfterUpdate()
'Me.listspo.RowSource = "SELECT * FROM tbl_spo WHERE [nom_spo] Like '*" & Me.txtnom & "*' AND [cat_spo] Like '*" & Me.txtcat & "*' AND [annee_spo] Like '*" & Me.txtannee & "*';"'si filtre appliqué sur listbox
FilterForm 'si filtre appliqué sur sform
End Sub
Sub FilterForm() 'pour sform
Dim strWhere As String
If Not IsNull(txtnom) Then strWhere = " and [nom_spo] = '" & txtnom & "'"
If Not IsNull(txtcat) Then strWhere = strWhere & " and [cat_spo] = '" & txtcat & "'"
If Not IsNull(txtannee) Then strWhere = strWhere & " and [annee_spo] = '" & txtannee & "'"
 
If strWhere = "" Then
    Forms!form_spo!form_spo_sf.Form.FilterOn = False
Else
    strWhere = Mid(strWhere, 5)
    Forms!form_spo!form_spo_sf.Form.Filter = strWhere
    Forms!form_spo!form_spo_sf.Form.FilterOn = True
End If
End Sub

[Apoulit]

Bonsoir à tous désolé pour la réponse tardive j'étais en déplacement, je mis recolle.
hyperion13, tu es sûr de pas confondre ? Le billet précédent été pour faire une somme d'un colonne prix d'une listebox ...la même en fait

Bon je regarde tout ça et je reviens vers vous, merci beaucoup pour vos réponses, bon week end @ tous.

[Apoulit]

Alors écrire Where ou WHERE, AND ou And ou and n'impacte nullement le résultat de la req.

Je le savais ...

ÉDIT : Ôtez-nous d'un gros doute, vous êtes bien sur une listbox et non pas sur un subform ? Parce que dans un de vos billets d'hier vous cherchez à remettre à zéro des champs d'un subform de recherche à son ouverture ?

c'est une liste box avec des entêtes de colonnes, du coup je ne comprends pas ce bout de code ...

Code :

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

1
2
3
4
5
6
7
8
If strWhere = "" Then
    Forms!form_spo!form_spo_sf.Form.FilterOn = False
Else
    strWhere = Mid(strWhere, 5)
    Forms!form_spo!form_spo_sf.Form.Filter = strWhere
    Forms!form_spo!form_spo_sf.Form.FilterOn = True
End If
End Sub

Moi mon userfom s'appelle F_Abonnes
Ma liste Liste1

Sur ton exemple form_spo est le nom de ton form et list_spo celui de ta liste donc j'ai transformé en mais il ne se passe rien ?

Code :

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

1
2
3
4
5
6
7
8
If strWhere = "" Then
    Forms!F_Abonnes.FilterOn = False
Else
    strWhere = Mid(strWhere, 5)
    Forms!F_Abonnes.Filter = strWhere
    Forms!F_Abonnes.FilterOn = True
End If
End Sub

Parceque ton subform s'appelle sf_spo mais tu écris :

Code :

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

Forms!form_spo!form_spo_sf.Form.FilterOn = False

spo_sf ou sf_spo ?



Merci.

[hyperion13]

Pourtant, les annotations dans le code Post#5 ne souffrent d'aucune équivoque.
Pourquoi faire une fixation sur la proc qui concerne le sf alors que vous travaillez sur une listbox ?