meerdere velden zichtbaar

[jwaque]

Op mijn rapport heb ik twee kolommen met gegevens uit de database. Nu moet je soms alleen kolom 1 verwerken, soms kolom 2 en soms beide. Bovenaan de kolom staat of je de kolom moet gebruiken ja of nee.

Nu zou ik graag zien dat de velden in de kolom niet zichtbaar zijn als er bovenaan nvt staat. ik kan dit per veld doen met

If IsNull(Me.txtPatopmerkingen) Then
    Me.txtPatopmerkingen.Visible = False
    Me.txtmemo.Visible = False
Else
    Me.txtPatopmerkingen.Visible = True
    Me.txtmemo.Visible = True
End If

maar het zijn wel heel veel velden. Kan ik ook het eigenschapsveld: extra info (tag) gebruiken om alle velden in een keer zichtbaar te maken?

 

[OctaFish]

Je kunt een lus maken die door alle tekstobjecten loopt, en op basis van een specifieke eigenschap iets verbergt of niet. Dat kan de .Tag zijn, uiteraard.

 

[jwaque]

oke de lus begrijp ik maar hoe benoem ik alle tekstobjecten. me.x zoekt naar object x. wat schrijf ik als ik wil dat x alle tekstobjecten zijn?

vervolgens vergelijk ik dit met het de extra info. me.x.tag="de tekst die ik wil"

 

[OctaFish]

Met zoiets kom je een heel eind:

Dim ctl As Control
For Each ctl In Me.Controls
    With ctl
        Select Case .ControlType
            Case acCheckBox, acTextBox
                If .Tag = "Hide" Then
                    .Visible = False
                Else
                    .Visible = True
                End If
        End Select
    End With
Next ctl

 

[jwaque]

geweldig. super bedankt.