Access表单根据字段值动态显示指定控件的实现方法求助

要实现根据Activiteiten字段值动态切换显示不同控件，单纯调整字段属性无法满足需求，需要通过VBA代码实现控件可见性的动态控制，步骤如下：

1. 打开表单设计视图，选中Activiteiten控件（文本框/组合框），在右侧属性窗格的事件选项卡中，找到「更新后」事件，选择「事件过程」并点击右侧的「...」按钮打开VBA编辑器。

2. 在VBA编辑器中输入以下代码，根据实际控件名称调整：

Private Sub Activiteiten_AfterUpdate()
    ' 切换控件可见性逻辑
    If Me.Activiteiten.Value = "Onderzoek" Then
        ' 显示目标字段
        Me.Penvoerder.Visible = True
        Me.Subsidie.Visible = True
        ' 隐藏其他字段（替换为你实际需要隐藏的控件名称）
        Me.OtherField1.Visible = False
        Me.OtherField2.Visible = False
    Else
        ' 隐藏目标字段
        Me.Penvoerder.Visible = False
        Me.Subsidie.Visible = False
        ' 显示其他字段（替换为你实际需要显示的控件名称）
        Me.OtherField1.Visible = True
        Me.OtherField2.Visible = True
    End If
End Sub

Private Sub Form_Load()
    ' 表单加载时初始化控件状态
    Call Activiteiten_AfterUpdate
End Sub

3. 关键注意事项：

• 确保代码中的控件名称与设计视图里的控件名称完全一致（Access中控件名称可能和字段名不同，需核对）。
• 如果Activiteiten是组合框，若绑定的是ID而非文本值，需用Me.Activiteiten.Column(n)获取文本（n为文本所在列的索引，从0开始），比如Me.Activiteiten.Column(1) = "Onderzoek"。
• 测试时切换Activiteiten的值，确认控件可见性是否正确切换；打开表单时也会自动根据当前记录值初始化状态。

内容的提问来源于stack exchange，提问作者mr_laut