外部库对象文件的删除与改名

BaoChengReng　发表于：2014-08-10 15:27:13 　

外部库对象文件删除与改名问题
前几天cspa等网友提供许多有益建议，采用如下语句
Dim appAccess As Object
Set appAccess = CreateObject("Access.Application")
appAccess.OpenCurrentDatabase sDstn
appAccess.Application.Visible = False
'删除对象文件
appAccess.DoCmd.DeleteObject acForm, 窗体名
appAccess.DoCmd.DeleteObject acReport, 报表名
'对象文件改名
appAccess.DoCmd.Rename 窗体新名, acForm, 窗体旧名
appAccess.DoCmd.Rename 报表新名, acReport, 报表旧名
appAccess.Quit
Set appAccess = Nothing
今天放到程序后一操作就报错如下：
第一个报错提示：

第二个报错如下

问题：1. Access2003是否支持上面语句操作？

2. 文件未找到是指外部库对象文件，还是VBA文件？
3.如果与系统版本有关，那么您能告知适合2003版本的方法吗？因为我只能选择2003！

第二个报错提示：
Microsoft Visual Basiv 提示运行时错误 3270
找不到属性

Top

cspa 发表于：2014-08-10 16:13:31

2003应没问题的语句我全调试过，从你贴出的几句语句看

appAccess.OpenCurrentDatabase sDstn

可能是其中 sDstn路径或文件名错误。先把这个错误解决了也许下个错误就不出现了。

在确保 sDstn无错的前提下再查在目标库中有无你输入的窗体名、报表名等，名称是否写错。

Top

BaoChengReng 发表于：2014-08-10 16:45:32

1楼：

我再次试验，插入2句Msgbox

MsgBox sDstn 显示外部库名

Set appAccess = CreateObject("Access.Application")
appAccess.OpenCurrentDatabase sDstn
MsgBox CurrentDb.Name 在显示msgbox信息前就一直报错
appAccess.Application.Visible = False
MsgBox CurrentDb.Name
appAccess.Application.Visible = False

appAccess.DoCmd.DeleteObject acReport, 报表名

appAccess.Quit
Set appAccess = Nothing

程序报错取消后，Msgbox出来，显示的本地库名，那么错误可能在什么地方

Top

BaoChengReng 发表于：2014-08-10 19:03:18

1楼：谢谢您的建议，最后发现我做试验的那个外部库打不开。单独打开时出现

换一个是成功了，但有时候会遇到独占问题

慢慢学吧。谢谢您的指点。

Top

总记录：3篇页次：1/1 9 1 :

Access交流中心

外部库对象文件的删除与改名