Discussion :

[Mut]

Bonjour,

J'ai une boucle sur ce code :

Code :

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

1
2
3
4
 
    DoCmd.OpenReport "Etat listing", acViewReport
DoCmd.OutputTo acOutputReport, , acFormatPDF,"test.pdf"
    DoCmd.Close acReport, "Etat listing", acSaveYes

Au bout d'un certain temps, le programme m'indique une erreur sur la ligne DoCmd.OutputTo acOutputReport, , acFormatPDF,"test.pdf".

Comment je peux faire pour fermer correctement l'objet qui pose problème ??

Merci

[PipoWIL]

Bonjour,

queque chose comme ceci pourrait-il vous aider ?

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
DoCmd.OpenReport "Etat listing", acViewReport
On error Goto errHandler      'en cas d'erreur, sortir de la procédure normale 
DoCmd.OutputTo acOutputReport, , acFormatPDF,"test.pdf"
on error Goto 0        'supprimer l'effet de mon on error Goto errHandler.   
    DoCmd.Close acReport, "Etat listing", acSaveYes 
 
 
'Plus loin dans le code...
 
errHandler:
if err.Number = 123 then
  'faire ici ce que vous devez faire pour votre erreur 123 que vous obtenez régulièrement
else
   'introduire ici une gestion d'erreur plus générale
  ....
endif

Sortir d'une boucle avec des Goto n'est pas une solution élégante. Peut-être quelqu'un d'autre vous donnera un meilleur conseil. En attendant, ceci pourrait vous permettre d'avancer.
Bonne chance