Discussion :

[askobalt]

Bonjour,

j'ai suivi le tutorial pour faire un formulaire de recherche multicritère access et j'ai réussi à y ajouté un bouton de tri alphabetique avec ce code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub tri_Click()
Dim SQL As String
 Dim SQLWhere As String
   SQL = "SELECT CodePersonne, Institution, Fonction, Civilite, Nom, Commune " _
         & " FROM Personnes " _
        & " WHERE Personnes!CodePersonne <> 0" _
       & " ORDER BY Commune ;"
 
 Me.lstResults.RowSource = SQL
 Me.lstResults.Requery
End Sub

mais le probleme est que si je tri après avoir choisi un critère de choix la listbox se réinitialise.

Comment y remédier?

[ClaudeLELOUP]

Bonjour,

Je suppose que tu as suivi le tutoriel de cafeine.

Si tu veux ajouter un tri, tu dois associer à ton bouton un code :
1° qui récupère le SQL généré par ta sélection ;
2° supprimer le point-virgule final ;
3° ajouter la clause Order que tu montres ;
4° remettre le point-virgule final ;
5° réactualiser la liste.

[askobalt]

Mais comment récupérer le SLQ généré?

Et oui c'est presque un copier coller du tuto de caféine.

je suis un débutant extreme dans le VBA j'ai appris son existence début aout 2012...

[ClaudeLELOUP]

Peux-tu poster une base compatible Access2000 avec tes données (non cofidentielles) et le formulaire ?

[askobalt]

Ok.

Si c'est possible je cherche également à utiliser mon resutat de ma listbox pour faire un publipostage (donc je pense créer des requetes)

et imprimer le resultat de ma listbox dans un formulaire. J'ai esseillé de le faire avec un autre tutorial de création de formulaire de recherche mais rien n'y fait, ça ne fonctionne pas.

[askobalt]

pour imprimer l'etat j'ai reussi grace à une réponse que tu avais justement donné à quelqu'un, alors pour ça merci.

[ClaudeLELOUP]

Ce que tu fournis comme fichier n'est compatible avec Access2000 !
Tu dois d'abord convertir en format Access2000 (.mdb).

[askobalt]

a oui, désolé.

Normalement la c'est bon.

[ClaudeLELOUP]

OK je peux maintenant lire !

Que veux-tu exactement ?

- toujours trier par commune ?
- trier par commune à la demande ?
- trier à la demande sur un critère à choisir parmi ceux que tu as mentionnés ?

[askobalt]

je veux trier par nom ou par commune avant ou après avoir choisi un ou plusieur critère dans mon formulaire de recherche.


Et est ce que c'est possible de faire que le résultat affiché dans ma listbox soit utilisé pour un publipostage sur word? (je pense qu'il faut créer des requete ponctuelle)

[ClaudeLELOUP]

Une chose à la fois : le publipostage, je ne connais pas bien.

Je m'occupe d'abord de tes tris.

[askobalt]

ok, merci

pour le publipostage de toute façon il suffit juste d'une source (donc une requete), le publi je sais bien faire (secretariat exige )

Mais comme tu dis on verra après.

[ClaudeLELOUP]

Voici une proposition.

Pour trier, tu cliques sur les boutons au-dessus des colonnes.
Vois le code que j’ai associé au clic de ces boutons.
Les commentaires devraient te permettre de comprendre ce qui s’y passe.
Pour te documenter, tu peux placer le curseur de la souris sur un mot-clé du code et enfoncer la touche F1. L’aide Access s’ouvre alors à la bonne page.
J’ai ajouté une requête « rSource », elle correspond à ce qui est affiché dans ton formulaire.
Elle s’actualise chaque fois que tu modifies le contenu de ta liste.
C’est la sub « MAJrSource » qui fait le boulot. Parcours ton code pour voir où je la déclenche.
Elle peut sans doute te servir pour ton publipostage.

Reviens-moi, si quelque chose n’est pas clair.

[askobalt]

Tu es génial!!!!!!


Tout fonctionne très bien et pour mon publipostage aussi.

Quand tu ouvre ton document Word et que tu y associ une BDD la requete ne se réinitialise que si tu choisi un nouveau critère. Donc ça fonctionne du tonnerre de dieu!

J'ai a peu pret compris se que tu as fait mais j'aurais été incapable de pondre un truc pareil.

Encore merci