Office中国论坛/Access中国论坛 › Access中国门户旧版 ›Access› 数据库系统 › 查看内容

动态添加或删除引用

1970-1-1 08:00| 发布者: sunredday| 查看: 2647| 评论: 0

动态添加引用示例：
On Error Resume Next
Dim REF As Reference
Dim strfilename As String
strfilename = "c:\program files\common files" & _
"\system\ado\msado21.tlb" 路径由引用窗体获得
Set REF = Application.References.AddFromFile(strfilename) 必须加APPLICATION
MsgBox REF.Name & "已经被引用完毕" 获得应用名称的途径

动态删除引用示例：
On Error Resume Next
Dim REFE As Reference
Set REFE = Application.references!ADODB 由添加时的REF.NAME获得
Dim REF As String
REF = REFE.Name
Application.references.Remove REFE 必须加APPLICATION
MsgBox REF & "已经被取消引用" 获得应用名称的途径

收藏分享邀请

帐号		自动登录	找回密码
密码			注册

动态添加或删除引用

最新评论

相关分类