引用另外一个access后，怎样打开被引用的数据库窗体？

一杯绿茶　发表于：2013-02-16 20:24:55 　

我有甲乙两个access，其中甲引用乙数据库，乙中有两个窗体A和B，甲中有一个窗体C，C窗体中有一个按钮Btn1，怎样才能单击Btn1在甲数据库中打开A和B窗体。

煮江品茶发表于：2013-02-17 11:33:07

Function OpenForm(Accessname As String,Formname as String)
    '功能：打开其他数据库中的窗体
    '参数：Accessname--数据库地址，Formname--窗体名称
    Dim appAccess As New Access.Application
    appAccess.OpenCurrentDatabase Accessname
    appAccess.DoCmd.OpenForm Formname
    Set appAccess = Nothing
End Function

在按钮的单击事件中调用该函数试试。

Top

一杯绿茶发表于：2013-02-17 22:06:18

调用后程序没有报错，但是没有反映。

Top

一杯绿茶发表于：2013-02-17 22:49:19

在被引用数据库中添加一个模块写一个sub，在这个模块中去openform,然在当前数据库中call这个sub过程就可以了。谢谢煮江品茶

Top

总记录：3篇页次：1/1 9 1 :

Access交流中心

[5分]引用另外一个access后，怎样打开被引用的数据库窗体？