Discussion :

[gio4ever]

Bonjour...

J'aimerai un peu d'aide pour un code.
J'ai une table "Clients", contenant la liste des clients d'une entreprise. J'ai créer un formulaire permetant d'afficher cette liste. J'aimerai permetre a l'utilisateur d'afficher les client par ville.

j'ai donc crée une zone de texte indépendante et un bouton, en introduisant le code suivant:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub OK_Click()
f = ""
If Not IsNull(Me.Rville) And Me.Rville <> "" Then
If f <> "" Then
f = f & " AND Clients_ville = """ & Me.Rville & """"
Else
f = "Clients_ville = """ & Me.Rville & """"
End If
End If
Me.Filter = f
Me.FilterOn = True
 
End Sub

Maintenant, comment faire si je veu afficher les clients de deux ville differentes?

Peut on trouver un code permetant d'utiliser un operateur logigue. Exemple : Strasbourg ET lyon ???

ou bien

Peut on trouver un code permetant d'utliser une liste au lieu d'une zone de texte, et séléctionner plusieur element de la zone de texte??

[Arkham46]

slt

En transformant RVille en Zone de Liste avec propriété Selection = Etendu

Code :

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

1
2
3
4
5
6
7
8
Private Sub OK_Click()
Dim i As Variant
Me.Filter = ""
For Each i In Rville.ItemsSelected
Me.Filter = Me.Filter & IIf(Me.Filter = "", "", " OR ") & "Clients_ville= '" & Rville.ItemData(i) & "'"
Next
Me.FilterOn = True
End Sub

[gio4ever]

Humm...c sa...parfait...mais sa me pose un deuxième problème!!

j'ai maintenant une liste pour trier par ville...comment faire si je trier mes client a la fois par ville, et par "capacité du magasin"

j'ai crée une autre liste renvoyant les valeurs de la capacité du mag.

j'ai tenté le code suivant:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub OK_Click()
Dim i As Variant
Me.Filter = ""
For Each i In Rville.ItemsSelected
Me.Filter = Me.Filter & IIf(Me.Filter = "", "", " OR ") & "Clients_ville= '" & Rville.ItemData(i) & "'"
Next
For Each j In Rcapacite.ItemsSelected
Me.Filter = Me.Filter & IIf(Me.Filter = "", "", " OR ") & "Clients_capacite= '" & Rcapacite.ItemData(j) & "'
next
Me.FilterOn = True
End Sub

Le code marche, cependant, il me ressort tous
les client de la ville x OU les client ayant un mag de capacité y
j'aimerai changé sa afin d'avoir tous
les client de la ville x ET les client ayant un mag de capacité y

Quelqu'un a une idée??

[gio4ever]

help

[keita]

salut
je te suggere de faire un sous form pour voir les clients; il y aura plus d'infos; à l'allure où tu vas tu va certainement finir par cela.
@+

[gio4ever]

y'a pas moyen de rester sur du code???

[keita]

Bien sur que tu feras tout ça avc du code; cependant si tu preferes avc les listes eh bien je regarde ton code et je te repost
@+

[Arkham46]

ben tu mets un ET au milieu non?

en gros un truc comme ça si j'ai bien compris :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub OK_Click()
Dim i As Variant
dim lFilterVille as string
dim lFilterCapacite as string
Me.Filter = ""
For Each i In Rville.ItemsSelected
lFilterVille = lFilterVille  & IIf(lFilterVille  = "", "", " OR ") & "Clients_ville= '" & Rville.ItemData(i) & "'"
Next
For Each j In Rcapacite.ItemsSelected
lFilterCapacite = lFilterCapacite & IIf(lFilterCapacite = "", "", " OR ") & "Clients_capacite= '" & Rcapacite.ItemData(j) & "'
next
me.filter = "(" & IIf(lFilterVille  = "", "1=1",  lFilterVille) & ")  AND (" & IIf(lFilterCapacite = "", "1=1",  lFilterCapacite)  & ")"
Me.FilterOn = True
End Sub

[gio4ever]

Genial...sa marche nikel. Merci bcps