Discussion :

[curt]

Bonsoir à tous,

Dans un état, j'ai une case à cocher dont l'état est renseigné depuis une table.

J'essai en vain d'automatiser l'affichage d'un sous-état en foncion de l'état de cette case à cocher.

Voilà le code :

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Report_Open(Cancel As Integer)
 
    If Me.Cbo_Piece_jointe.Value = true Then
        me.Report![SPrn_Pieces_Jointes].visible = true
    else
        me.Report![SPrn_Pieces_Jointes].visible = false
    end if
 
End Sub

Toute aide précieuse sera la bienvenue !
Curt

[zoom61]

Cela ne serait-il pas dans le chargement de l'état que tu devrais le mettre et pas dans l'ouverture de l'état ???

[curt]

Bonjour Zoom61,

merci pour l'idée, mais il se passe le phénomène suivant (d'où ce post):

1/ En mode création, lorque je clique sur Aperçu, ça fonctionne
2/ En utilisation, j'obtiens le message "Erreur 2427 - Expression sans paramètre" sur la ligne du code

Code :

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

If Me.Cbo_Piece_jointe.Value = true Then

Pour ceux qui penserait (comme moi) que mettre un 'On error resume next' serait la solution... et bien non car dans ce cas, le test n'est pas pris en compte et le sous-état ne s'affiche jamais (il est non visible par défaut !)

A croire que puisque l'état n'est pas chargé, on ne peut pas tester la valeur de la case à cocher donc ERREUR !!!

J'ai lu avec attention l'excellent tuto de Loufab () sur les évènements http://loufab.developpez.com/tutorie...ss/evenements/ mais je sèche sur le sujet !!

Merci pouir l'aide.

Curt

[zoom61]

La solution est de mettre la donnée dans une variable et le problème devrait être résolue :

1°) Code à mettre dans un module

Code :

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

1
2
3
4
5
6
7
Dim g_var As String
Public Function get_gar() As String
get_var = g_var
End Function
Public Function set_var(var As String)
g_var = var
End Function

2°) Pour saisir une valeur dans la variable :

Code :

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

i = set_var(Me.Cbo_Piece_jointe.Value)

3°) Pour récupérer la valeur :

Code :

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

If get_var() = true Then

[curt]

Salut Zoom61,

ça fonctionne bien (à l'erreur de frappe prêt sur get_gar au lieu de get_var)

Par contre, la prise en compte de ce code ne s'effectue que sur la première page !!

J'ai solutionné en mettant un champ et une mise en forme conditionnelle.

Merci
Curt