Discussion :

[vautour29]

Salut à tous,

J'ai crée un mini-formulaire contenant un champ, le champ "NomPersonne" qui contient la liste des noms des personnes. Ce formulaire s'ouvre en mode pop-up et ouvre l'état en même temps. Le problème que j'ai, c'est que mon code ne parvient pas à filtrer l'état.

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 Set_Filter_Click()
Dim strSQL As String, intCounter As Integer
         'Build SQL String
         If Me("Filter" & intCounter) <> "" Then
            strSQL = strSQL & "[" & Me("Filter" & intCounter).Tag & "] " & " = " & Chr(34) & Me("Filter" & intCounter) & Chr(34) & " And "
         End If
 
        If strSQL <> "" Then
            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

Dès que je choisis le nom de la personne dans la liste et je clique sur le bouton "Set filter", il me retourne un message comme quoi le champ "Filter" ne peut pas être trouvé. Or j'ai utilisé la même programmation sur d'autres états dans d'autres bases de données et ça a fonctionné, mais là ca ne fonctionne pas.
Si quelqu'un a une meilleure idée que ce que j'ai écrit, ca me dépannerait bcp.

Merci

vautour29

[vautour29]

Voici un exemple de ma base de données. Cliquez sur le formulaire "FrmFilter2" qui va ouvrir le rapport. Comme le formulaire va être en mode pop-up, choisissez un nom dans n'importe quel champ et cliquez sur le bouton "set filter". Le message d'erreur dont je parlais va apparaître ce qui va mener au débogueur...

vautour29

[vautour29]

Après mount refléxions, je viens de trouver la réponse! il fallait reseter intCounter à 4 car seulement 4 zones de liste et non 5. ouff!



vautour29