关于引用的问题

sun.gd

3个文件 A ,A1,A2
A引用了A1及A2,
问题:有什么方法可以让A1和A2可以调用A里面的函数,

不可以用以下方法:
将A的函数分离出1个文件,再由A1,A2引用

t小宝

这个赏金难要

aslxt

1、在A.mdb的模块建立一个自定义函数，并保存、关闭：
Function Mymsgbox(ByVal str As String)
  MsgBox "你成功调用了A.mdb文件的自定义函数：" & Chr(10) & str
End Function
2、在A1.mdb中建立一个测试窗体【窗体1】，包含一个列表框（测试调用结果的文字列表），一个测试命令按钮
3、在A1.mdb的代码编辑器中：工具-引用-浏览-文件类型 -选定【...access 数据库（mdb）】-在目录中选定被调用的mdb文件-确定
4、在A1.mdb的代码编辑器中编写测试命令按钮的代码：
  Call Mymsgbox(Me.List0.Column(0))
5、保存、测试
附件：
注：可能需要在A1.mdb的代码编辑器中按照第3步的方法重新引用A.mdb

sun.gd

回复 aslxt 的帖子

A1已经被A所引用,如果A1再引用A就会出现循环引用错误

roych

为什么不考虑下VBS（VBScript）呢？

todaynew

aslxt 发表于 2011-2-23 22:53
1、在A.mdb的模块建立一个自定义函数，并保存、关闭：
Function Mymsgbox(ByVal str As String)
  MsgBox ...

很好！