基于ID字段查找非ID列全为Null的记录（Access VBA）

需求说明 #

需要从包含51个字段的表中，筛选出仅ID字段有值，其余所有列值均为Null的记录。

示例表 #

预期输出 #

实现方法（动态生成筛选条件，适合多字段场景） #

因为表字段数量多，手动编写筛选条件效率极低，推荐用VBA动态遍历字段生成SQL语句：

Sub FilterAllNullExceptID()
    Dim db As DAO.Database
    Dim fld As DAO.Field
    Dim strSQL As String
    Dim strWhere As String
    Dim tableName As String
    
    ' 替换为你的目标表名
    tableName = "YourTableName"
    
    Set db = CurrentDb()
    
    ' 遍历表字段，生成除ID外的Null判断条件
    For Each fld In db.TableDefs(tableName).Fields
        If fld.Name <> "ID" Then
            If strWhere <> "" Then strWhere = strWhere & " AND "
            strWhere = strWhere & "[" & fld.Name & "] IS NULL"
        End If
    Next fld
    
    ' 构建完整查询SQL
    strSQL = "SELECT * FROM " & tableName & " WHERE " & strWhere
    
    ' 执行查询并将结果保存到新表（FilteredRecords）
    On Error Resume Next
    DoCmd.DeleteObject acTable, "FilteredRecords"
    On Error GoTo 0
    
    If strWhere <> "" Then
        DoCmd.RunSQL strSQL & " INTO FilteredRecords"
        MsgBox "筛选完成，结果已保存至FilteredRecords表"
    Else
        MsgBox "未找到符合条件的记录"
    End If
    
    ' 清理对象
    Set db = Nothing
End Sub

使用说明

1. 打开Access数据库，按下Alt + F11打开VBA编辑器
2. 插入新模块，粘贴上述代码
3. 将代码中的YourTableName替换为实际的表名
4. 运行该宏，筛选结果会自动保存到名为FilteredRecords的新表中

手动SQL写法（不推荐多字段场景） #

如果字段数量较少，也可以直接编写SQL语句：

SELECT * FROM YourTableName 
WHERE Col1 IS NULL AND Col2 IS NULL AND Col25 IS NULL AND Col50 IS NULL

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