Access VBA运行时错误排查：Adjust_ComboBox宏偶发报错问题

我帮你分析下这个时好时坏的Runtime错误，大概率是代码里几个容易被忽略的细节触发的，结合你的代码来看，主要有这几个可能的原因：

1. 未声明ctl变量导致的类型异常 #

你代码里用For Each ctl In mes.Detail.Controls遍历控件，但没提前声明ctl的类型，默认它是Variant类型。这种情况下，如果窗体处于特殊状态（比如正在加载、切换视图），或者遍历到非预期的控件对象时，很容易触发类型不匹配的Runtime错误。

建议在代码开头加上：

Dim ctl As Control

明确变量类型，避免Variant隐式转换带来的问题。

2. 多值ComboBox的Value属性未处理边界情况 #

你的代码直接把ctl.Value赋值给数组comboitems()，但多值ComboBox的Value有几种特殊情况：

• 如果ComboBox是空的，ctl.Value是Null，直接赋值给数组会报错
• 如果只有一个选中项，ctl.Value是单个值而非数组，调用UBound(comboitems)会直接触发Runtime错误

你用On Error Resume Next跳过了这一步的错误，但后续的count变量会处于未正确初始化的状态，执行ctl.Height = (300 * count)时就会出问题。

建议修改这部分逻辑，先判断空值和数组类型：

If TypeName(ctl) = "ComboBox" Then
    Dim comboitems() As Variant
    count = 1 ' 默认高度对应1项
    If Not IsNull(ctl.Value) Then
        If IsArray(ctl.Value) Then
            comboitems = ctl.Value
            count = UBound(comboitems) + 1
        End If
        ' 单值情况不需要额外处理，count保持1即可
    End If
    ctl.Height = (300 * count)
    Erase comboitems
End If

3. 窗体引用的有效性未校验 #

你直接用Set mes = [Form_Treatment Details]引用窗体，但如果窗体没打开，或者处于设计视图而非正常的窗体/数据表视图时，这个引用会失效，后续遍历mes.Detail.Controls时就会触发Runtime错误。而且On Error Resume Next会掩盖这个初始错误，让问题更难排查。

建议先校验窗体状态：

If CurrentProject.AllForms("Treatment Details").IsLoaded Then
    If Forms("Treatment Details").CurrentView <> acCurViewDesign Then
        Set mes = Forms("Treatment Details")
        ' 后续遍历控件的代码放在这里
    Else
        MsgBox "窗体处于设计视图，无法执行调整操作"
        Exit Sub
    End If
Else
    MsgBox "窗体未打开，无法执行调整操作"
    Exit Sub
End If

4. On Error Resume Next掩盖了中间错误 #

你在遍历控件前加了On Error Resume Next，这会把中间所有的错误（比如控件访问权限、控件状态异常）都掩盖掉，导致真正的错误没有被捕获，反而在后续代码里触发更模糊的Runtime错误。比如某个ComboBox处于不可编辑状态时，访问它的Value属性会报错，但被跳过之后，count变量未初始化就去设置高度，自然会出问题。

建议移除这个全局的On Error Resume Next，只在明确需要跳过单个错误的地方使用，或者在错误处理里捕获具体的错误代码，方便定位问题。

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