Probleme Formulaire recherche multi critere

**Ardiden31** · 05/04/2012, 09h21

Bonjour,
Je viens à vous car je rencontre un petit probleme.
J'ai un formulaire basé sur une requete et j'aimerais effectuer un filtre multi critére. Dans ce formulaire j'ai 14 sites avec leurs chiffre d'affaires. Et j'aimerais créer 14 case à cocher pour pouvoir selectionner les site que je veux analyser. J'ai fait un code mais j'ai un inputbox qui s'affiche avec le nom de mon site me demandant de retaper le nom du site. Voici mon code :

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub chksitetaa_Click()
If Me.chksitetaa Then
    Me.Filter = " site = SITE_PARIS"
    Me.FilterOn = True
Else
   Me.FilterOn = False
    Me.Filter = ""
End If
End Sub

Donc ici des que je coche le site de Paris j'ai l'inputbox avec "SITE_PARIS" et je dois rentrer le nom SITE_PARIS pour que le filtre s'effectue.
Je ne vois pas d'ou viens l'erreur.

**Ardiden31** · 05/04/2012, 09h23

Ha oui je vois mon erreur j'ai oublie de mettre les quotes :

Code :

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

Me.Filter = " site = TAA"

qui devient

Code :

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

Me.Filter = " site = 'TAA'"

Par contre j'ai un autre souci. En faite des que je coche SITE_PARIS et SITE_LILLE j'aimerais que les deux site soit visible or c'est toujours le dernier site que je coche qui est visible.

**Ardiden31** · 05/04/2012, 09h31

Voici mon code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub chksitesitetml_Click()
If Me.chksitetaa Then
If Me.chksitetml Then
    Me.Filter = " site = 'SITE_PARIS'" & "and site = 'SITE_LILLE'"
    Me.FilterOn = True
Else
   Me.FilterOn = False
    Me.Filter = ""
End If
End If
End Sub

**Flyoss** · 05/04/2012, 09h33

Envoyé par Ardiden31

Par contre j'ai un autre souci. En faite des que je coche SITE_PARIS et SITE_LILLE j'aimerais que les deux site soit visible or c'est toujours le dernier site que je coche qui est visible.

Pourrais-tu mettre ton code?

**Ardiden31** · 05/04/2012, 09h39

Oui je l'ai mi par contre je suis entrain de le reviser pour voir mon erreur, je vais utiliser les conditions if mais j'ai le meme probleme

**Flyoss** · 05/04/2012, 09h44

Oups désolé pour le code, on a du se croisé entre le moment ou j'ai cliqué sur répondre et le moment ou tu l'as mis

Pourrais tu aussi m'éclairer sur ce que sont chksitetml et chksitetaa?

**Ardiden31** · 05/04/2012, 09h44

La j'ai toujours le meme probleme, il ne prend en compte que le dernier site coché :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub chksitetmb_Click()
If Me.chksitetmb Then
    Me.Filter = " site = 'SITE_LILLE'"
    Me.FilterOn = True
ElseIf Me.chksitetaa Then
    Me.Filter = " site = 'SITE_PARIS'" & "and site =   'SITE_LILLE'"
    Me.FilterOn = True
Else: Me.FilterOn = False
    Me.Filter = ""
End If
 
End Sub

**Ardiden31** · 05/04/2012, 09h46

Ha oui pardon donc :
chksitetaa : correspond à la case à cocher du SITE_PARIS
chksitetmb : correspond à la case à cocher du SITE_LILLE

**Flyoss** · 05/04/2012, 10h01

bon ben je construirais mon filtre un peu comme ça en le mettant dans un string.
J'ai fait une suite de if/end if car je ne sais pas encore boucler sur les checkbox, mais si quelqu'un sait faire, ce serait je pense plus "élégant"

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub chksitetmb_Click()
Dim filtre as string
filtre = "site ='siteimpossiblequinexistepas'"
If Me.chksite1 Then
    filtre = filtre & "or site = 'SITE_LILLE' "
End if
If Me.chksite2 Then
    filtre = filtre & "or site = 'SITE_PARIS' "
End if
If Me.chksite3 Then
    filtre = filtre & "or site = 'SITE_TOURS' "
End if

Dans les filtre j'ai mis des OR, en effet tu veux pas que le site soit égal pour chaque enregistrement à Paris ET Lille en même temps mais plutot a l'un ou l'autre.
J'initialise donc avec un site qui ne peut pas exister et je rajoute toutes mes possibilités derrière.

