Discussion :

[modus57]

Bonjour le forum.

Je ne trouve pas la syntaxe suivante :
Si la valeur un bouton d'option dans un formulaire est = False, le pied de groupe dans l'état x sera invisible.

Pour m'éviter de galérer, quelqu'un peut-il me donner une piste.

Merci d'avance, @ +

[marot_r]

dans l'événement Open du rapport

Code :

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

1
2
3
4
5
6
7
8
9
10
 
dim f as form_monFormParam:set f=forms("MonFormParam"):'Pour pouvoir utiliser '.'
 
if f.monOptionInvisible=f.monOptionInvisiblePied.OptionValue then
    me.Section(AcFooter).visible=false
  else
    me.Section(AcFooter).visible=true
end if
 
set f=nothing

Note : utiliser 'f.monOptionInvisiblePied.OptionValue' permet d'éviter du code du type 'moOption=1' ce qui ne dit absolument rien. Il faut par contre donner un nom à chacune des options offertes.

Tu peux aussi faire un lien moins fort en passant la valeur de l'option en OpenArg mais je ne sais pas si cela marche en Access 2000.

A+

[modus57]

Bonsoir marot_r, le forum.

Désolé mais je ne comprend pas bien ton code, ma question est peut-être pas claire, en bidouillant, voilà ce j'ai trouvé.

J’ai crée un bouton d’option (sur false) dans le formulaire [MonFormulaire].
Un bouton de commande pour ouvrir l’état dans ce même formulaire.

Et dans l’évènement sur ouverture de l’état [Procédure événementielle] la syntaxe suivante :

Code :

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

1
2
3
4
5
6
7
Private Sub Report_Open(Cancel As Integer)
    If Forms![MonFormulaire]!Option537 = False Then
        Me.PiedGroupe4.Visible = False
    Else
        Me.PiedGroupe4.Visible = True
    End If
End Sub

Et ça marche du tonnerre de Brest.

Pour améliorer ma petite expérience sur ACCESS pourrais-tu me détailler et m'expliquer ton code.

Merci & @+

[marot_r]

Code :

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

1
2
3
4
5
6
7
8
9
10
 
dim f as form_MonFormulaire:set f=forms("MonFormulaire"):'Pour que Access affiche les méthodes et les propriétés de l'objet MonFormulaire
 
if f.Option537=false then
    me.Section(AcFooter).visible=false:'Voir aide sur 'Section dans un état'.
  else
    me.Section(AcFooter).visible=true
end if
 
set f=nothing:'Libère la mémoire attribué à l'objet f

En passant je te suggère des noms plus significatif :

MonFormulaire pourrait avantagesement devenir un truc du genre 'FormParamRapport' et Option537 gagnerait en clareté à s'appeler 'OptionMasquerPiedGroupe'.

le code se lirait

Code :

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

1
2
 
If f.OptionMasquerPiedGroupe = false then

c'est plus parlant que

Code :

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

1
2
 
if f.Option537=false then

Non ?

[modus57]

Bonsoir marot_r.

J'ai compris, je mets ton code en application demain matin et dans la foulée je t'envois une réponse, si le fil est résolu.

Bonne nuit, cordialement modus57.

[modus57]

Bonjour marot_r.

Voilà le code de l'évènement open de l'état :

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 Report_Open(Cancel As Integer)
 
Dim f As [MonFormulaire]
Set f = Forms("MonFormulaire") 'Pour que Access affiche les méthodes et les propriétés de l'objet Formulaire de saisie CRT TCE 2
 
If f.OptionMasquerPiedGroupe = False Then
    Me.Section(acFooter).Visible = False 'Voir aide sur 'Section dans un état'.
Else
    Me.Section(acFooter).Visible = True
End If
 
Set f = Nothing: 'Libère la mémoire attribué à l'objet f
 
End Sub

Cela ne fonctionne pas, le contrôle dans le pied de groupe reste toujours visible ??

Ma syntaxe est-elle fausse ???

Merci d'avance pour ta réponse, @+

[marot_r]

Non, c'est plus probablement le acFooter. Vérifie avec l'aide de 'section'.

Et il se peut fort bien que ta solution soit meilleur dans ce cas.

A+

[modus57]

Bonjour marot_r.

J'ai consulté la rubrique "Propriété Section" de l'aide ACCESS.

Il faut remplacer Section(acFooter) par Section(acGroupLevel2Footer).

Pourrais-tu me donner ton avis S.V.P.

@+

[marot_r]

C'est un peu à toi de décider, si tu remplace PiedGroupe4 par un nom significatif alors utiliser ce nom rend ton code plus lisible sinon c'est à peu prés équivalent.

J'utilise Section(AcFooter) pour éviter les pb Anglais-Français mais il n'y a qu'un seul footer tandis que tu peux avoir plusieur pied de groupe donc la dénomination acGroupLevel2Footer ne donne pas beaucoup d'info.

A+