Discussion :

[delcroixf]

Bonjour,
Comme si la complexité ne suffisait pas par le simple language VBA...
1) J'ai un formulaire en mode feuille de données avec des champs dont celui de client... Au dessus de chaque colonne un contrôle indépendant... avec du code associé permettant en tapant deux trois lettres d'effectuer un filtre sur la liste... ca fonctionne très bien sur mon portable où j'ai développé cela et quand je le mets sur mon ordinateur de bureau, impossible de saisir plus d'une lettre; Au delà d'une lettre je passe dans un autre champ!!!

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub filtrerefclient_Change()
Texte49.SetFocus
filtrerefclient.SetFocus
If IsNull(filtrerefclient) Then
Me.FilterOn = False
filtrerefclient.SetFocus
Else
   Me.Filter = "[Référence Client] like '" & filtrerefclient & "*'"
  Me.FilterOn = True
End If
End Sub

C'est la même version d'Access, les mêmes compléments... Je ne comprends vraiment pas...

2) Au passage j'en profite pour poser de plus amples questions... Comment faire pour effectuer un filtre multicritères... En effet, j'ai cinq champs du même type... filtre date, clients, pays, missions... et je voudrais par exemple associer client et pays. Pour l'instant je ne peux filtrer qu'un champ à la fois...

Merci pour vos compétences toujours grandissantes et impressionnantes...
F

[pgz]

Bonjour,

impossible de saisir plus d'une lettre; Au delà d'une lettre je passe dans un autre champ!!!

Je pense que dès la première lettre, tu passes dans le contrôle Texte49. En enlevant

Code :

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

Texte49.SetFocus

Ca devrait déjà aller mieux.
Mais ça n'explique pas que cela fonctionne sur ton portable!

Pour un filtre multicritère, tu ajoutes des conditions sur d'autres champs avec " AND "...

Bon courage,

PGZ

[delcroixf]

Bonjour,
Merci pour cette "avancée" mais sans résultat... Le fait d'ôter le setfocus... permet effectivement de taper toutes les lettres mais cela n'engendre aucune action !!! et quelque soit l'ordinateur..
Je suis bloqué...
Une autre idée ?
Merci
F

[loufab]

Bonjour,

Je te conseille dans un premier temps de changer ton code d'événement, le mettre plutot sur Après MAJ.

Cordialement,

[delcroixf]

Bonjour,
Oui effectivement... Après MA^J permet le même résultat avec par contre une obligation de validation type enter ou Tab pour déclencher le filtre.. Je n'ai pas testé sur l'autre ordinateur...
1) Par contre, qaund je change de filtre, les critères restent sur l'autre filtre... Sur quel événement et quel code dois je taper pour effacer les données du filtre précédent... afin de "faiure plus propre" ?
2) Par ailleurs comment, quel code dois je adjoindre pour "enchaîner" deux filtres... Ex : je filtre un type de client et ensuite un type de prestation...
F

[loufab]

Bonjour,
Oui effectivement... Après MA^J permet le même résultat avec par contre une obligation de validation type enter ou Tab pour déclencher le filtre.. Je n'ai pas testé sur l'autre ordinateur...

C'est normal d'assigner un filtre lorsqu'il est complet donc.

1) Par contre, qaund je change de filtre, les critères restent sur l'autre filtre... Sur quel événement et quel code dois je taper pour effacer les données du filtre précédent... afin de "faiure plus propre" ?

Pour supprimer un filtre, 2 méthodes complémentaires

Code :

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

1
2
me.filter = ""
me.filterOn= false

2) Par ailleurs comment, quel code dois je adjoindre pour "enchaîner" deux filtres... Ex : je filtre un type de client et ensuite un type de prestation...
F

Code :

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

1
2
me.filter = me.filter & " AND " & "syntaxe de mon nouveau filtre"
me.filterOn = true

Cordialement,