Et enfin a la fin selon le filtre obtenu tu l'active ou non comme ceci :

Code :

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

1
2
3
4
5
6
7
8
 
If filtre = "site ='siteimpossiblequinexistepas'" then 
	FilterOn = False
    Me.Filter = ""
else
	Me.Filter = filtre
    Me.FilterOn = True
end if

C'est un peu bricolé mais bon, si ça marche

**Ardiden31** · 05/04/2012, 10h12

En faite l'utilité du

Code :

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

filtre = "site ='siteimpossiblequinexistepas'"

c'est de créer un site fictif ?
Je vais tester tout de suite ton code

**Ardiden31** · 05/04/2012, 10h15

Yes perfecto ca marche

Merci encore pour ton temps.

**Flyoss** · 05/04/2012, 10h16

l'interet c'est d'initialiser le filtre. En effet apres je vais rajouter des morceau de filtre qui commencent tous par "or".
Or ce filtre ne peut pas commencer directement par "or" donc je crée un bout de filtre qui ne ressortira rien

Et comme en cas de "non-cochage" tu ne souhaite pas filtrer, si mon filtre ne filtre que ce site fictif, je ne l'applique pas.

Petit correctif au passage j'ai oublié un espace (2 fois) a la fin de la chaine

Code :

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

"site ='siteimpossiblequinexistepas' "

**Ardiden31** · 05/04/2012, 10h19

Juste une derniere question je met ce code la pour chaque case à cocher avec le meme nombre de site ?

**Flyoss** · 05/04/2012, 10h21

pour chaque nouvelle case tu as juste a rajouter un

Code :

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

1
2
3
If Me.chksite3 Then
    filtre = filtre & "or site = 'SITE_TOURS' "
End if

C'est la la limite de mon code, pour 100 cases a cocher tu auras 100 conditions if/then
Donc si quelqu'un est capable de boucler sur des objets dans un formulaire je suis preneur aussi

EDIT

ah et ne refait pas la fonction pour chaque case.
Met la dans une procédure a part que tu rappellera.

**Ardiden31** · 05/04/2012, 10h24

Ok merci pour ton aide je vais aussi regarder dans mes bouquins pour voir les boucles dans un chek.
Merci a toi Flyoss

**Flyoss** · 05/04/2012, 10h27

Si tu veux des pistes ça donne quelque chose comme

for each caseacocher in
......
next caseacocher

et ce n'est pas propre au checkbox, ça doit je pense marcher pour plein de choses, pour moi ça ne marche encore pour....rien

**Ardiden31** · 05/04/2012, 10h30

Oui je vais me créer des formulaires tests et si j'y arrive je le posterai.

**chipester** · 15/08/2019, 10h52

Envoyé par Flyoss

Mon exemple

Code :

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

1
2
3
4
5
6
7
Private Sub Modifiable20_Click()
Dim strwhere As String
strwhere = "MotCle_EMB = '" & Modifiable20 & "''"
    Me.Filter = strwhere
    Me.FilterOn = True
 
End Sub

Plante sur Me.Filter = strwhere.

**tee_grandbois** · 15/08/2019, 11h18

bonjour chipester,

Mon exemple

Code :

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

1
2
3
4
5
6
7
Private Sub Modifiable20_Click()
Dim strwhere As String
strwhere = "MotCle_EMB = '" & Modifiable20 & "''"
Me.Filter = strwhere
Me.FilterOn = True
 
End Sub

Plante sur

Code :

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

Me.Filter = strwhere

tu a mis deux apostrophes au lieu d'une après Modifiable20. Ce qui doit expliquer l'erreur (que l'on ne connait pas puisque tu n'as pas jugé bon de nous donner le libellé)
pour ce qui concerne ton sous-titre:

Et si il y à une apostrophe dans le champ?

la solution donnée dans ce post, à savoir mettre des apostrophes autour des variables, n'est pas sans risque: c'est pour cette raison qu'il est préférable de doubler les guillemets, l'apostrophe étant plus communément utilisée dans la langue française:

Code :

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

strwhere = "MotCle_EMB = """ & Modifiable20 & """"

Probleme Formulaire recherche multi critere [AC-2003]

VBA Access

Discussions similaires

Partager

Partager