注意 ： 本文示例代碼使用 Microsoft 數(shù)據(jù)訪問(wèn)對(duì)象。 為此代碼才能正常運(yùn)行, 您必須引用 Microsoft DAO 3.6 對(duì)象庫(kù)。 可以進(jìn)行, 單擊  工具  菜單中 VisualBasic 編輯器, 上  引用  并確保選中  Microsoft DAO 3.6 對(duì)象庫(kù)  復(fù)選框。

1.    在 MicrosoftAccess 中打開(kāi)數(shù)據(jù)庫(kù)。
2.    在數(shù)據(jù)庫(kù)窗口, 單擊下 對(duì)象 , 模塊 ， 然后單擊 新建 。
3.    鍵入或粘貼以下代碼， 您只有創(chuàng)建模塊中： 

復(fù)制代碼 代碼如下:
Function RecoverDeletedTable() 
On Error GoTo ExitHere 

"*Declarations* 
  Dim db As DAO.Database 
  Dim strTableName As String 
  Dim strSQL As String 
  Dim intCount As Integer 
  Dim blnRestored As Boolean 

"*Init* 
  Set db = CurrentDb() 

"*Procedure* 
  For intCount = 0 To db.TableDefs.Count - 1 
    strTableName = db.TableDefs(intCount).Name 
    If Left(strTableName, 4) = "~tmp" Then 
      strSQL = "SELECT DISTINCTROW [" & strTableName & "].* INTO " & Mid(strTableName, 5) & " FROM [" & strTableName & "];" 
      DoCmd.SetWarnings False 
      DoCmd.RunSQL strSQL 
      MsgBox "A deleted table has been restored, using the name "" & Mid(strTableName, 5) & """, vbOKOnly, "Restored" 
      blnRestored = True 
    End If 
  Next intCount 

  If blnRestored = False Then 
MsgBox "No recoverable tables found", vbOKOnly 
  End If 

"*EXIT/ERROR* 
ExitHere: 
  DoCmd.SetWarnings True 
  Set db = Nothing 
  Exit Function 

ErrorHandler: 
  MsgBox Err.Description 
  Resume ExitHere 

End Function


4.    在 調(diào)試 菜單上, 單擊 編譯 數(shù)據(jù)庫(kù)名稱 數(shù)據(jù)庫(kù)名稱 。
5.    保存為 RecoverTable 模塊。 要測(cè)試此函數(shù), 首先創(chuàng)建兩個(gè)表， 添加行, 并刪除這兩個(gè)表。
6.    在即時(shí)窗口, 鍵入以下行， 然后按 ENTER 鍵：

RecoverDeletedTable