code voor veld zichtbaar of onzichtbaar

[novita]

Hallo,
naar al een tijdje aan het speuren en proberen geweest kom ik er niet uit.
wellicht dat iemand mij wat op weg kan helpen.

de situatie is, ik heb een hoofdformulier (Ombouw_registratie_frm) met daarin een veld (opmerkingen) die ik wil verbergen als de waarde in het subformulier (Subformulier Ombouw_registratie_reken_Query_frm) met het veld (Verschil_richttijd_netto_ombouw) groter is als 1.

Het hoofdformulier gegevens hangen aan een tabel (Ombouw_registratie) en het Subformulier aan de (Ombouw_registratie_reken_query).

Groet, Novita

 

[OctaFish]

Zo, jij houdt van lange namen . Maar ik zou het zo doen:

    Set objFormulier = Me.[Subformulier Ombouw_registratie_reken_Query_frm]
    Set frmOmbouw = objFormulier.Form
    With frmOmbouw!Verschil_richttijd_netto_ombouw
        If .Value > 1 Then
            Me.Opmerkingen.Visible = False
        Else
            Me.Opmerkingen.Visible = True
        End If
    End With

Daarbij heb je bijna alle noodzakelijke info gegeven, behalve de naam van het opmerkingenveld, en van het formulierobject. Dus daar heb ik een slag naar geslagen .

 

[novita]

Tjee dassss snel, en het werkt zo te zien hartstikke bedankt :thumb:

Groet, Novita