Discussion :

[JimmyB]

Je chercher à mettre un filtre dans une zone de liste, qui fait référence à une table client.

Je veux que si tu clique sur un bouton A qui affiche les Noms de famille qui commencent par A dans ma zone de liste.

Merci de bien vouloir m'aider

[Dolphy35]

Salut,

Sur click du bouton tu change la source de ta zone de liste

RowSource

[Frank]

Il faut créer une requête qui s'execute sur le clic de ton bouton et qui passe en clause where la valeur A sur les noms de tes CLIENTS:
exemple:

Code :

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

where nomclients like "A*"

La requête doit être le rowsource de ta zone de liste.
quelque chose du genre:

Code :

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

mazonedeliste.rowsource="MaRequête"

[JimmyB]

Voici le code de ma requête

Code :

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

1
2
3
4
SELECT [Nom] & " " & [Prenom] AS Expr1
FROM Client
WHERE ((([Nom] & " " & [Prenom]) Like "A*"))
ORDER BY [Nom] & " " & [Prenom];

Ma requête s'appelle aussi A

La requête doit être le rowsource de ta zone de liste.
quelque chose du genre:

Je place ça ou??
Liste33.rowsource="A"

Liste33 est ma zone de liste

Merci

[Frank]

Voici le code de ma requête

Code :

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

1
2
3
4
SELECT [Nom] & " " & [Prenom] AS Expr1
FROM Client
WHERE ((([Nom] & " " & [Prenom]) Like "A*"))
ORDER BY [Nom] & " " & [Prenom];

Ma requête s'appelle aussi A

La requête doit être le rowsource de ta zone de liste.
quelque chose du genre:

Je place ça ou??
Liste33.rowsource="A"

Liste33 est ma zone de liste

Merci

Il faut créer une requête qui s'execute sur le clic de ton bouton

[JimmyB]

Oui je sais, sauf que ça ouvre une nouvelle table de ma requête avec les Noms qui débutent par A

Merci

[JimmyB]

Voici le code du bouton

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
Private Sub Commande68_Click()
On Error GoTo Err_Commande68_Click
 
    Dim stDocName As String
 
    stDocName = "A"
    DoCmd.OpenQuery stDocName, acNormal, acEdit
 
Exit_Commande68_Click:
    Exit Sub
 
Err_Commande68_Click:
    MsgBox Err.Description
    Resume Exit_Commande68_Click
 
End Sub

Merci

[Dolphy35]

Code :

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

1
2
3
4
Private Sub Commande68_Click() 
 
Liste33.rowsource
End Sub

derrière le RowSource tu met ta requête.

[JimmyB]

J'aimerais avoir plus de détails Dolphy35, je suis nul. Je ne cromprends pas derrière le RowSource tu met ta requête.

Merci

[JimmyB]

Si c'est ça, sa ne marche pas!!!

Code :

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

1
2
3
4
5
Private Sub Commande68_Click()
 
    Liste33.RowSource = "A"
 
End Sub

Merci

[JimmyB]

Désolé, ça marche, j'avais juste oublié de mettre une collonne dans ma requête ID.

Un gros merci à tous, vous êtes des machines d'Access

Bye