删除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