Office中国论坛/Access中国论坛

标题: [VBA 代码] 求助删除数据库自身的代码 [打印本页]

作者: huanghyd 时间: 2013-12-26 16:55
标题: [VBA 代码] 求助删除数据库自身的代码
运行系统时判断当前后台数据库不在指定路径下时，运行删除数据库自身的代码。论坛已经搜索了没有。请教。谢谢！

作者: admin 时间: 2013-12-26 17:06
程序正在运行时,不能删除本身的文件
可能你要想多种变相的方法,如让程序,运行另一个程序,再让另一个程序关闭这个程序,再删除原本的程序

作者: yuayua23 时间: 2013-12-26 18:39
做个批处理文件，在前台调用

作者: huanghyd 时间: 2013-12-27 14:58
先谢谢两位！

作者: todaynew 时间: 2013-12-28 12:24
http://www.office-cn.net/forum.php?mod=viewthread&tid=117195

作者: huanghyd 时间: 2013-12-30 16:28
谢谢 todaynew。我学习下，

作者: huanghyd 时间: 2013-12-31 11:48
以下代码测试可以删除自身数据库的表，查询。请问窗体，报表，宏，模块的删除代码如何写？

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

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)