Discussion :

[Darksnakes]

Bonjour tout le monde,

voilà j'ai cette erreur qui se produit à l'exécution de ce bout de code

Code :

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

1
2
3
4
5
 
openReport vrtEtat, vrtRequest, clauseWhere, acHidden
            DoCmd.OutputTo acOutputReport, vrtEtat, acFormatRTF, directoryReportOut + pObjReportParam.nomFichier, False
            DoCmd.SendObject acSendReport, vrtEtat, acFormatRTF, pObjReportParam.mailTo, , , vrtMailObjet + " " + pObjReportParam.nomUo + " (UO Id : " + CStr(pObjReportParam.UOid) + ")", vrtMailMessage, False
            DoCmd.Close acReport, vrtEtat

l'erreur se produit à la ligne

Code :

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

DoCmd.SendObject acSendReport, vrtEtat, acFormatRTF, pObjReportParam.mailTo, , , vrtMailObjet + " " + pObjReportParam.nomUo + " (UO Id : " + CStr(pObjReportParam.UOid) + ")", vrtMailMessage, False

C'est un programme que j'ai repris, donc je n'ai pas écris le code et puis biensur c'est pas forcément très bien commenté... et de plus mes connaissances en VBA sont très basiques. (mais bon c'est pas trop le problème, quand on a appris divers langages, ça reste assez compréhensible)

Ce que je peux vous dire c'est que l'erreur n'apparait pas en mode "pas à pas", mais par contre si je lance l'application bout à bout l'erreur se manifeste.

j'ai vu ça sur internet http://support.microsoft.com/kb/244695/fr , mais je comprend pas trop les solutions.

Si vous avez besoin d'info supplémentaire, je vous les fournirais dès que possible.

Merci d'avance

[Darksnakes]

Problème résolu en entourant tous mes outputo avec ce code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
  '================
    'Show the db window
    DoCmd.SelectObject acTable, , True
    '================
 
'Mon code ici
 
    '===========================
    'Hide the DB window again
    DoCmd.SelectObject acTable, , True
    DoCmd.RunCommand acCmdWindowHide
    '============================

Apprement un bug obligerais la fenêtre de la databse à être affiché pour que cela marche.