Discussion :

[NoBru]

Bonjour à toutes et à tous,

Dans un ETAT, comment rendre (inv)visible un contrôle en fonction du contenu d'un autre :

Du style: Si ZTX_01.Value=1 alors ZTX_02.visible=TRUE

D'avance merci

[tee_grandbois]

Bonsoir,
Remplace Visible= True par Value = Null

Code :

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

If ZTX_01.Value = 1 Then ZTX_02.Value = Null

Sauf si ce champ doit te servir à un cumul ou bien si c'est un lien OLE ou un champ mémo.

[NoBru]

Bonjour,
Voici ce que j'ai trouvé mais, cela me semble un peu "barbare" et compliqué, voir même peut-être risqué, si je devais rajouter d'autres contrôles à mon ETAT:

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
Private Sub Détail_Format(Cancel As Integer, FormatCount As Integer)
 
'''  L'événement "Format" se produit lorsque Microsoft Access détermine quelles données doivent
'''figurer dans une section d'un état mais, avant que Microsoft Access ne formate la section
'''considérée pour aperçu ou pour impression
 
    If Me.Controls.Item(86).Value = "0" Then    '''Me.ZTX_Pmrl_0_1  (87)
        ''' Personne Morale
        Me.Controls.Item(72).Visible = False    '''Me.ZTX_NomMrl    (73)
        Me.Controls.Item(73).Visible = False    '''Me.ZTX_PNomMrl   (74)
        Me.Controls.Item(78).Visible = False    '''Me.ETQ_Mrl       (79)
    Else
        ''' Personne Rattachée à un Foyer
        Me.Controls.Item(72).Visible = True     '''Me.ZTX_NomMrl    (73)
        Me.Controls.Item(73).Visible = True     '''Me.ZTX_PNomMrl   (74)
        Me.Controls.Item(78).Visible = True     '''Me.ETQ_Mrl       (79)
    End If
 
End Sub

Est ce la bonne façon de faire, ou bien existe t-il un moyen plus simple comme avec les formulaires ?
D'avance merci

[tee_grandbois]

Est ce la bonne façon de faire, ou bien existe t-il un moyen plus simple comme avec les formulaires ?
D'avance merci

C'est effectivement la plus simple donc ton premier code était correct

Code :

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

Si ZTX_01.Value=1 alors ZTX_02.visible=TRUE

Code :

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

1
2
If Me.Controls.Item(86).Value = "0" Then
Me.Controls.Item(72).Visible = False

Cette dernière méthode fonctionne mais est plus compliquée car cela t'oblige à connaitre le N° d'item de tes champs.