请教删除数据库中窗体和查询的问题

lovehere

最近在学习做一个数据库，老是要改，做的查询和窗体很多，更新起来很麻烦，想请问一下，有没有办法做这样的操作，先把旧库中的查询和窗体删除，然后一次性导入新库中的窗体和查询呢？我现在每次都要打开旧库手工删除，然后导入，麻烦的很。呵呵

todaynew

最近在学习做一个数据库，老是要改，做的查询和窗体很多，更新起来很麻烦，想请问一下，有没有办法做这样的操作，先把旧库中的查询和窗体删除，然后一次性导入新库中的窗体和查询呢？我现在每次都要打开旧库手工删除 ...
lovehere 发表于 2010-6-21 16:40

未经测试，你试试看。

Sub Delobjs()
'功能：删除当前数据库中的所有窗体和查询
    Dim obj As AccessObject, dbs As Object
    Set dbs = Application.CurrentProject
    For Each obj In dbs.AllForms
        DoCmd.DeleteObject acForm, obj.Name
    Next obj
    For Each obj In dbs.AllQueries
        DoCmd.DeleteObject acQuery, obj.Name
    Next obj
End Sub

调用时：
call delobjs

lovehere

非常感谢，试一下先

lovehere

唉！不会用

heikediguo2004

手工删除也不麻烦，在导航窗格用shift+鼠标左键即可将已做好的窗体和查询全选，然后delete一键搞定

lovehere

是啊，要是只删一份很简单，只是我每次更新要删十几份，我怕哪天万一手一哆嗦把个把表删了，我头就大了。