Access VBA中如何检查记录集第10列及后续每隔3列是否为空？

需求说明：
有一个来自Access表的25列Recordset，需要编写宏检查第10列是否为空，之后依次检查后续每隔3列直至Recordset末尾。

用户现有代码片段：

Public Sub calculations()
Dim Tactical  As dao.Database
Dim rsvol As dao.Recordset
Dim i As Long

Set Tactical = CurrentDb
Set rsvol = Tactical.OpenRecordset("Calculations Table")

Debug.Print rsvol.Fields.Count
For i = 10 To rsvol.Fields.Count

完善后的代码 #

Public Sub calculations()
    Dim Tactical As dao.Database
    Dim rsvol As dao.Recordset
    Dim i As Long
    
    Set Tactical = CurrentDb
    Set rsvol = Tactical.OpenRecordset("Calculations Table")
    
    ' 遍历Recordset的每一条记录
    Do While Not rsvol.EOF
        ' 注意：Access字段索引从0开始，第10列对应索引9；步长设为3，每隔3列检查一次
        For i = 9 To rsvol.Fields.Count - 1 Step 3
            ' 检查当前字段是否为空（IsNull适用于Null值，Len(Trim)适用于空字符串）
            If IsNull(rsvol.Fields(i).Value) Or Trim(rsvol.Fields(i).Value) = "" Then
                ' 这里可添加自定义处理逻辑，比如输出提示、标记异常记录等
                Debug.Print "记录ID: " & rsvol!ID & "，第" & (i + 1) & "列为空"
            End If
        Next i
        rsvol.MoveNext ' 移动到下一条记录
    Loop
    
    ' 关闭并释放资源
    rsvol.Close
    Set rsvol = Nothing
    Set Tactical = Nothing
End Sub

关键说明 #

• 字段索引修正：Access的Recordset字段索引从0开始，原代码中i=10会从第11列开始检查，需改为索引9对应第10列。
• 循环步长设置：通过Step 3实现每隔3列检查一次的需求，确保从第10列开始，依次覆盖第13、16…直到最后一列。
• 空值判断逻辑：组合IsNull和Trim判断，兼顾字段为Null或空字符串的情况，可根据实际数据场景调整。
• 资源释放：操作完成后关闭Recordset并释放对象，避免内存泄漏。

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