Discussion :

[cybernini230]

Bonjour,
Je viens à nouveau solliciter votre aide sur un problème dont je n'ai pas trouvé de solutions dans les nombreux posts consultés.
J'ai un état avec deux boutons :
l'un affiche ou non une section de l'état que je veux ou ne veux pas voir apparaître (bouton on-off)
l'autre déclenche l'impression.
Le souci est que lorsque je déclenche l'impression, access ne tient pas compte du changement de mon état, et la section que je veux cacher apparait toujours.
Je suppose qu'il y a une astuce.... oui, mais laquelle.

Merci d'avance et bonne journée.

Annie

[madefemere]

Bonjour,

Entre nous, je n'utilise jamais un bouton dans un "état" qui n'est qu'une présentation d'une situation à un instant donné mais plutôt un formulaire d'appel qui paramètre les valeurs de l'état.

Maintenant, est-ce qu'on peut voir les codes utilisés sur ton état pour essayer de comprendre un peu ce qui se passe actuellement.

Cordialement.

[cybernini230]

Merci Madefereme de t'intéresser à mon petit problème.

Je t'envoie ci-dessous les codes concernant :

1. le bouton qui affiche ou non un section de l'état
2. le bouton qui affiche ou non des informations diverses dans une section de l'état tout en gardant cette section visible (pour laisser apparaître des informations importantes)
3. le bouton qui permet l'impression de l'état.

Ta réponse d'ailleurs a attiré mon attention sur le fait que, peut être, ma commande "print" ne faisait en fait qu'appeler directement l'état et non pas imprimer l'état tel qu'il s'affichait sur mon écran, avec les modifications que j'y apportais.

1. Code Bouton Affichage informations

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
Private Sub BTNAfficher_Click()
If Me.BTNAfficher = True Then
Me.BTNAfficher.Caption = "Afficher les Totaux"
Me.SsTtlDu.Visible = False
Me.SsTtlPaye.Visible = False
Me.SsTtlReste.Visible = False
Me.TtlDu.Visible = False
Me.TtlPaye.Visible = False
Me.TtlReste.Visible = False
 
Else
Me.BTNAfficher.Caption = "Cacher les Totaux"
Me.SsTtlDu.Visible = True
Me.SsTtlPaye.Visible = True
Me.SsTtlReste.Visible = True
Me.TtlDu.Visible = True
Me.TtlPaye.Visible = True
Me.TtlReste.Visible = True
 
End If
End Sub

2. code bouton Affichage sous groupe

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub BTNAfficherSSgroupe_Click()
 
 
If Me.BTNAfficherSSgroupe = True Then
Me.BTNAfficherSSgroupe.Caption = "Afficher les Détails"
Me.PiedGroupe0.Visible = False
 
Else
Me.BTNAfficherSSgroupe.Caption = "Cacher les Détails"
Me.PiedGroupe0.Visible = True
 
End If
 
End Sub

3. Code bouton "Imprimer"

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
24
25
26
27
28
29
30
31
32
Private Sub cmdprint_Click()
 
On Error GoTo HDL_Err
Dim myreport As String
Dim myfilter As String
 
myreport = Me.Name
myfilter = Me.Filter
 
 
DoCmd.BrowseTo ObjectType:=acBrowseToForm, _
ObjectName:="ssFrmRapport", _
PathToSubformControl:="NAVIGATION.SousFormulaireNavigation>CentreRapport.Subfrmrapport", _
WhereCondition:="", _
Page:="", _
DataMode:=acFormEdit
 
 
DoCmd.OpenReport myreport, acViewPreview, , myfilter, acWindowNormal
 
 
  Exit Sub
 
HDL_Exit:
    Exit Sub
 
HDL_Err:
    MsgBox Error$
    Resume HDL_Exit
 
 
End Sub

Merci d'avance pour tes lumières.


Annie

[madefemere]

Bonsoir,

J'ai du mal à comprendre.
Dans le code de ton bouton d'impression, tu fais 2 actions :
1- Tu vas vers un onglet d'un formulaire de navigation
2- Tu ouvres un état ayant le même nom que le formulaire (Me.Name) en appliquant le filtre de l'objet en cours (Me.Filter).
Donc, je ne comprends plus si tu es dans un formulaire avec un sous-état ou quoi (un peu brouillon) ?

Pour tes 2 premiers codes, ils seront pris en compte dans l'état si tu les mets sur ses évènements "Sur Impression" ou "Au formatage".

Cordialement.