使Access背景在从Excel启动时不可见

Question

我已使用此code for hiding the Access window to show only popup forms。

这是访问“显示窗体”

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

的Load事件这正确地隐藏背景，当我直接启动访问。

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

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

感谢

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

可以设置Application.Visible属性设置为false ac.Visible = False