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

附   件:

点击下载此附件