近期写一个小工具，想用以前写的一个工具作模板。数据库已经很大了，想知道是哪个表的数据多删一删。固有此代码。

Sub CountRecords()
    Dim db As DAO.Database
    Dim tbl As DAO.TableDef
    Dim rst As DAO.Recordset
    Dim strTable As String
    Dim lngCount As Long
    
    Set db = CurrentDb()
    
    For Each tbl In db.TableDefs
        If (tbl.Attributes And dbHiddenObject) <> dbHiddenObject Then
            strTable = tbl.Name
            
            If Left(strTable, 4) <> "MSys" Then
                Set rst = db.OpenRecordset(strTable)
                lngCount = rst.RecordCount
                
                Debug.Print strTable & ": " & lngCount
                
                rst.Close
            End If
        End If
    Next tbl
    
    Set rst = Nothing
    Set tbl = Nothing
    Set db = Nothing
End Sub

注：此代码为ai完成。实测可用。