access打开其他数据库窗体

帮助里面的示例,只要用点心思去看看帮助就可以了

示例

下面的示例通过“自动化”从其他应用程序中打开一个 Microsoft Access 数据库，然后打开一个数据库中的窗体。

可以在任何一个可以用作 COM 组件的应用程序的 Visual Basic 模块中输入这段代码。例如，可以从 Microsoft Excel、Microsoft Visual Basic 或 Microsoft Access 中运行下列代码。

当指向 Application 对象的变量超出范围时，它所表示的 Microsoft Access 实例也将关闭。所以，必须在模块级声明这个变量。

' Include the following in Declarations section of module.
Dim appAccess As Access.Application

Sub DisplayForm()

    Dim strDB as String

    ' Initialize string to database path.
    Const strConPathToSamples = "C:\Program " _
        & "Files\Microsoft Office\Office11\Samples\"

    strDB = strConPathToSamples & "Northwind.mdb"
    ' Create new instance of Microsoft Access.
    Set appAccess = _
        CreateObject("Access.Application")
    ' Open database in Microsoft Access window.
    appAccess.OpenCurrentDatabase strDB
    ' Open Orders form.
    appAccess.DoCmd.OpenForm "Orders"
End Sub