[AC-2010] Probleme pour exporter plusieurs pdf successifs [Résolu]

[Tierisa]

Bonjour à tous

j'ai un recordset qui est le suivant:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Dim base As DAO.Database
Dim resultat As DAO.Recordset
Dim res As String
Set base = CurrentDb()
 
Set resultat = base.OpenRecordset("SELECT nummgr FROM nummgr")
  With resultat
 
            .MoveFirst
            While Not .EOF
                res = .Fields("nummgr")
                Me.re = res
                DoCmd.OutputTo acOutputReport, "mgrnomverre6", acFormatPDF, "c:\envoiMGR\Fiche MGR n°" & res & ".pdf", False
                .MoveNext
           Wend
 
    End With
 
resultat.Close
Set resultat = Nothing

En fait c'est un recordest sur une table temporaire qui contient des enregistrements. Je voudrais exporter une fiche par enregistrement. (mon état s'appelle "mgrnomverre6" et est basé sur une requete qui prends la valeur "res").
Tout cela fonctionne bien. Ce qui bloque c'est l'exportation en pdf de chaque fiche. Il exporte la 1ere puis s'arrête. Lorsque je désactive la ligne d'export de fiche, ma boucle se passe trés bien (verifiée par des msgbox). Dès que je remets cette ligne active, même probleme... Avez-vous une idée du pourquoi du comment svp?

[loufab]

Bonjour,
Le parcours du recordset est plus rapide que la génération du pdf.

Essaye de mettre un

Code :

Doevents

juste après avant le movenext.

Cordialement,

[Tierisa]

Bonjour
Merci de ton aide mais cela ne change rien

[Tierisa]

petite info en sup. il y a une ligne que je n'ai pas mise dans le code ici mais dans mon appli et qui exporte une liste XLS également. Je veins de constater que si je laisse uniquement l'export de la liste xls ça marche trés bien, par contre c'est l'export du pdf (ou snp aussi) qui fait planter!! Pourtant mon état exporté à part pour verif s'ouvre trés bien avec les bonne valeurs!

[Tierisa]

pb resolu: je ne savais pas que l'export d'un etat était comme si on l'ouvrait et donc il cherchait une barre d'outils à fermer qu'il n'avait pas. en gros c'est de ma faute sorry . Merci et désolé du dérangement