Discussion :

[lucas-18]

Bonjour,

J'aimerais pour la structure impression de certains formulaires passer par un formulaire indépendant contenant des cases à cocher (plusieurs choix possibles) et par un bouton de commande qui imprime tous les états d'un customer commun.

Mes futurs utilisateurs travailleront pour ce qui est de l'ajout et de la modification essentiellement sur un formulaire principal contenant des sous formulaires liés au formulaire principal par le champ Customernumber.

Le but est que l'utilisateur ne doive pas à chaque fois aller de sous formulaire en sous formulaire pour devoir printer par un bouton de commande.

Quelqu'un saurait-il me donner la marge à suivre ou me fournir un lien précis répondant à mon problème pour que je puisse me documenter ?

Merci

[lucas-18]

Bonjour,

En fait, j'ai un formulaire principal avec des sous-formulaires qui ont chacun un bouton de commande mais j'aimerais avoir un bouton de commande sur le formulaire principal qui m'ouvre un formulaire qui me permet par des cases à cocher de printer le ou les états des sous-formulaires en question.

Les états sont imprimés par client ; voici le code d'un bouton de commande par exemple :

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
Private Sub btnApercu1_Click()
On Error GoTo Err_btnApercu1_Click
 
  Dim stDocName As String
 
  stDocName = "rptphonecalls"
  DoCmd.OpenReport stDocName, acViewNormal, , "[Customernumber]='" & Me![Customernumber] & "'"
 
Exit_btnApercu1_Click:
  Exit Sub
 
Err_btnApercu1_Click:
  MsgBox Err.Description
  Resume Exit_btnApercu1_Click
End Sub

J'ai crée mon formulaire avec les codes suivants mais cela ne fonctionne pas :

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
Sub PrintReports(PrintMode As Integer)
On Error GoTo Err_Preview_Click
 
 
    Dim strWhereCategory As String
 
    Select Case Me!ReportToPrint
        Case 1
            DoCmd.OpenReport "rptphonecalls", acViewNormal, , "[Customernumber]='" & Me![Customernumber] & "'"
        Case 2
            DoCmd.OpenReport "rptinforcementcancellation", acViewNormal, , "[Customernumber]='" & Me![Customernumber] & "'"
 
    End Select
    DoCmd.Close acForm, "Sales Reports Dialog"
 
Exit_Preview_Click:
    Exit Sub
 
Err_Preview_Click:
    Resume Exit_Preview_Click
 
End Sub

Code :

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

1
2
3
Private Sub Print_Click()
    PrintReports acNormal
End Sub

En fait, ca marche mais il me printe tous les enregsitrement des mes états ; je n'arrive pas à faire en sorte qu'il me renvoie au client sur lequel on a ouvert le formulaire print par le bouton de commande ...

[lucas-18]

J'ai ce code mais il me print tous les enregistrements de mes états.

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Print_Click()
 
If Case1 = True Then
DoCmd.OpenReport "rpt_phonecalls", acNormal
End If
If Case2 = True Then
DoCmd.OpenReport "rpt_inforcementcancellation", acNormal
End If
 
End Sub

Pourtant, lorsque j'imprime directement sur le formulaire principal par un bouton de commande il me print l'enregistrement en cours 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
13
14
15
Private Sub btnApercu_Click()
On Error GoTo Err_btnApercu1_Click
 
  Dim stDocName As String
 
  stDocName = "rpt_phonecalls"
  DoCmd.OpenReport stDocName, acViewNormal, , "[Customernumber]='" & Me![Customernumber] & "'"
 
Exit_btnApercu1_Click:
  Exit Sub
 
Err_btnApercu1_Click:
  MsgBox Err.Description
  Resume Exit_btnApercu1_Click
End Sub

Comment pourrais-je combiner cela de sorte que lorsque j'ouvre par le bouton de commande de mon formulaire principal le formulaire "Print reports" (sans fermer mon formulaire principal), il me print l'enregistrement en cours ?

[loufab]

Bonjour,

De temps en temps l'appuie sur la touche :F1: sur une commande comme docmd.openreport évite de tenir un monologue.

Surtout qu'entre les 2 lignes ; celle qui fait ce que tu souhaites et celle qui ne le fait pas la différence est flagrante.

Allez un petit effort !

Cordialement,

[lucas-18]

Bonjour,

De temps en temps l'appuie sur la touche :F1: sur une commande comme docmd.openreport évite de tenir un monologue.

Surtout qu'entre les 2 lignes ; celle qui fait ce que tu souhaites et celle qui ne le fait pas la différence est flagrante.

Allez un petit effort !

Cordialement,

Merci pour ces conseils mais pourrais-tu être plus explicite stp ? Honnêtement, lorsque je poste c'est que j'ai cherché avant et des fois assez longtemps

[loufab]

Voici 2 lignes parmis celle que tu as posté et qui contiennent la réponse à ta question.

La première imprime tout ce que la source désigne

Code :

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

DoCmd.OpenReport "un_état_quelconque", acNormal

La deuxième qui n'imprime que les informations correspondantes aux Customernumber du formulaire courant (me!customernumber)

Code :

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

DoCmd.OpenReport "un_état_quelconque", acViewNormal, , "[Customernumber]='" & Me![Customernumber] & "'"

Note qu'en faisant F1 sur le mot OpenReport tu tomberas sur une page d'aide indiquant précisément toutes les options de cette riche commande.