新建模块——>贴上下面代码——>运行
Function ClearAllData()
Dim rst As Function ClearAllData(
阅读背景：
快速清空Access资料库中所有表的数据
来源：互联网
分享到：
