Office中国论坛/Access中国论坛

标题: 如何不让对话框出来? [打印本页]

作者: chunyi 时间: 2004-12-27 08:11
标题: 如何不让对话框出来?
我用这段代码删除数据库中的所有记录,但是每删除一个表中的记录时都会出一个对话框,

如何不让对话框出来呢?谢谢!!

Dim objTable As Access.AccessObject

'遍历表集合

For Each objTable In Application.CurrentData.AllTables

'如果不是系统表则删除该表的所有记录

If Left(objTable.Name, 4) <> "MSys" Then

DoCmd.RunSQL "DELETE * FROM " & objTable.Name

End If

Next<BR ><BR >

作者: zyp 时间: 2004-12-27 16:54
嘗試關閉"工具">"選項">"編輯/尋找",清除確認項中的相關選項

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)