从Excel启动Access背景时,将使其不可见

时间:2017-05-03 07:54:43

标签: excel vba ms-access background hide

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

这是Access"显示表格"

的加载事件
Private Sub Form_Load()
    Me.Visible = True
    fSetAccessWindow (SW_HIDE)
    DoCmd.GoToRecord , , acNewRec
End Sub

当我直接启动Access时,这会正确隐藏背景。

在正常使用中,我想通过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

1 个答案:

答案 0 :(得分:0)

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