恢复从Access2000、Access2002或Access2003数据库中删除表的方法

注意:本文中的示例代码使用了Microsoft数据访问对象。要使这段代码正常工作，您必须参考Microsoft DAO 3.6对象库。可以，单击工具菜单上的VisualBasic编辑器，并确保选中Microsoft DAO 3.6对象库复选框。
1。在MicrosoftAccess中打开数据库。
2。在数据库窗口中，单击下一个对象，模块，然后单击新建。
3。键入或粘贴以下代码，您只能创建该模块:

函数RecoverDeletedTable()
On Error GoTo exit here
' * Declarations *
Dim db As DAO。数据库
Dim strTableName As String
Dim strSQL As String
Dim int count As Integer
Dim bln restored As Boolean
' * Init *
Set db = CurrentDb()
' * Procedure *
For int count = 0 To db。TableDefs . Count-1
strTableName = db。TableDefs(intCount)。Name
If Left(strTableName，4)= " ~ tmp " Then
strSQL = " SELECT DISTINCTROW[" & strTableName & "]。*从[" & strTableName & "]转换为" & Mid(strTableName，5) & "
DoCmd。SetWarnings False
DoCmd。RunSQL strSQL
MsgBox "已使用名称' " & Mid(strTableName，5) & " ' "，vbOKOnly，" Restored "
blnRestored = True
End If
Next int count
If blnRestored = False然后
MsgBox "找不到可恢复的表"，vbOKOnly
End If
' * EXIT/ERROR *
Set warnings True
Set db = Nothing
Exit函数
error handler:
MsgBox Err。描述
Resume exit存在
End函数

4.在调试菜单上，单击编译数据库名称数据库名称。
5。另存为可恢复表模块。要测试这个函数，首先创建两个表，添加行，然后删除这两个表。
6。在即时窗口中，键入下面一行，然后按ENTER键:
recover deleted Table