VBA如何依据Microsoft Access中一个组合框的值调整其他组合框可见性

你可以通过窗体的Controls集合动态引用指定名称的控件，结合For循环实现需求，完整代码如下：

Private Sub cmb_BoxValue_AfterUpdate()
    Dim N As Integer
    Dim i As Integer
    ' 先判断组合框是否为空，避免取值报错
    If IsNull(Me.cmb_BoxValue.Value) Then
        ' 空值时默认全部隐藏，可按需调整逻辑
        For i = 1 To 20
            Me.Controls("cmb_Box" & i).Visible = False
        Next
        Exit Sub
    End If
    
    N = Me.cmb_BoxValue.Value
    ' 循环批量设置所有组合框可见性
    For i = 1 To 20
        ' 小于等于N则显示，否则隐藏，直接赋值布尔表达式结果即可
        Me.Controls("cmb_Box" & i).Visible = (i <= N)
    Next
End Sub

代码说明 #

• 优先做了空值校验，避免组合框未选择时取值报错，空值逻辑可根据实际使用需求调整
• 通过Me.Controls("cmb_Box" & i)的写法可以动态拼接控件名引用对应组合框，不需要逐个硬编码控件名称
• 直接将i <= N的布尔判断结果赋值给Visible属性，省略了额外的If分支判断，代码更简洁

注意事项 #

如果你的实际控件命名和示例有差异，比如名称拼写、大小写不同，调整代码中"cmb_Box"的字符串内容和你的实际控件名前缀保持一致即可。

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