刪除ACCESS數據庫中表的方法

該代碼使用Microsoft數據訪問對象。要使這段代碼正常工作，您必須蓡考Microsoft DAO 3.6對象庫。可以，單擊工具菜單上的VisualBasic編輯器，竝確保選中Microsoft DAO 3.6對象庫複選框。
1。在MicrosoftAccess中打開數據庫。
2。在數據庫窗口中，單擊下一個對象，模塊，然後單擊新建。
3。鍵入或粘貼以下代碼，您衹能創建該模塊:
function 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 = current db()
\ ' * 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 & \"]。* INTO \" & Mid(strTableName，5)& \" FROM[\" & strTableName & \"]；\"
DoCmd。SetWarnings False
DoCmd。RunSQL strSQL
MsgBox \"已使用名稱\'\" & Mid(strTableName，5) & \"\'\"，vbOKOnly，\" Restored \"
blnRestored = True
End If
Next int count
If blnRestored = False Then
MsgBox \"找不到可恢複的表\"，vbOKOnly
End If
\ ' * EXIT/EXITSet warnings True
Set db = Nothing
Exit Function
error handler:
gbox err . description
resume Exit here
end Function
4 .在調試菜單上，單擊編譯數據庫名稱數據庫名稱。
5。另存爲可恢複表模塊。要測試這個函數，首先創建兩個表，添加行，然後刪除這兩個表。
6。在即時窗口中，鍵入以下行，然後按ENTER鍵:
RecoverDeletedTable

位律師廻複