设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

12下一页
返回列表 发新帖
查看: 3641|回复: 11
打印 上一主题 下一主题

[模块/函数] [分享]链接表管理器(ONLY MDB FILE)

[复制链接]

点击这里给我发消息

跳转到指定楼层
1#
发表于 2003-10-13 19:09:00 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式

LinkManager Ver 1.00
易和链接表管理器(ONLY MDB FILE)

运行平台: ACCESS 2002


使用方法:
一、引用(二种方法)
1、第一种方法:在VBA编辑器,点菜单--工具--引用--浏览,找到LinkManager.mde
2、第二种方法:将LinkManager.mde复制到你的数据库所在的文件夹中,并将下列过程粘贴到你的数据库的模块中

Public Sub AddRef()
    Dim ref As Reference
   
    On Error GoTo errhandler
    Set ref = References("LinkManager")
    Exit Sub
errhandler:
    Set ref = References.AddFromFile(CurrentProject.path & "\LinkManager.mde")
End Sub

Public Sub RemoveRef()
    Dim ref As Reference
   
    On Error Resume Next
    Set ref = References("LinkManager")
    References.Remove ref
End Sub

调用AddRef过程引用LinkManager.mde, 调用RemoveRef过程从数据库中移除对LinkManager.mde的引用

二、使用LinkManager
在你的程序中调用
LinkManager.LinkMan
执行结果如下图:


[em24]
[此贴子已经被作者于2003-10-14 17:01:15编辑过]

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x

本帖被以下淘专辑推荐:

分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 分享淘帖1 订阅订阅

点击这里给我发消息

2#
 楼主| 发表于 2003-10-13 19:29:00 | 只看该作者
此版运行平台: ACCESS 2002(不支持其它ACCESS版本)

此版为免费版本. 源代码价格: 100元人民币
3#
发表于 2003-10-13 20:19:00 | 只看该作者
好东西我一贯只有支持!
4#
发表于 2003-10-13 23:45:00 | 只看该作者
5#
发表于 2003-10-14 00:22:00 | 只看该作者
我没装XP,晕了~~~
6#
发表于 2003-10-14 01:33:00 | 只看该作者
我也沒裝....
再暈.......
7#
发表于 2003-10-14 04:42:00 | 只看该作者
我们的用户都是access2000,朱大歌,请转一下版本。
8#
发表于 2003-10-14 06:42:00 | 只看该作者
最好能转成2千版

点击这里给我发消息

9#
 楼主| 发表于 2003-10-14 23:48:00 | 只看该作者
运行平台: ACCESS 2000



[em24]

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x

点击这里给我发消息

10#
 楼主| 发表于 2003-10-15 00:28:00 | 只看该作者
使用方法同上.
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-5-23 16:46 , Processed in 0.101493 second(s), 37 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表