如果是隐藏表，做一个命令按钮，单击事件中代码：
DoCmd.Rename "表名", acTable, "~TMPCLP表名"
但：1首先要知道这个表名：
使用查询：select * from msysobjects where name like '~TMPCLP*'
2 这个命令按钮应建在没有引用这个隐藏表的窗体上
如果是隐藏窗体，不知上面代码怎样改动。作者: t小宝 时间: 2009-12-13 13:45
获取所有窗体的名称（补充楼上的）
Sub AllForms()
Dim obj As AccessObject, dbs As Object
Set dbs = Application.CurrentProject
For Each obj In dbs.AllForms
Debug.Print obj.Name
Next obj
End Sub作者: xryacc2 时间: 2009-12-13 14:11
真都是高手哦，谢谢各位。我由此想到用这种重命名表的方法隐藏表以增加安全性，当我用类似以上代码隐藏表后，即使在“选项”中勾选显示“隐藏对象”也无法显示，但是另外随意建一个mdb文件，用“导入”功能，可看到重命名的~TMPCLP*表，唉，我只想做个简单应付一般用户不能随意导出表的功能都难啊。不过，有一位论坛里的高手，也是用代码把表隐藏后，用导入和链接都看不到隐藏的表，可惜他把文件转成了mde格式，现在我把例子传上，有兴趣的朋友可以看一下，有知道方法的请不吝分享一下吧！（注这个例子文件好像是2003或2002版的）