Discussion :

[ninon]

Bonjour,
Je cherche à obtenir in fine une copie d'écran de tous mes états.
Pour que chacun tienne sur l'écran, il me faut rendre invisible le header au chargement de chacun des états.

À priori l'emploi de section(1).visible = false fonctionne, mais seulement quand je le mets dans la procédure Sub Report_Load() de chaque état.

Mais en fait je veux programmer le rendu invisible du pageheader seulement dans la routine qui ouvre tous les états, les uns après les autres :

Code :

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

1
2
3
4
5
6
 
    Do While Not rs.EOF
        selObjet = rs!NomReq.Value
        OuvreReport (selObjet)
        rs.MoveNext
    Loop

selobjet représente le nom de chacun de mes états, pris un par un.

Ma procédure OuvreReport (piquée sur developpez.net) pourrait inclure le masquage de l'entête :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Sub OuvreReport(monReport As String)
 
    If DoesRptExist(monReport) Then
        DoCmd.OpenReport monReport, acViewReport
        Me.Section(1).Visible = False       ' make the header non visible
    Else
        MsgBox "L'état " & monReport & " n'existe pas encore"
    End If
 
End Sub

Mais ça coince au niveau du Me. , rien d'étonnant, je ne sais pas comment identifier l'état courant.

Merci pour vos lumières !

Ninon

[User]

Bonjour,

Pourquoi ne pas insérer ces états comme sous-états dans un état principal ?

Sinon, si vous souhaitez masquer le header de chaque état quand vous les ouvrez avec la routine en question,
alors il faut lui indiquer dans le code que les états ont été ouverts depuis cette routine à l'aide du dernier argument (OpenArgs) de la méthode OpenReport :

Code :

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

1
2
3
4
5
6
7
8
9
Sub OuvreReport(monReport As String)
 
    If DoesRptExist(monReport) Then
        DoCmd.OpenReport monReport, acViewReport, , , , "Routine principale"
    Else
        MsgBox "L'état " & monReport & " n'existe pas encore"
    End If
 
End Sub

Ensuite, effectuer le test sur l'argument OpenArgs au moment du chargement des états :

Code :

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

1
2
3
4
5
Private Sub Report_Load()
    If Me.OpenArgs = "Routine principale" Then
        Me.Section(1).Visible = False
    End If
End Sub

Cdlt,

[ninon]

Oui, c'est une solution élégante, je vous remercie, mais elle m'oblige à modifier tous mes états.

S'il n'y a pas d'autre solution, je vais l'appliquer.

Merci !

[User]

Le souci c'est qu'on ne peut pas modifier la structure d'un état après l'avoir chargé en mode normal.

Pour cela, il faut utiliser le mode design, puis enregistrer les modifications avant de le réouvrir :

Code :

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

1
2
3
4
5
6
7
8
9
Public Sub DisplayPageHeader(monReport As String, EstVisible As Boolean)
     If DoesRptExist(monReport) Then
        DoCmd.OpenReport monReport, acViewDesign ' ouverture de l'état en mode création
        Reports(monReport).Section(acPageHeader).visible = EstVisible ' paramétrage de la propriété visible de la section en-tête de page
        DoCmd.Close acReport, monReport, acSaveYes ' sauvegarde des changements puis fermeture de l'état
    Else
        MsgBox "L'état " & monReport & " n'existe pas encore"
    End If
End Sub

Pour rendre visible/invisible l'entête de page des états en une fois :

Code :

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

1
2
3
4
5
6
7
Public Sub DisplayPagesHeaders(EstVisible As Boolean)
    Do While Not rs.EOF
        selObjet = rs!NomReq.Value
        DisplayPageHeader(selObjet, EstVisible)
        rs.MoveNext
    Loop
End sub

[ninon]

Tout compte fait j'ai opté pour la première solution, la plus élégante dans ce cas de figure.
D'autant plus que j'avais encore des cas particuliers : pas d'entête d'état, mais un entête de page (section(3), voire pas de détail, donc tout dans l'entête de page (pour des graphiques, par exemple).
Il me fallait donc traiter chaque état au cas par cas.

Merci beaucoup pour les conseils !