请教如何引用另一个数据库窗体上的控件？

huangxiuwen

请教各位大侠，如何引用另一个数据库窗体上的控件？万分感谢！

todaynew

forms("窗体").控件
或
forms！窗体！控件

若是子窗体中的控件则需要写长一些。

jackysu78

关于引用子窗体控件的方法也请列举一下吧

huangxiuwen

forms("窗体").控件
或
forms！窗体！控件

若是子窗体中的控件则需要写长一些。
todaynew 发表于 2009-4-11 06:49

forms("窗体").控件     或     forms！窗体！控件   是同一个数据库窗体上控件的引用，但如果引用的窗体控件，是在另一个数据库，那语句应该如何写呢？

todaynew

forms("窗体").控件     或     forms！窗体！控件   是同一个数据库窗体上控件的引用，但如果引用的窗体控件，是在另一个数据库，那语句应该如何写呢？
huangxiuwen 发表于 2009-4-11 11:04

没试过，是否将另一数据库名称做前缀？

huangxiuwen

感谢todaynew的关注

="[" & CurrentProject.Path & "\db2.mdb]!" & Forms!窗体1.A
以上语句出错，试了很久，都不成功。不知道应该如何写，请知道的大侠关注一下，万分感谢。

huangxiuwen

求大侠们帮助一下。

t小宝

引用另一个数据库，须要使用Application对象。
示例代码：

Sub test()
    Dim appAccess As Access.Application
    Dim strDB As String

    strDB = "C:\Program Files\Microsoft Office\Office11\Samples\Northwind.mdb"
    ' 建立对象
    Set appAccess = CreateObject("Access.Application")
    ' 打开数据库，此时该数据库是隐藏的
    appAccess.OpenCurrentDatabase strDB
    ' 隐藏方式打开窗体
    appAccess.DoCmd.OpenForm "Orders", , , , , acHidden
    ' 显示窗体标题
    MsgBox appAccess.Forms("Orders").Caption
   
End Sub

huangxiuwen

非常感谢版主