commande "Filter"

Version imprimable

commande "Filter"

Salut à tous,

J'ai crée un rapport et quand on l'ouvre, il y a un petit formulaire de filtrage qui s'ouvre ce qui permet de filtrer le rapport selon les données qu'on veut voir. Le problème, c'est que je n'arrive pas à comprendre pourquoi ça ne marche pas car j'ai identifié toutes mes variables, or chaque fois que je clique sur le bouton "Set filter" (Appliquer filtre), ca me ramène au module de débogage.

Voici mon code:

Code:

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
37
38
39
40
41
42
43
44
45
Option Compare Database
 
Private Sub Set_Filter_Click()
Dim strSQL As String, intCounter As Integer
 
'   Build SQL String.
    For intCounter = 1 To 5
        If Me("Filter" & intCounter) <> "" Then
             strSQL = strSQL & "[" & Me("Filter" & intCounter).Tag & "] " & " = " & Chr(34) & Me("Filter" & intCounter) & Chr(34) & " And "
        End If
    Next
 
    If strSQL <> "" Then
        ' strip Last " And ".
        strSQL = Left(strSQL, (Len(strSQL) - 5))
 
        ' Set the Filter property
        Reports![RptBy2].Filter = strSQL
        Reports![RptBy2].FilterOn = True
    Else
        Reports![RptBy2].FilterOn = False
    End If
End Sub
 
 
Private Sub Clear_Click()
    Dim intCounter As Integer
    For intCounter = 1 To 5
        Me("Filter" & intCounter) = ""
    Next
End Sub
 
Private Sub Close_Click()
    DoCmd.Close acForm, Me.Form.Name
End Sub
 
Private Sub Form_Close()
    DoCmd.Close acReport, "RptBy2" 'Close the BY report.
    DoCmd.Restore 'Restore the window size
End Sub
 
Private Sub Form_Open(Cancel As Integer)
    DoCmd.OpenReport "RptBy2", A_PREVIEW  'Open BY report.
    DoCmd.Maximize 'Maximize the report window
End Sub

Dans le débogueur, le message en jaune est le suivant

Code:

If Me("Filter" & intCounter) <> "" Then

Je ne sais donc pas ou ca peut être le problème.

vautour29

peut-être essayer

Code:

1
2
 
If Me("Filter" & CStr(intCounter)) <> "" Then

28/11/2006, 17h41
vautour29

Ça ne marche toujours pas car dans le débogueur, le message reste en jaune et quand je retourne au rapport, il y a le même message "Microsoft Access ne peut pas trouver le champ 'Filter1' référé dans l'expression"

Or je n'ai pas de champ nommé 'Filter1'... et je en vois pas pourquoi ca poserait un problème..

Merci

vautour29
28/11/2006, 19h04
=JBO=

Bonsoir,

Avec cette expression VBA, tu demandes à Access de rechercher dans le formulaire s'il existe un contrôle nommé "Filter1" ou, à défaut, un champ sous-jacent au formulaire qui porterait ce même nom.

Apparemment, il n'y a ni contrôle ni champ nommé "Filter1"...
Donc, tu t'es trompé quelque part :( .
28/11/2006, 19h20
vautour29

Salut VBO,

Mais "Filter" est le nom de la commande, en aucun cas un nom d'un champ. Je l'ai même changé pour le champ "NomPersonne", mais ca ne fonctionne pas non plus

vautour29
28/11/2006, 19h28
=JBO=

Vois-tu, tout ceci n'est pas très clair pour moi :koi: .

Qu'appelles-tu "commande" ?
Un contrôle de type [bouton de commande], peut-être ?

Merci de préciser.
28/11/2006, 19h40
vautour29

Salut VBO,

"Filter" est une commande pour filtrer les enregistrements au même titre que la commande "ApplyFilter" et les autres. J'ai pensé la mettre là car je n'avais aucune autre idée de comment filtrer mon rapport. Comme je le disais au début, j'ai crée un mini-formulaire qui, une fois qu'on clique dessus, ouvre le rapport initial. Ce formulaire ne contient qu'un champ, le champ "NomPersonne" qui est en fait une liste déroulante des noms des personnes. Lorsqu'on choisit le nom de la personne et on cliqque sur le bouton "Set Filter" le rapport va afficher seulement les enregistrements appartenant à cette personne.

Pour en revenir au problème, il me fallait définir une commande ou quelque chose qui ferait en sorte de filtrer le rapport. J'ai alors pensé au nom "Filter"...mais je n'ai absolument aucune idée si je dois l'associer au champ "NomPersonne" car comme je le disais, j'ai tout essayé, mais sans résultat.

J'espère que c'est plus clair et si tu as une meilleure idée, ca me dépannerait de déboguer le tout et de pouvoir filtrer le rapport.

merci

vautour29

Filter est une propriété des objets Form et Report (ce n'est pas une commande).

Si nomPersonne est une zone de liste déroulante, alors c'est un contrôle (à ne pas confondre avec un champ).

Un contrôle zone de liste déroulante ne peut prendre qu'une valeur à la fois.
Cette valeur est accessible directement, au moyen de la propriété Value.
Il n'y a pas de raison d'effectuer une boucle avec la variable intCounter.

Comment s'appelle le champ utilisé pour le filtrage de l'état (report) ?
Dans ton code, on récupère la valeur de la propriété Tag... mais pourquoi faire ?

En attendant que tu précises, je fais une hypothèse: le champ utilisé par le filtre s'appelle aussi NomPersonne.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Private Sub Set_Filter_Click() Dim strSQL As String ' Build SQL String. If Me.nomPersonne.Value <> "" Then strSQL = "[NomPersonne] = " & Chr(34) & Me.nomPersonne.Value & Chr(34) End If If strSQL <> "" Then ' Set the Filter property Reports![RptBy2].Filter = strSQL Reports![RptBy2].FilterOn = True Else Reports![RptBy2].FilterOn = False End If End Sub

28/11/2006, 20h56
vautour29
Salut JBO,

La propriété "Tag" sert à identifier le nom du champ. Quand on met un bouton sur le formulaire, on peut soit l'identifier au début ou bien avec la propriété "Tag".

D'autre part, j'ai essayé avec ton hypothèse et ça me retourne plein d'erreurs.
Code:

1 2 3 If Me.OwnerName.Value <> "" Then strSQL = "[OwnerName] = " & Chr(34) & Me.OwnerName.Value & Chr(34) End If
Le code du début, eh bien le "End If" reste en jaune dans le débogueur et quand je retourne dans le rapport, j'ai un second message me demandant d'entrer le nom de la personne. Je ne sais pas pourquoi il apparaît...peut-être c'est à cause de la propriété Value car une fois que j'entre le nom, le rapport n'est pas filtré, donc il ne se passe rien.
Le champ utilisé pour le filtrage du rapport est OwnerName donc le nom de la personne.
D'autre part, pour préciser davantage, le champ NomPersonne (OwnerName) vient de la table Owner. Mon rapport est basé sur une autre table, la table État qui regroupe l'information sur chaque personne. Les 2 tables sont liées par une relation un a plusieurs. Je ne sais pas si c'est à cause de ca que mon rapport ne peut pas être filtré comme il faut.

merci

vautour29