我已使用此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
答案 0 :(得分:0)
您可以将Application.Visible属性设置为false ac.Visible = False