Access VBA表单多组合框值重复校验问题及实现方案

问题背景 #

需为Access表单的查询按钮实现提交前双重校验：

• 校验8个组合框（pc_cbox1至pc_cbox8）的选项是否重复
• 校验对应百分比字段的总和是否符合要求
  用户尝试过三种方案：两两比较（可行但代码冗余）、OR逻辑批量比较（无效）、循环校验（失败），最终通过Scripting.Dictionary实现了高效可靠的重复项校验，结合百分比校验完成数据提交。

核心问题分析 #

1. 两两比较：需编写28组判断逻辑，代码臃肿且后续维护成本高
2. OR逻辑批量比较：如pc_cbox1.Value = pc_cbox2.Value OR pc_cbox1.Value = pc_cbox3.Value...的写法，易因空值干扰、逻辑覆盖不全导致校验失效
3. 循环校验失败常见原因：多数是未正确跳过空值、未统一值的类型格式，或未及时终止循环定位错误控件

最终实现代码 #

1. 重复项校验（Scripting.Dictionary） #

先引用Microsoft Scripting Runtime库（或用后期绑定），利用字典键的唯一性快速检测重复：

Private Function HasDuplicateCbox() As Boolean
    Dim dict As New Scripting.Dictionary
    Dim cbox As Control
    Dim cboxValue As Variant
    
    HasDuplicateCbox = False
    '遍历符合命名规则的组合框
    For Each cbox In Me.Controls
        If Left(cbox.Name, 6) = "pc_cbox" Then
            cboxValue = cbox.Value
            '跳过空值避免误判
            If Not IsNull(cboxValue) And cboxValue <> "" Then
                If dict.Exists(cboxValue) Then
                    HasDuplicateCbox = True
                    MsgBox "组合框选项重复，请检查！", vbExclamation
                    cbox.SetFocus '定位到重复控件
                    Exit Function
                Else
                    dict.Add cboxValue, cbox.Name '键存选项值，值存控件名便于定位
                End If
            End If
        End If
    Next cbox
End Function

2. 百分比总和校验 #

假设对应百分比输入框为pc_txt1至pc_txt8，校验总和是否为100（加入浮点误差容忍）：

Private Function IsPercentSumValid() As Boolean
    Dim totalPercent As Double
    Dim txtBox As Control
    
    totalPercent = 0
    IsPercentSumValid = True
    '遍历百分比输入框
    For Each txtBox In Me.Controls
        If Left(txtBox.Name, 6) = "pc_txt" Then
            If IsNumeric(txtBox.Value) Then
                totalPercent = totalPercent + CDbl(txtBox.Value)
            Else
                MsgBox "百分比必须为数字，请检查！", vbExclamation
                txtBox.SetFocus
                IsPercentSumValid = False
                Exit Function
            End If
        End If
    Next txtBox
    
    '允许0.001的误差，避免浮点计算精度问题
    If Abs(totalPercent - 100) > 0.001 Then
        MsgBox "百分比总和需为100%，当前为" & totalPercent & "%", vbExclamation
        IsPercentSumValid = False
    End If
End Function

3. 查询按钮点击事件整合 #

Private Sub cmdQuery_Click()
    '先执行重复项校验
    If HasDuplicateCbox() Then Exit Sub
    '再执行百分比校验
    If Not IsPercentSumValid() Then Exit Sub
    
    '校验通过，执行SQL查询
    Dim sqlStr As String
    '根据实际业务需求拼接SQL语句
    sqlStr = "SELECT * FROM 目标数据表 WHERE " & _
             "字段1 = '" & Me.pc_cbox1.Value & "' AND " & _
             "字段2 = '" & Me.pc_cbox2.Value & "'"
    '执行查询（示例为打开查询，可根据需求改为生成记录集等操作）
    DoCmd.OpenQuery sqlStr
End Sub

关键说明 #

• Scripting.Dictionary优势：代码简洁易维护，支持动态扩展控件（后续新增组合框只需保持pc_cbox开头的命名规则即可）
• 空值处理：校验时主动跳过空组合框，避免空值被误判为重复项
• 浮点精度兼容：百分比校验加入误差容忍，解决Access浮点数计算的精度偏差问题

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