Discussion :

[juliojc13]

Bonjour,

Mon but: imprimer plusieurs états indépendants les uns à la suite des autres en appuyant sur un bouton de commande (sans que l'impression stoppe si un des états est vide!)

Tentative: j'ai essayé de faire cette manipulation en mettant les uns à la suite des autres les codes des différentes impressions de chaque état. J'ai ensuite enlevé, la ligne de code du message d'erreur disant de quitter la fonction si erreur.

Problème: Cette manipulation marche mais je ne suis pas entièrement satisfait. En effet, il faut confirmer en appuyant sur "OK" à chaque impression... Moi je veux que cette manipulation se fasse d'une traite!

Merci d'avance pour vos idées!

[francishop]

Bonjour,

Peut-être : http://access.developpez.com/faq/?pa...#ImprPlrsEtats

Cordialement.

[juliojc13]

Le problème est que je veux aussi pouvoir les imprimer indépendamment... à l'aide d'un bouton d'impression pour chaque état. Mais cela est déjà fait donc cette solution ne me convient pas.
Merci.

[Domi2]

Bonjour,

Tu peux poster le code utilisé ?

Domi2

[juliojc13]

Voilà mon code qui imprime l'état "Report1" puis l'état "Report2":

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
18
19
20
21
22
23
Private Sub Command0_Click()
 
On Error GoTo Err_Command1_Click
 
    Dim stDocName1 As String
 
    stDocName1 = "Report1"
    DoCmd.OpenReport stDocName1, acNormal
 
Err_Command1_Click:
    MsgBox Err.Description
 
On Error GoTo Err_Command2_Click
 
    Dim stDocName2 As String
 
    stDocName2 = "Report2"
    DoCmd.OpenReport stDocName2, acNormal
 
Err_Command2_Click:
    MsgBox Err.Description
 
End Sub

Avec cela comme je l'ai dit, entre les deux impressions une fenêtre apparaît me demandant de confirmer en appuyant sur "OK" or moi je ne veux pas, je veux que ça imprime les 2 états sans interruption!

Voilà j'espère obtenir votre aide!

Merci!

[FreeAccess]

Bonjour,

Pas très claire ton affaire.........

Avec cela comme je l'ai dit, entre les deux impressions une fenêtre apparaît me demandant de confirmer en appuyant sur "OK"

Le code que tu as donné s'applique sur l'événement "Sur clic" de deux boutons de contrôle différents......donc je ne vois pas en quoi l'action d'un bouton va exécuter l'action de l'autre ...(c'est à dire l'impression des deux états l'un après l'autre)...:!..

Par contre pour imprimer les deux états l'un après l'autre, une solution vite faite devrait suffire:

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Commande2_Click()
Dim stDocName1 As String
Dim stDocName2 As String
 
    stDocName1 = "Etat1"
    stDocName2 = "Etat2"
    DoCmd.OpenReport stDocName1
    DoCmd.OpenReport stDocName2
 
End Sub

[juliojc13]

En aucun cas, mon code s'applique sur l'évènement "Sur clic" de deux boutons de contrôle différents... Mon code s'applique bien sur

Code :

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

Command0_Click()

En revanche, je suis d'accord pour dire qu'un message d'erreur apparaît à partir de deux déclarations différentes

Code :

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

On Error GoTo Err_Command1_Click

et

Code :

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

On Error GoTo Err_Command2_Click

Pour ce qui est de ta solution, je vais la tester la semaine prochaine et je vais voir si cela me convient.
Je crains que ta solution ne gère pas le fait que si mon état 1 est vide, il faut qu'elle continue à imprimer l'état 2.

Merci et je vous tiens au courant.

[FreeAccess]

Re,

Effectivement j'avais lue un peu trop vite...
Ta gestion d'erreur (On Error Goto) semble être à l'origine de ta boîte d'erreur......regarde le lien suivant concernant la gestion des erreurs:

http://mhubiche.developpez.com/Access/cours/erreurs/
http://www.developpez.com/vbasic/tut...tutoriel16.php

Bonne continuation...

[juliojc13]

Oui en effet, ma a gestion d'erreur (On Error Goto) est à l'origine de ma boîte d'erreur après plusieurs tests mais je n'ai pas le choix.
J'ai d'ailleurs testé ta solution et comme je l'avais anticipé... elle ne gère pas les états vides. En effet, quand elle est arrivé à l'état vide, message d'erreur (débogage etc) et elle n'a pas continué les autres impressions...
Ma solution reste alors la meilleure et je l'ai adopté.
Merci encore.

[electrosat03]

Salut,

Pourquoi ne pas compter le nbre d'enregistrements que contient l'état, et si =0 alors cancel=true et tu passe au suivant.

A+

[juliojc13]

C'est vrai, c'est une solution au problème.
Merci.