Discussion :

[Spanish_]

Bonjour ,

Je créé actuellement une base de données pour afficher des infos sur des sites.

J'ai dans mon formulaire principale,
-> Une liste déroulante (contenant les catégories des sites)
-> 2 champs de critères dte_debut_publication et dte_fin_publication
-> 1 bouton de validation
-> 1 sous-formulaire dans lequel s'affiche les infos des sites de la catégorie sélectionnée dans la liste ci-dessus et dont la date de publication est comprise entre les 2 dates choisies ci-dessus.

Mon critère date fonctionne impeccable.
Mais je rencontre un souci avec ma liste déroulante, je m'explique.
J'ai utilisé champ père champ fils pour la liaison entre la liste déroulante et le sous formulaire, du coup chaque fois que l'on sélectionne une catégorie dans la liste , s'affiche automatiquement les infos dans le sous formulaire.

Ce que je voudrais essayer de faire par souci d'optimisation, c'est que une fois la catégorie sélectionnée dans la liste, les infos s'affichent UNIQUEMENT après avoir cliquer sur le bouton validation.

Je me doute qu'il faut faire une action bouton_valider onclik(), en passant par du vba, mais je ne sais pas quel code appliquer.
Merci de m'éclairer.

[p'tite Sandrine]

bonjour,

tu pourrais t'inspirer du formulaire multicritère de caféine:

recherche multi-critère

tu aurais juste a mettre le refreshquery sur clic du bouton.

Si tu as besoin de rester avec un sous-formulaire, je pense que si tu le laisse indépendant.
sur clic de ton bouton:
-modifie le [ssformulaire].rowsource de ton formulaire
-[ssformulaire].requery

voilà un debut d'idée.
Maintenant il y a peut être d'autre solution

[Faw]

Salut, essayons un truc, le code du bouton (application du filtre sur les dates)
mets le sur l'évènement Après Màj de la liste déroulante et dis-nous comment ça se passe.

Sinon et au pire, ta liste sera indapendante et tu appliqueras un filtre sur La Liste et les deux dates...

[Spanish_]

Salut

Donc voici mon code que j'ai mis sur la liste apres MAJ:

Code :

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

1
2
3
4
5
Private Sub lst_categorie_AfterUpdate()
Me.Sous_form_choix_site.Form.Filter = Me.lst_categorie.RowSource
Me.Sous_form_choix_site.Form.FilterOn = True
 
End Sub

Dès que je clique sur le bouton de validation du coup il me met une erreur sur

Code :

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

Me.Sous_form_choix_site.Form.Filter = Me.lst_categorie.RowSource

C'est sur j'ai du faire une erreur de syntaxe :s

[Faw]

En fait tu n'as pas compris ce que je te proposais.
Ton code qui applique le filtre sur les dates (et qui marche bien à priori) tu le mets en lieu et place du code que tu viens de mettre (celui avec l'erreur).
Ta liste tu la laisses synchronisée.

[Spanish_]

Merci. Bonne journée