Discussion :

[tibofo]

Bonjour,

J'imprime (aperçus) des états ainsi :

Code :

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

1
2
3
DoCmd.OpenReport ("BC_REG1"), acPreview
DoCmd.OpenReport ("BC_REG2"), acPreview 
....  (liste de tous les autres états

Il peut arriver que des états soient vides alors j'ai mis ceci dans les états :

Code :

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

1
2
3
4
Private Sub Report_NoData(Cancel As Integer)
  MsgBox "rien à imprimer", vbExclamation, "INFO"
  Cancel = True
End Sub

Cela marche parfaitement. Mais suite à tous les aperçus. Je souhaite stocker tous les états sous un format PDF. Donc j'ai mis ceci :

Code :

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

1
2
3
4
5
Chemin = "C:\envoiFTP\archives\Les_BC\" & CLIENT & "_REG1_" & REFBC & ".pdf"
DoCmd.OutputTo acOutputReport, "BC_REG1", "PDFFormat(*.pdf)", Chemin, False, "", 0
Chemin = "C:\envoiFTP\archives\Les_BC\" & CLIENT & "_REG2_" & REFBC & ".pdf"
DoCmd.OutputTo acOutputReport, "BC_REG2", "PDFFormat(*.pdf)", Chemin, False, "", 0
... (suite avec tous les autres états)

Mais lors de l'éxécution, en toute logique, il me remet le message "rien à imprimer" lorsque un état est vide. Donc si en aperçu, j'ai 5 états vide, j'obtiens 5 fois "rien à imprimer" puis ensuite pour la génération des pdf, j'obtiens de nouveau 5 fois "rien à imprimer".

Je trouve que c'est contraignant pour l'utilisateur. Y aurait-il un moyen pour que le code d'impression des PDF ne se lance que si les aperçus ont donné un résultat.

Je pensais à valoriser une variable du genre :

Code :

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

1
2
If DoCmd.OpenReport ("BC_REG1"), acPreview = True  Then
BC1="Ok pour PDF"  .....

Mais je ne sais pas s'il possible de gérer qq chose dans ce genre ?

Merci pour votre aide
Thibault

[loufab]

Bonjour,

Pourquoi ne pas gérer ça avec une variable globale ?

Tu la revalorise à false dans chaque nodata et à vrai dans chaque sur formatage.

Tu ne déclenche la commande output que si elle est à vrai.

Cordialement,

[tibofo]

Merci Loufab.
Mais cela ne marche pas. Je pense que je dois faire une erreur dans la déclaration.

Voici ce que j'ai fait :

Code :

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

1
2
3
 
Public ETAT1 As String
Public ETAT2 AS String...

Dans mon état 1, sur l'évenement NODATA, j'ai ajouté : (idem avec ETAT2...sur les autres états)

Code :

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

ETAT1="VIDE"

Sur mon bouton IMPRIMER_Click, j'ai mis :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
DoCmd.OpenReport ("BC_REG1"), acPreview
DoCmd.OpenReport ("BC_REG2"), acPreview
...
 
' XXXXXXXX Edition PDFXXXXXXXXXXXX
If BCREG1ETATVIDE <> "VIDE" Then
        Chemin = "C:\envoiFTP\archives\Les_BC\" & CLIENT & "_REG1_" & REFBC & ".pdf"
        DoCmd.OutputTo acOutputReport, "BC_REG1", "PDFFormat(*.pdf)", Chemin, False, "", 0
End If
...

Lors du déroulement en déboggage, je vois bien ma variable prendre "VIDE" lors du passage de l'état vide, mais dés que cela revient dans la procédure IMPRIMER_Click, la variable perd sa valeur.


Je pensais que mettre PUBLIC devant la variable devait la rendre lisible dans toutes les procédures ?

MErci

[tibofo]

J'ai trouvé grâce aux archives du forum : un ancien post similaire indiquait une soluce dans la FAQ et j'ai trouvé :

Voici ce qu'il faut faire si qq'un rencontre un jour le même pb que moi :

http://access.developpez.com/faq/?pa...gage#VarGlobal

Il faut bien déclarer la variable avec PUBLIC mais dans un module.

J'ai donc créer un module "variablesGlobales" et j'y ai mis mes décalarations.

Merci
Thibault

[loufab]

Oui une variable globale se déclare OBLIGATOIREMENT dans un module et non un module d'objet (form ou report).