[求助]表单行数如何统计？

AZA · 发表于 2006-10-26 23:09:00

我的一个Access文件中有60个表，每个表大概6000行，我现在想精确统计每个表的具体行数，我以前的笨办法是一个一个表打开，等它们自动显示出来之后再自己记下来。请问有没有更便捷的办法？最好能自动生成一个统计报表，列出每个表名及相应的行数。谢谢！

wuaza · 发表于 2006-10-27 00:27:00

Private Sub count()
Dim i As Variant
For Each i In Application.CurrentData.AllTables
If Left(i.Name, 4) <> "Msys" Then
If DCount("*", i.Name) > 0 Then
MsgBox i.Name & "共有记录数" & DCount("*", i.Name) & "条"
End If
End If
Next
End Sub

aydl1014 · 发表于 2006-10-27 00:45:00

提示: 作者被禁止或删除内容自动屏蔽

一点通 · 发表于 2006-10-27 01:26:00

可以的,你加在按钮的单击事件中测试一下吧

aydl1014 · 发表于 2006-10-27 01:41:00

提示: 作者被禁止或删除内容自动屏蔽

wuaza · 发表于 2006-10-27 02:43:00

1、你其中一个and前少了空格。

2、rst记录集需要update。

aydl1014 · 发表于 2006-10-27 16:23:00

提示: 作者被禁止或删除内容自动屏蔽

vios2009 · 发表于 2006-10-27 17:57:00

谢谢~看看~

aydl1014 · 发表于 2006-10-27 18:04:00

提示: 作者被禁止或删除内容自动屏蔽

AZA · 发表于 2006-10-27 18:40:00

谢谢各位指点！我试试～

帐号		自动登录	找回密码
密码			注册

群介绍
Access培训群 (792054000)
Access免费培训2群 (163530137)
Access免费培训群 (833510950)
Access免费培训群2 (792054000)
Access交流总群 (5004108)

主题相关群

地区相关群[您还没设置居住地]

[与其它组件] [求助]表单行数如何统计？

群介绍
主题无相 (随机显示版	同地区群块其他地区)

aydl1014 aydl1014 当前离线技术点技术点 V币点积分 3834 IP卡狗仔卡	3^# 发表于 2006-10-27 00:45:00 \| 只看该作者提示: 作者被禁止或删除内容自动屏蔽

	回复支持反对使用道具举报显身卡

aydl1014 aydl1014 当前离线技术点技术点 V币点积分 3834 IP卡狗仔卡	5^# 发表于 2006-10-27 01:41:00 \| 只看该作者提示: 作者被禁止或删除内容自动屏蔽

	回复支持反对使用道具举报显身卡

aydl1014 aydl1014 当前离线技术点技术点 V币点积分 3834 IP卡狗仔卡	7^# 发表于 2006-10-27 16:23:00 \| 只看该作者提示: 作者被禁止或删除内容自动屏蔽

	回复支持反对使用道具举报显身卡

aydl1014 aydl1014 当前离线技术点技术点 V币点积分 3834 IP卡狗仔卡	9^# 发表于 2006-10-27 18:04:00 \| 只看该作者提示: 作者被禁止或删除内容自动屏蔽

	回复支持反对使用道具举报显身卡