Subform Zichtbaar n.a.v. Checkbox

[Marcotica]

hallo,

In de database heb ik een subformulier zitten die uitsluitend getoond moet worden als een checkbox is aangevinkt. Van OctoFish heb ik destijds deze vba script ontvangen. (waarvoor nog steeds dank), maar ik krijg 'm niet in een nieuwe dbase/formulier.
Hieronder het script:

Private Sub Form_Current()
Dim ctl As Control

For Each ctl In Controls
    With ctl
        Select Case .ControlType
            Case acCheckBox
                If .Tag <> "" Then
                    If .Value = vbTrue Then
                        Me(.Tag).Visible = True
                    Else
                        Me(.Tag).Visible = False
                    End If
                End If
            Case Else
        End Select
    End With
Next ctl

End Sub

Private Sub CtlCheckBoxSeparaatAdres_BeforeUpdate(Cancel As Integer)

    If Me.CtlCheckBoxSeparaatAdres = "-1" Then
       Me.CtlSubFrm_Volm_adres_tbv_schadelijsten.Visible = True
        
Else
      Me.CtlSubFrm_Volm_adres_tbv_schadelijsten.Visible = False
        
   End If
   
End Sub

Wellicht kan je me helpen (OctoFish)

Gr. marco

 

[OctaFish]

Waarom heb je de code bij de BeforeUpdate staan? Ik zou 'm eerder bij de formuliereigenschap <Bij aanwijzen> zetten. Je wilt denk ik dat-ie gecontroleerd wordt als het formulier met een bepaald record wordt geopend, niet?

 

[Marcotica]

Waarom heb je de code bij de BeforeUpdate staan? Ik zou 'm eerder bij de formuliereigenschap <Bij aanwijzen> zetten. Je wilt denk ik dat-ie gecontroleerd wordt als het formulier met een bepaald record wordt geopend, niet?

Hoi Octo,

Optie <Bij aanwijzen> is geen optie bij de checkbox. Deze wordt niet weergegeven.
Zie printscreen.

 

[OctaFish]

Daarom zei ik ook: formuliereigenschappen

 

[Marcotica]

Thnx

Daarom zei ik ook: formuliereigenschappen

Gelukt. Probleem (nou ja probleem, eerder een uitdaging) is opgelost.
Bedankt weer voor in input.

Gr. Marco
:thumb: