恢復從 Access 2000、 Access 2002 或 Access 2003 中數據庫刪除

注意  本文示例代碼使用 Microsoft 數據訪問對象 為此代碼才能正常運行 您必須引用 Microsoft DAO  對象庫 可以進行 單擊  工具  菜單中 VisualBasic 編輯器 上  引用  并確保選中  Microsoft DAO  對象庫  復選框

    在 MicrosoftAccess 中打開數據庫
    在數據庫窗口 單擊下 對象  模塊  然后單擊 新建 
    鍵入或粘貼以下代碼 您只有創建模塊中 

　　復制代碼 代碼如下:

　　Function RecoverDeletedTable() 
On Error GoTo ExitHere 

*Declarations* 
  Dim db As DAODatabase 
  Dim strTableName As String 
  Dim strSQL As String 
  Dim intCount As Integer 
  Dim blnRestored As Boolean 

*Init* 
  Set db = CurrentDb() 

*Procedure* 
  For intCount =  To dbTableDefsCount   
    strTableName = dbTableDefs(intCount)Name 
    If Left(strTableName ) = ~tmp Then 
      strSQL = SELECT DISTINCTROW [ & strTableName & ]* INTO  & Mid(strTableName ) &  FROM [ & strTableName & ]; 
      DoCmdSetWarnings False 
      DoCmdRunSQL strSQL 
      MsgBox A deleted table has been restored using the name  & Mid(strTableName ) &  vbOKOnly Restored 
      blnRestored = True 
    End If 
  Next intCount 

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

*EXIT/ERROR* 
ExitHere: 
  DoCmdSetWarnings True 
  Set db = Nothing 
  Exit Function 

ErrorHandler: 
  MsgBox ErrDescription 
  Resume ExitHere 

End Function

    在 調試 菜單上 單擊 編譯 數據庫名稱 數據庫名稱 
    保存為 RecoverTable 模塊 要測試此函數 首先創建兩個表 添加行 并刪除這兩個表
    在即時窗口 鍵入以下行 然后按 ENTER 鍵

RecoverDeletedTable