计算多个表中的行然后输出

Question

我在Access中有大约100个表，希望看到每个表包含的总行数以及表，而不显式定义表名。

例如，如果我有： 表1包含200行， 表2包含500行， 。 。 。 TableX包含y行

是否存在可以生成新表的vba / sql组合，其中left（tablename，5）='Table'显示： TableName，RowCount 表1,200 等

可以修改它以处理查询而不是表

Answer 1

您可以使用简单查询来选择所需信息，并将其插入新表中：

SELECT MSysObjects.Name, DCount("*",[Name]) AS RowCount INTO SomeTable
FROM MSysObjects
WHERE MSysObjects.Type=1 AND Name LIKE "Table*"

对于查询，您可以将其更改为MSysObjects.Type = 5