Private Sub Cmd_ALLTbl_Click()
If MsgBox("您确认要删除所有的<表>对象吗?请慎重,一旦删除即无法恢复", vbOKCancel + vbDefaultButton2 + vbExclamation, "提示!!!!") = vbOK Then
'删除所有表代码如下
Dim rst As Object
'对象类型1代表是表
Set rst = CurrentProject.Connection.Execute("Select Name FROM MsysObjects Where flags=0 AND (MSysObjects.Type)=1 orDER BY MSysObjects.Name")
Do While Not rst.EOF
DoCmd.DeleteObject acTable, rst("Name")
rst.MoveNext
Loop
rst.Close
Set rst = Nothing
MsgBox "所有表已删除完成!", vbInformation, "提示:"
End If
End Sub
附 件:
点击下载此附件