Discussion :

[Philippe PONS]

Bonjour,

J'ai une appli de gestion d'adhérents.
Elle doit pouvoir imprimer des bulletins d'adhésion.

Le bulletin d'adhésion est fait par un état.
Le RecordSource de l'état fourni toutes les données des adhérents.
Je lance l'impression en VBA.
Auparavent je paramètre la propriété Filter de l'état pour ne sortir que les bulletins selon un critère de filtrage.
Mais pour que Filter soit pris en compte, il faut d'abord ouvrir le rapport, me semble t il?
Donc je fait:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
sNomEtat="BULLETIN"
DoCmd.OpenReport sNomEtat, acViewPreview
' fixer ses filtres
'DoCmd.OpenReport sNomEtat, acViewNormal
If Me.chkTrueAdhOnly Then
    Report_BULLETIN.Filter = "COLL_ID=" & Me.cboSelColl.Value & " and ADH_DATEADH>=#" & Me.txtDateAdh & "#"
Else
    Report_BULLETIN.Filter = "COLL_ID=" & Me.cboSelColl.Value
End If
' filter l'état
Report_BULLETIN.FilterOn = True
'DoCmd.PrintOut acPages, , , , intNbCopies
DoCmd.OpenReport sNomEtat, acViewNormal

L'impression se déroule correctement, mais l'état reste ouvert en mode design.

Comment faire pour ne pas voir apparaitre l'état en mode design?

Merci d'avance

Philippe

[Mahefasoa]

Bonjour,
Le mode Design est une porte ouverte. A chaque fois qu'elle est ouverte, il faut la fermer ... élémentaire mon cher Watson! Mais attention, tu n'es pas en mode Design mais en Aperçu avant impression (acViewPreview)!

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
 
sNomEtat="BULLETIN"
DoCmd.OpenReport sNomEtat, acViewPreview
' fixer ses filtres
'DoCmd.OpenReport sNomEtat, acViewNormal
If Me.chkTrueAdhOnly Then
    Report_BULLETIN.Filter = "COLL_ID=" & Me.cboSelColl.Value & " and ADH_DATEADH>=#" & Me.txtDateAdh & "#"
Else
    Report_BULLETIN.Filter = "COLL_ID=" & Me.cboSelColl.Value
End If
' filter l'état
Report_BULLETIN.FilterOn = True
'Pour fermer l'état avant de ...
DoCmd.Close acReport, sNomEtat, acSaveYes
'DoCmd.PrintOut acPages, , , , intNbCopies
'l'ouvrir ici
DoCmd.OpenReport sNomEtat, acViewNormal

Donc si tu remarques, j'ai mis ce code dans le tien DoCmd.Close acReport, sNomEtat, acSaveYes pour fermer l'état. Mais il est également possible de ne pas le voir affiché en mode Design pendant toute la modification du filtre en utilisant DoCmd.Echo False puis DoCmd.Echo True.

Mais lorsqu'on parle de filtre, il n'est pas nécessaire d'ouvrir l'état en mode Design, après tout ce n'est qu'un filtre!

Code :

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

1
2
3
4
5
6
7
8
9
 
Dim sFiltre As String
sNomEtat="BULLETIN"
If Me.chkTrueAdhOnly Then
    sFiltre = "COLL_ID=" & Me.cboSelColl.Value & " and ADH_DATEADH>=#" & Format(Me.txtDateAdh,"mm/dd/yyyy") & "#"
Else
    sFiltre = "COLL_ID=" & Me.cboSelColl.Value
End If
DoCmd.OpenReport sNomEtat, acViewNormal, , sFiltre

C'est tout!
Bon courage et @+