Précédent   Forum des professionnels en informatique > Logiciels > Microsoft Office > Access > VBA Access
VBA Access Le forum pour les questions relatives au code VBA sous Access, et à son environnement de développement VBE.
Partagez cette discussion sur d'autres réseaux sociaux : Viadeo Twitter Google Facebook Digg Delicious MySpace Yahoo
Réponse Proposer ce sujet en actualité
 
Outils de la discussion
Publicité
'
Vieux 22/12/2010, 16h46   #1
Membre régulier
 
Inscription : avril 2005
Messages : 251
Détails du profil
Informations forums :
Inscription : avril 2005
Messages : 251
Points : 86
Points : 86
Par défaut Filtre liste modifiable

Bonsoir le forum

Je suis en train de faire un filtre formulaire et sous formulaire avec deux zones de listes modifiables. Les
données s' affichent dans le sous formulaire.
La premiere liste modifiable affiche des noms, la seconde un libéllé.

Code :
1
2
3
4
5
6
7
8
9
Public Sub mbdPersonnel 
Me.Filter = "[Nom]='" & Me.cmbPersonnel & "'"
Me.FilterOn = True
End Sub 
 
Private Sub cmbLibelle_AfterUpdate()
 Me.Filter = "[Libellé]='" & Me.cmbLibelle & "'"
 Me.FilterOn = True
End Sub
Je ne trouve pas mon code performant car le filtre est aléatoire.
La seconde liste modifiable cmbLibellé doit sur le personnel et sur le libellé, le filtre ne fonctionne pas
Merci d' avance pour toute aide pour l' amélioration de mon code

Aladin
Aladin_23 est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 22/12/2010, 19h30   #2
Membre Expert
 
Homme Jacques Petiot
Indépendant développeur et formateur
Inscription : octobre 2007
Messages : 891
Détails du profil
Informations personnelles :
Nom : Homme Jacques Petiot
Âge : 51
Localisation : France

Informations professionnelles :
Activité : Indépendant développeur et formateur
Secteur : Conseil

Informations forums :
Inscription : octobre 2007
Messages : 891
Points : 1 333
Points : 1 333
Hello
si le sujet est seulement de filtrer sur le personnel à la première liste et de filtrer sur le personnel et sur le libellé à la deuxième liiste je te proopose
Code :
1
2
3
4
5
6
7
8
9
10
Public Sub mbdPersonnel 
Me.Filter = "[Nom]='" & Me.cmbPersonnel & "'"
Me.FilterOn = True
End Sub 
 
Private Sub cmbLibelle_AfterUpdate()
 Me.Filter = "[Libellé]='" & Me.cmbLibelle & "' AND [Nom]='" & Me.cmbPersonnel & "'"
 
 Me.FilterOn = True
End Sub
Atention ce filtre ne filtre pas le sous formulaire mais le formulaire dans lequel sont situées les listes
peut être faut il utiliser Me.mon_sous_form.filter = etc
__________________
-------------------Simplifi----------comme si tout était simple--------
Simplifi est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 23/12/2010, 19h32   #3
Membre régulier
 
Inscription : avril 2005
Messages : 251
Détails du profil
Informations forums :
Inscription : avril 2005
Messages : 251
Points : 86
Points : 86
Bonsoir Simplifi et le forum
Merci pour ta réponse, c' est exactement le type de filtre que je voulais appliqué, j' ai fait les modifications et aussi appliqué un filtre sur le sous formulaire, tout fonctionne correctement
Merci beaucoup et bonne continuation.
Je vous souhaite à tous de bonnes fêtes
Aladin
Aladin_23 est déconnecté   Envoyer un message privé Réponse avec citation 00
Réponse Proposer ce sujet en actualité Cette discussion est résolue.
Outils de la discussion



Fuseau horaire GMT +2. Il est actuellement 07h58.


 
 
 
 
Partenaires

Hébergement Web