Error .visible

[habiler]

Hello,
In my form I added the fields Parente and Nom_parent . But when Form_Current Private Sub () occurs it makes me an error message on Me.parent.visible (.visible in yellow color). Note that the field is in text format, but even removing Nz (... he always tells me the same error. Thank you for your help.
Habiler.

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

 

[namliam]

.visible is a true or false (-1 0r 0) value "field", if you are trying to feed it "Y" or "N" or something simular it is going to fail....

 

[MarkK]

An unrelated trick you can do, if you do the same thing to a list of things like that, is use a loop, like . . .

Private Sub Form_Current()
    If IsNull(Me.DecisionY_N) Then Me.DecisionY_N = "N"
    SetVisibility
    Me.DecId = Me.ID
    Me.abstype = Me.Typedoc
End Sub

Private Sub SetVisibility()
    Dim var
    For Each var In Array(Me.N°, Me.datedec, Me.Descrip, Me.abstype, Me.Doc, Me.DecId, Me.debut, Me.fin, Me.Parente, Me.Nom_parent)
        var.Visible = Me.DecisionY_N = "Y"
    Next
End Sub