Précédent   Forum des professionnels en informatique > Logiciels > Microsoft Office > Access > IHM
IHM Ce forum est dédié aux questions relatives à la création de formulaires et d'états, avec ou sans code VBA, et macros.
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/07/2011, 09h21   #1
Futur Membre du Club
 
Jean Pierre
Inscription : mars 2009
Messages : 63
Détails du profil
Informations personnelles :
Nom : Jean Pierre
Localisation : France, Paris (Île de France)

Informations forums :
Inscription : mars 2009
Messages : 63
Points : 19
Points : 19
Par défaut Filtre dans un form (double affichage)

Bonjour,

J'ai un formulaire en affichage par défaut :"Formulaire double affichage". Dans la partie "Feuille de données" je laisse à l'utilisateur la possibilité d'utiliser le filtre. J'aimerais à l'enregistrement sauvegarder toutes les filtres qu'il a pu paramêtrer. Dans Excel (en m'enregistrant dans une macro) le code donne ceci

Code :
1
2
ActiveSheet.Range("$A$1:$D$5").AutoFilter Field:=4, Criteria1:="=A", _
        Operator:=xlOr, Criteria2:="=C"
Existe-t-il un équivalent sous ACCESS pour récupérer ces critères ?

Merci beaucoup pour votre aide.

JPG
jpg75014 est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 24/07/2011, 09h38   #2
Rédacteur/Modérateur

 
Avatar de loufab
 
Homme Fabrice CONSTANS
Ingénieur développement logiciels
Inscription : avril 2005
Messages : 7 085
Détails du profil
Informations personnelles :
Nom : Homme Fabrice CONSTANS
Localisation : France, Haute Garonne (Midi Pyrénées)

Informations professionnelles :
Activité : Ingénieur développement logiciels

Informations forums :
Inscription : avril 2005
Messages : 7 085
Points : 11 622
Points : 11 622
Bonjour,

A tester :

Code :
docmd.Save acForm,me.name
Sinon sauver le filtre dans un table et le rappeler à l'ouverture.

Sauvegarde :
Code :
1
2
3
rst.edit
rst.fields("filtre") = me.filter
rst.update
Rappel :
Code :
1
2
Me.Filter = rst.fields("filtre") 
Me.FilterOn = True
Ce code est bien entendu à adapter suivant ton filtre. Voir le tuto sur DAO pour sa mise en oeuvre.

Cordialement,
__________________
Classe MELA(CRUD) Opérateur IN et zone de liste
MsGraph et VBA - 1e Partie 2e partie
Entête d'états-Opérateur LIKE-Evénements formulaires-Cours 2010
Complément :Générateur de msgbox
Visitez mon Blog
Les questions techniques par MP ne sont pas lues et je ne pratique pas l'extispicine
loufab est déconnecté   Envoyer un message privé Réponse avec citation 00
Réponse Proposer ce sujet en actualité
Outils de la discussion



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


 
 
 
 
Partenaires

Hébergement Web