删除所有空行 - 访问 VBA

Question

基本问题。

我需要删除数据库中表的所有空/空行。问题是没有办法知道有多少个字段，或者删除前的字段名称。 我需要在删除之前验证每个字段是否为空/空。不确定如何在访问 VBA 中查询此内容。

在我找到的所有示例中，它们都有一个可以测试空白的字段名称。

提前谢谢。

Answer 1

将TestTabke更改为表名。如果您有"自动编号"字段，则必须跳过该字段。我正在使用 DAO。如果需要 ADO，请转换以下代码。

Function DeleteEmptyRows()
    Dim db As DAO.database
    Set db = CurrentDb
    Dim rs As DAO.recordSet
    Set rs = db.OpenRecordset("TestTable")
    Do Until rs.EOF
        For inx = 0 To rs.Fields.Count - 1
            If IsNull(rs.Fields(inx).Value) Or Len(Trim(rs.Fields(inx).Value)) = 0 Then
                Else: Exit For
            End If
        Next
        If rs.Fields.Count = inx Then
            rs.Delete
        End If
        rs.MoveNext
    Loop
End Function