如何不让对话框出来?

chunyi

我用这段代码删除数据库中的所有记录,但是每删除一个表中的记录时都会出一个对话框,

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

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

嘗試關閉"工具">"選項">"編輯/尋找",清除確認項中的相關選項