BUG 修正-链接表管理器(ONLY MDB FILE)

zhuyiwen

LinkManager Ver 1.00
易和链接表管理器(ONLY MDB FILE) BUG 修正版
修正日期: 2003.10.16
BUG说明: 当出错信息中出现单引号时,运行出错

运行平台: ACCESS 2002

游客，如果您要查看本帖隐藏内容请回复

注: 此修正只支持ACCESS 2002, 因无ACCESS 2000, 所以没有转换, 对ACCESS 2000用户只有说声"抱歉!"

此版运行平台: ACCESS 2002(不支持其它ACCESS版本)

此版为免费版本. 源代码价格: 100元人民币!

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

1. 
   
2. Public Sub AddRef()
   
3.     Dim ref As Reference
   
4.    
   
5.     On Error GoTo errhandler
   
6.     Set ref = References("LinkManager")
   
7.     Exit Sub
   
8. errhandler:
   
9.     Set ref = References.AddFromFile(CurrentProject.path & "\LinkManager.mde")
   
10. End Sub
    
11. 
    
12. Public Sub RemoveRef()
    
13.     Dim ref As Reference
    
14.    
    
15.     On Error Resume Next
    
16.     Set ref = References("LinkManager")
    
17.     References.Remove ref
    
18. End Sub
    

复制代码

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

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


[em24]

[此贴子已经被作者于2003-10-16 11:16:26编辑过]

chshb

看看！

getusfree

回复以学习之

daxin1

heqing3000

喜欢，高兴。

LeeTien

看看

yanwei82123300

谢谢分享

goto2008

chaojianan

支持，看看。

freeoffice

safdsd