Discussion :

[HABILER]

Bonjour la communauté,

Dans ma forme j'ai rajouté les champs Parente et Nom_parent. Mais lorsque Private Sub Form_Current()
s'effectue il me met un message d'erreur sur .visible de parente. A noter que le champs est de format texte, mais même en retirant Nz(... il m'indique toujours la même erreur.

Merci pour votre aide.

Habiler.

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 Form_Current()
Me.N°.Visible = Nz(Me.DecisionY_N, 0)
Me.datedec.Visible = Nz(Me.DecisionY_N, 0)
Me.Descrip.Visible = Nz(Me.DecisionY_N, 0)
Me.abstype.Visible = Nz(Me.DecisionY_N, 0)
Me.Doc.Visible = Nz(Me.DecisionY_N, 0)
Me.DecId.Visible = Nz(Me.DecisionY_N, 0)
Me.debut.Visible = Nz(Me.DecisionY_N, 0)
Me.fin.Visible = Nz(Me.DecisionY_N, 0)
Me.Parente.Visible = Nz(Me.DecisionY_N, 0)
Me.Nom_parent.Visible = Nz(Me.DecisionY_N, 0)
Me.DecId = Me.ID
Me.abstype = Me.Typedoc
End Sub

[Robert1957]

Bonjour HABILER,

Ce sera plus facile de t'aider si tu nous dit quel est le message d'erreur?

Bonne journée

[Thierry_PALLIER]

Bonjour le forum.
La propriété Visible est là pour indiquer si un contrôle doit etre visible ou non .Donc elle ne peut contenir que vrai ou faux .
Un exemple :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 If Me![reglement] = "virement" Or Me![reglement] = "différé" Then
        Me![banque].Visible = False
        Me![cheque].Visible = False
 
 Else
        Forms![facture]![sous form facture]![bon de commande].Visible = False
        Forms![facture]![sous form facture]![etiquette bon de com].Visible = False
        Me![banque].Visible = True
        Me![cheque].Visible = True
 
 End If

Cdlt

[Thierry_PALLIER]

Désolé, je suis allé un peu vite si Nz(Me.DecisionY_N, 0) provient d'une case à cocher.
Tu peux forcer le résultat en booléan en faisant:

Code :

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

CBool(Nz(Me.DecisionY_N, 0))

[HABILER]

Method or data member not found.

En fait tout marchait impeccablement lorsque j'ai rajouté les champs parente et Nom_parent. Parent étant devenu entretemps un "combox".
J'ai utilisé la solution de Thierry qui ne fonctionne apparemment pas et lorqu'on le met en 'explication,

Code :

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

CBool(Nz(Me.DecisionY_N, 0)).

le message d'erreur (Method or data member not found.) sur

Code :

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

Me.Parente.Visible = Me.DecisionY_N

(Visible en jaune) s'affiche).

J'ai vérifié les orthogaraphes et rien ne me semble suspect.

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
Private Sub Form_Current()
Me.N°.Visible = Nz(Me.DecisionY_N, 0)
Me.datedec.Visible = Nz(Me.DecisionY_N, 0)
Me.Descrip.Visible = Nz(Me.DecisionY_N, 0)
Me.abstype.Visible = Nz(Me.DecisionY_N, 0)
Me.Doc.Visible = Nz(Me.DecisionY_N, 0)
Me.DecId.Visible = Nz(Me.DecisionY_N, 0)
Me.debut.Visible = Nz(Me.DecisionY_N, 0)
Me.fin.Visible = Nz(Me.DecisionY_N, 0)
Me.Parente.Visible = CBool(Nz(Me.DecisionY_N, 0))
Me.Nom_parent.Visible = Nz(Me.DecisionY_N, 0)
Me.DecId = Me.ID_Dossier
Me.abstype = Me.Typedoc
End Sub


Private Sub DecisionY_N_AfterUpdate()
Me.N°.Visible = Me.DecisionY_N
Me.datedec.Visible = Me.DecisionY_N
Me.Descrip.Visible = Me.DecisionY_N
Me.abstype.Visible = Me.DecisionY_N
Me.Doc.Visible = Me.DecisionY_N
Me.DecId.Visible = Me.DecisionY_N
Me.debut.Visible = Me.DecisionY_N
Me.fin.Visible = Me.DecisionY_N
Me.Parente.Visible = Me.DecisionY_N
Me.Nom_parent.Visible = Me.DecisionY_N
'Me.DecId = Me.ID_Dossier
Me.abstype = Me.Typedoc
End Sub

Bàv

Habiler.

[Jean-Philippe André]

Salut,

il ne faut pas oublier le petit .Value après ton control Checkbox

Code :

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

Me.Parente.Visible = CBool(Nz(Me.DecisionY_N.value, 0))