【Access源码示例】删除所有表,删除全部表,清理全部表对象的示例\【系统表除外,只是删除新建的普通表】慎用

时　间:2012-08-13 09:59:19
作　者:金宇   ID：43  城市：江阴
摘　要:Accessoft-删除所有表,删除全部表,清理全部表对象的示例
【系统表除外,只是删除新建普通表】
正　文:

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

附   件:

点击下载此附件