从Excel启动它时，使访问背景是不可见的

Question

我已经使用了此代码隐藏访问窗口以显示弹出式表单。

这是访问"显示表单"的加载事件

Private Sub Form_Load()
    Me.Visible = True
    fSetAccessWindow (SW_HIDE)
    DoCmd.GoToRecord , , acNewRec
End Sub

直接启动访问时，这正确隐藏了背景。

在正常使用中，我想通过Excel命令按钮调用访问权限(下面代码(。表单加载，但是以这种方式启动访问窗口时仍然可见。

任何人都可以看到为什么行为不同吗？

谢谢

Sub Clicked_Edit()
    Application.ScreenUpdating = False
    Dim ac As Object
    Dim str As String
    On Error Resume Next
    Set ac = GetObject(, "Access.Application")
    If ac Is Nothing Then
        Set ac = GetObject("", "Access.Application")
        ac.OpenCurrentDatabase 
       "<MyFilePathToDatabase>"
    End If
    AppActivate "Microsoft Access"
    Application.ScreenUpdating = True
End Sub

Answer 1

您可以将应用程序设置为false ac.Visible = False