同时删除两张表的数据_恢复从数据库中删除的表

↑↑↑点击上方图片，了解详情

      如何创建一个示例 Visual Basic for Applications (VBA) 函数, 在以下情况下, 您可以使用它来恢复从 Access 数据库中删除的表:

      自删除表以来，数据库尚未关闭。

      自删除表以来，数据库尚未被压缩。

      使用 Access 用户界面删除了表。

      表不包含任何多值字段或附件字段。

代  码：

Sub RecoverDeletedTable() 
On Error GoTo ExitHere 
 Dim db As DAO.Database 
 Dim strTableName As String 
 Dim strSQL As String 
 Dim intCount As Integer 
 Dim blnRestored As Boolean 
 Set db = CurrentDb() 
 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 Sub 
ErrorHandler: 
 MsgBox Err.Description 
 Resume ExitHere 
End Sub

End 推荐阅读 Access训练营  从0基础开始，循序渐进，系统化的训练营课程，整合作业、课表、社群，为学员提供答疑，获得更佳的学习效果。【详情>> 】   快速开发财务管理系统  紧密结合职场的一个课程，参加培训不仅可提升开发技能，而且可获得案例源代码，立即投入到实际工作中应用。【详情>> 】   Access软件作品  十二位Access学员对自已开发的软件进行了介绍并分享开发心得，一起来了解Access开发的软件。【详情>> 】   从Excel到Access数据库  为广大Excel用户了解、学习Access数据库开设的一个实用课程，侧重于数据统计分析。【详情>> 】   Access每天3分钟  视频课程共50集，Access的基础知识并结合示例详细讲解，每集视频只有短短几分钟，学员可以利用碎片化的时间，每天进步一点点【详情>> 】   张志，Access数据库培训讲师，『Access软件网』创始人，服务过的知名企业有北京奔驰、立达(中国)纺织仪器、宜家(中国)投资等。 2003~2013年连续10年获微软最有价值专家。【详情>>】