杂项/其它
Access打开（调用）引用数据库窗体
2013-12-23 14:51:45
文件类型 :
文件版本 :
简要说明 :
假设现有两个文档：Db2.mdb 和 Db1.mdb(被引用)
1、首先要改Db1.mdb的工程属性，避免引用重名错误
进入Db1.mdb的vba代码编辑界面，菜单栏上的【工具】→【***属性】
把工程名称改一下。通常改成和文档名字一样即可。若不改这个，引用的时候会出现重名的错误现象。
2、Db2.mdb中调用Db1.mdb的窗体
在Db1.mdb建一个模块，写下面的公共函数：
Public Function funcOpenForm(frmName As String)
CodeProject.Application.DoCmd.OpenForm frmName
‘DoCmd.OpenForm frmName ‘这条也可以
End Function
这时，Db2.mdb要引用Db1.mdb上的窗体1，代码是这么写：
Db1.funcOpenForm “窗体1” ‘Db1 是引用Db1.mdb的工程名
注意：当前窗体的名称不能和要打开的引用窗体名称一样。若一样，则打不开。所以尽量把窗体的名字命名不同的。
3、有关CodeDB,CodeProject,CurrentDB,CurrentProject
Db2.mdb访问不到Db1.mdb表中的数据，得要用ADO或DAO设置链接访问。
Db1.mdb默认访问自身的数据。ADO或DAO访问数据时，CodeDB和CodeProject是访问自身的数据。若Db1.mdb要访问Db2.mdb的数据则需要使用CurrentDB和CurrentProject。