[VBA 代码] 求助删除数据库自身的代码

huanghyd

运行系统时判断当前后台数据库不在指定路径下时，运行删除数据库自身的代码。论坛已经搜索了没有。请教。谢谢！

admin

程序正在运行时,不能删除本身的文件
可能你要想多种变相的方法,如让程序,运行另一个程序,再让另一个程序关闭这个程序,再删除原本的程序

yuayua23

做个批处理文件，在前台调用

huanghyd

先谢谢两位！

todaynew

http://www.office-cn.net/forum.php?mod=viewthread&tid=117195

huanghyd

谢谢 todaynew。我学习下，

huanghyd

以下代码测试可以删除自身数据库的表，查询。请问窗体，报表，宏，模块的删除代码如何写？
   
   Dim tdf As dao.TableDef
     Dim qrydf As dao.QueryDef
     Dim dbs As dao.Database
     Set dbs = CurrentDb
  
  '删除数据表
        For Each tdf In dbs.TableDefs
         If Left(tdf.Name, 1) = "t" Then
             DoCmd.DeleteObject acTable, tdf.Name
         ElseIf Left(tdf.Name, 3) = "P" Then
             DoCmd.DeleteObject acTable, tdf.Name
         ElseIf Left(tdf.Name, 1) = "F" Then
             DoCmd.DeleteObject acTable, tdf.Name
         ElseIf Left(tdf.Name, 1) = "L" Then
             DoCmd.DeleteObject acTable, tdf.Name
          End If
     Next tdf
  
  '删除查询
         For Each qrydf In dbs.QueryDefs
         If Left(qrydf.Name, 1) = "Q" Then
             DoCmd.DeleteObject acQuery, qrydf.Name
            End If
     Next qrydf