Question

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

这是Access＆＃34;显示表格＆＃34;

的加载事件

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

Answer 1

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

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

1 个答案: