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编辑过]

zhuyiwen

调用方法补正:

    Dim xx As Boolean
    xx = LinkManager.UserMethods.LinkMan

[em24]

fyq

ok

ynlucy

请教！cmdbrowse命令按钮的事件是如何设计的？    多多赐教

sxhmft

好东东！

zhuyiwen

以下是引用ynlucy在2003-10-16 14:08:09的发言：
请教！cmdbrowse命令按钮的事件是如何设计的？    多多赐教

使用WINDOWS API

[em24]

ynlucy

[em01]谢谢！ 但不好意思！请赐教如何使用API，使用那一个函数??

zhuyiwen

使用DECLARE定义要用的API函数，如：

Declare Function ap_GetOpenFileName Lib "comdlg32.dll" Alias "GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As Long

然后，在程序中调用，如：
lngReturn = ap_GetOpenFileName(ofnFileInfo)

xgc

朱老总，又是一大作