Discussion :

[djidanestribbal]

Bonjour,

j'ai un formulaire qui me permet de faire une recherche dans ma table des employé. Le résultat de la recherche est affiché dans une listbox. Tous sa fonctionne super bien (merci tuto de caféine ^^).

Par-contre, je voudrais savoir si c'est possible d'avoir un bouton qui lancera l'impression de ce qui se trouve dans la listbox...
Faut-il faire une extraction vers excel, dans un fichier texte ou directement avec du code VBA... ?

Si quelqu'un l'a déjà fait ou a une piste à me donner, je suis preneur.

Merci d'avance

[boubignole]

Salut
tu peux essayer un truc du genre

Sur l'évenement ouverture de l'état

Code :

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

Me.RecordSource = Forms!MonForm!MaListBox.RowSource

[djidanestribbal]

Dans Me.RecordSource, il y aura la requête qui m'a servit à remplir ma listbox mais pas le contenu de ma listbox...
Je pensais mettre sa dans un fichier texte puis l'imprimer mais je ne vois pas comment récupérer le contenu de ma listbox.

Mais merci quand même.

[djidanestribbal]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
    Dim fic_impRecherche As String
    Dim index As Integer
    Dim export As String
 
    index = 0
    fic_impRecherche = "C:\impRecherche.txt"
 
    Open fic_impRecherche For Input As 1
        While index <= global_nbResultat
            export = Me.lstb_resultatRecherche.ItemData(index)
            Line Input #1, export
            index = index + 1
        Wend
 
        DoCmd.PrintOut 1
    Close 1

Voila mon code en l'état actuelle... J'ai une erreur au niveau du Line Input comme quoi "l'entrée dépasse la fin du fichier"...

Quelqu'un a-t-il une idée???

[boubignole]

???

Si le me.recordSource d'un état contient la même requete que ta listbox alors il t'imprimera bien le contenu de la listBox. Je ne vois pas l'utilité de passer par un fichier externe