因溢出引发运行时错误6：Access表单控件循环计算问题求助

原代码核心问题 #

• 变量初始化位置错误：total和sel在循环内每次重置为0，无法累计所有控件的Y/N数量，每次仅统计当前控件的单个值。
• 语法错误：第二个条件判断多写了一个If，属于非法语法。
• 除零风险：当无任何控件值为Y/N时，total为0，执行sel/total会触发除零溢出错误。
• 逻辑错误：直接修改输入控件的Value属性，会覆盖原本的Y/N输入值，应将计算结果显示在专门的结果控件中，而非修改源数据。
• 变量未声明类型：total和sel默认是Variant类型，针对180个控件的统计，建议显式声明为Long避免数值溢出。

修复后的代码 #

Private Sub comm_click()
    Dim clt As Control
    Dim total As Long
    Dim sel As Long
    Dim resultCtrl As Control ' 需提前在表单上创建结果控件，比如命名为txtResult
    
    ' 初始化统计变量
    total = 0
    sel = 0
    
    ' 获取结果控件对象
    Set resultCtrl = Me.Controls("txtResult")
    
    ' 遍历所有控件
    For Each clt In Me.Controls
        ' 仅处理文本框和组合框
        If clt.ControlType = acTextBox Or clt.ControlType = acComboBox Then
            ' 统一转为大写处理空值和大小写差异
            Select Case UCase(Nz(clt.Value, ""))
                Case "Y"
                    sel = sel + 1
                    total = total + 1
                Case "N"
                    total = total + 1
                ' 非Y/N的情况不统计
            End Select
        End If
    Next clt
    
    ' 计算并显示结果，规避除零错误
    If total > 0 Then
        resultCtrl.Value = Format(sel / total, "0.0000") ' 保留四位小数
    Else
        resultCtrl.Value = "无有效Y/N输入"
    End If
End Sub

关键修改说明 #

1. 将total和sel的初始化移至循环外，确保累计所有控件的统计值。
2. 使用UCase(Nz(clt.Value, ""))统一处理空值和大小写，简化判断逻辑。
3. 新增结果控件专门显示计算值，不修改原输入控件的内容。
4. 增加total>0的判断，避免除零溢出错误。
5. 显式声明变量类型，提升代码稳定性和性能。

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