[AC-2003] Bouton bascule multi filtre

[Meyra]

Bonjour

Avant tout, je remercie tous ceux responsables et participants à ce forum : votre aide est précieuse et vraiment apprécié.

J'ai encore une question :

Je voudrais un bouton bascule qui filtre sur deux critères (la date et le nom d'un utilisateur). Il ne doit pas me manquer grand chose dans le code (le lien "AND" entre les deux critères de filtre). J'ai mis & mais ce ne doit pas être ça puisque ça bloque.

Quelqu'un peut m'aider ?

Code :

1
2
3
4
5
6
7
8
Private Sub BasculeFiltre_Click()
If Me.BasculeFiltre.Value Then
        Me.Form.FilterOn = True
        Me.Form.Filter = "[date] = #" & Format(Me.ladate, "mm/dd/yyyy") & "#" & "[nom_utilisateur]In(""" & Forms("f_identification").selectutilisateur.Value)"
    Else
        Me.Form.FilterOn = False
    End If
End Sub

Merci de votre aide

[fgiambelluco]

Bonjour
2 choses
-Je mettrais le Me.Form.FilterOn = True après Me.Filter=
- pour le citère utilisateur je mettrais plutôt :

Code :

Me.Form.Filter = "[date] = #" & Format(Me.ladate, "mm/dd/yyyy") & "#" & "[nom_utilisateur]=""" & Forms("f_identification").selectutilisateur.Value & """"

Bon courage

[Meyra]

J'ai déplacé Me.form.filter comme tu l'as suggéré, fgiambelluco, mais il y a un problème encore. Peut être une erreur de guillemet ou autre caractère.
Quelqu'un peut vérifier ?

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub BasculeFiltre_Click()
If Me.BasculeFiltre.Value Then
 
        Me.Form.Filter = "[date] = #" & Format(Me.ladate, "mm/dd/yyyy") & "#" & "[nom_utilisateur]In(""" & Forms("f_identification").selectutilisateur.Value & """, ""Equipe"")" & """"
        Me.Form.FilterOn = True
    Else
        Me.Form.FilterOn = False
        Me.Filter = "[nom_utilisateur]In(""" & Forms("f_identification").selectutilisateur.Value & """, ""Equipe"")"
    Me.Form.OrderByOn = True
    Me.Form.OrderBy = "[activite_pro].[date]"
 
    End If
 
End Sub

Merci

[fgiambelluco]

Bonjour
pour ce code, je pense qu'il manque le And

Code :

Me.Form.Filter = "[date] = #" & Format(Me.ladate, "mm/dd/yyyy") & "#" & "[nom_utilisateur]In(""" & Forms("f_identification").selectutilisateur.Value & """, ""Equipe"")" & """"

C'est à dire :

Code :

Me.Form.Filter = "[date] = #" & Format(Me.ladate, "mm/dd/yyyy") & "# and [nom_utilisateur]In(""" & Forms("f_identification").selectutilisateur.Value & """, ""Equipe"")" & """"

---------------
Pour le code :

Code :

1
2
3
Else
        Me.Form.FilterOn = False
        Me.Filter = "[nom_utilisateur]In(""" & Forms("f_identification").selectutilisateur.Value & """, ""Equipe"")"

Je mettrais plutôt:

Code :

1
2
3
Else
        Me.Filter = "[nom_utilisateur]In(""" & Forms("f_identification").selectutilisateur.Value & """, ""Equipe"")"
        Me.Form.FilterOn = True

-> j'ai testé le dernier, il fonctionne

Dans le cas contraire, as-tu une erreur de compilation, une erreur d'excécution ou ni l'un l'autre, mais ceal ne fonctionne pas ?

[Meyra]

J'avais une erreur de compilation. Mais maintenant c'est une erreur d'exécution.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub BasculeFiltre_Click()
If Me.BasculeFiltre.Value Then
 
        Me.Form.Filter = "[date] = #" & Format(Me.ladate, "mm/dd/yyyy") & "#" AND [nom_utilisateur]In(""" & Forms("f_identification").selectutilisateur.Value & """, ""Equipe"")" & """"
        Me.Form.FilterOn = True
    Else
 
        Me.Form.FilterOn = False
 
    Me.Filter = "[nom_utilisateur]In(""" & Forms("f_identification").selectutilisateur.Value & """, ""Equipe"")"
    Me.Form.OrderByOn = True
    Me.Form.OrderBy = "[activite_pro].[date]"
 
    End If
 
End Sub

[fgiambelluco]

Re
On peut savoir sur quel ligne de ton code il se met en erreur ?

[Meyra]

sur la 4e (me.form.filter)

[Orakle]

C'est pas Me.Filter plutôt que ME.Form.Filter?

[fgiambelluco]

Re
Essaye de faire comme dans le Else
Supprime le Form dans la mise ne place du filtre et du tri

Code :

1
2
3
4
Me.Filter
Me.FilterOn
Me.OrderBy
Me.OrderByOn

Essaye de respecter cet ordre,
1-tu créé le filtre (ou le tri)
Me.Filter=... (Me.OrderBy=)
2-tu filtre (ou tu tris)
Me.FilterOn=True (Me.OrderByOn=True)

PS : Bien vu Orakle, j'ai mis trop longtemps à répondre

[Meyra]

Merci pour vos réponses.

J'ai mis dans l'ordre comme vous avez suggéré. Ce qui semble bon puisque maintenant j'ai qu'une erreur de syntaxe sur la ligne de filtre :

Code :

Me.Filter = "[date] = #" & Format(Me.ladate, "mm/dd/yyyy") & "# and [nom_utilisateur]In(""" & Forms("f_identification").selectutilisateur.Value & """, ""Equipe"")" & """"

[fgiambelluco]

Bonjour
De visu, je pense qu'il manque un espace devant le In.
Je ne sais toujours pas ce que c'est que ce champ : [date]
Comme dis précédemment, si c'est la date du jour, il faut remplacer par Date()

[Meyra]

Le champ [date] est le champ de la date d'activité que saisie l'utilisateur. Ce formulaire permet de saisir ces différentes activités quotidiennes. Le bouton filtre permettrait de retrouver les activités d'une journée en particulier.

[fgiambelluco]

Bonjour
Donc si j'ai bien compris, le champ que tu appelles [date] est le champ où sont stockées les date des activités et Me.Ladate est le champ oû l'on saisit la date à rechercher.
Dans ce cas,
Essaye de faire un copier colle du code ci dessous.

Code :

Me.Filter = "[date] = #" & Format(Me.ladate, "mm/dd/yyyy") & "# and [nom_utilisateur] In('" & Forms("f_identification").selectutilisateur.Value & "', 'Equipe')"

Si c'est l'inverse, il faut inverser les 2 dates dans ton filtre.