vba - 如何用vba代码打开外部访问数据库并最大化

Question

我有两个 MS 访问数据库（database1.mdb、database2.mdb）。当我打开 database1.mdb 时，我想打开 database2.mdb 点击按钮，然后 maximase database2.mdb（在屏幕上查看 database2.mdb）。

我在网上找到了代码：

Public Function OpenDb(sDb As String)
    On Error GoTo Error_Handler
   
    Dim oAccess               As Access.Application
   
    Set oAccess = CreateObject("Access.Application")    'Create a new Access instance
    With oAccess
        .OpenCurrentDatabase sDb    'Open the specified db
        .Visible = True             'Ensure it is visible to the end-user
        .UserControl = True
            
        .DoCmd.OpenForm "mainform"    'Open a form
        .RunCommand acCmdAppMaximize
     
   End With
 
Error_Handler_Exit:
    On Error Resume Next
    If Not oAccess Is Nothing Then Set oAccess = Nothing
    Exit Function
 
Error_Handler:
    MsgBox "The following error has occurred" & vbCrLf & vbCrLf & _
           "Error Number: " & Err.Number & vbCrLf & _
           "Error Source: OpenDb" & vbCrLf & _
           "Error Description: " & Err.Description & _
           Switch(Erl = 0, "", Erl <> 0, vbCrLf & "Line No: " & Erl) _
           , vbOKOnly + vbCritical, "An Error has Occurred!"
    Resume Error_Handler_Exit
End Function

打开 database1.mdb 时，我创建事件过程（单击）

Call OpenDb("D:\database2.mdb")

Database2.mdb 将被打开，但保持最小化。（在任务栏上闪烁）。

请帮忙。

标签： vbams-access