Discussion :

[Miss Ti]

Bonjour à tous,

Je cherche à pouvoir choisir si certains champs doivent être visibles sur un état depuis un formulaire.
Pour info, le formulaire en question possède un bouton pour lancer le preview d'un état. Je voudrais mettre un groupe d'option qui me permette de choisir si je veux l'historique ou non dans l'état.
J'ai mis le code suivant:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub Opt_historique_AfterUpdate()
    Select Case Me.Opt_historique
        Case 1
            [Reports]![CG60_good].[etat1]!Image23.Visible = True
            ...
            [Reports]![CG60_good].[etat1]![Maitre ouvrage].Visible = True
        Case 2
            [Reports]![CG60_good].[etat1]!Image23.Visible = False
             ...
            [Reports]![CG60_good].[etat1]![Maitre ouvrage].Visible = False
    End Select

Lorsque je clique sur une option, le message d'erreur suivant apparait:

Erreur d'exécution '2451':
Le nom d'état 'CG60_good' entré dans votre expression est mal orthographié ou fait référence à un état qui n'est pas ouvert ou qui n'existe pas

Je suppose que c'est dû au fait qu'il ne soit pas encore ouvert.

D'où la question: comment définir un objet visible ou non dans un état depuis un formulaire?
(l'état peut être lancé aussi depuis un autre formulaire)

[marot_r]

Il suffit de déplacer ton code dans le rapport et de regarder dans le formulaire ou d'utiliser OpenArgs et l'événement OnOpen.

un truc du genre

Code :

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

1
2
3
4
5
 
 
if [forms]![MonForm]![MonChampParam]=maValeur then
  me.MonChamp.Visible =false
end if

Personnelement je préfère le OpenArgs mais c'est un peu plus compliqué.

A+

[Miss Ti]

Je me suis débrouillée pour mettre une variable booléenne publique dans un module.
A l'évènement "AfterUpdate" sur ce groupe d'option, booléen = true si l'option est la 1e ==> au chargement de l'état, si booléen = true, alors l'historique est visible.

Il me semble que c'est la méthode la mieux adaptée car cet état peut être appelé:
- depuis le formulaire montrant les détails sur les sites
- depuis le formulaire multi-recherche pour imprimer tous les enregistrements sélectionnés dans la liste de résultats. Donc la variable booléenne dépend de ce groupe d'option qui est sur 2 formulaires.

J'ai bon?
En tous cas, ça marche...

[marot_r]

La variable globale est une solution mais elle doit être utiliser avec précaution. Le problème des variables globales c'est qu'elles peuvent être utilisées n'importe où dans l'appli et surtout modifiées par n'importe quel module.

Je te conseillerai plutôt l'usage de OpenArgs avec un code du genre.

Dans un module tu défini

Code :

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

1
2
3
 
global const AFFICHER_HISTORIQUE as boolean = true
global const NE_PAS_AFFICHER_HISTORIQUE as boolean = false

Dans ton rapport :

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
 
Private Sub Report_Open(Cancel As Integer)
 
  if not isnull(me.openargs) then
    dim prmAfficherHisto as boolean
    prmAfficherHisto=CBool(me.OpenArgs)
 
    if prmAfficherHisto =  AFFICHER_HISTORIQUE then
        me.histo.visible=false
      else
        me.histo.visible=true
    end if
 
  end if
 
End Sub

lors de ton appel, tu fais :

Code :

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

1
2
 
docmd.OpenReport "monRapport",,,,,AFFICHER_HISTORIQUE

ou

Code :

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

1
2
 
docmd.OpenReport "monRapport",,,,,NE_PAS_AFFICHER_HISTORIQUE

C'est plus lourd mais cela a les avantages suivants :

- c'est lisible directement, pas besoin d'ouvrir le rapport pour savoir comment le true/false sera interprété.

- Il n'y a pas de risque de polution de ta variable globale par un autre module.

A+

[Miss Ti]

Merci pour le conseil.
Je vais mijoter tout ça.