解决Access隐藏主界面窗口后 报表预览不显示

在前面，我们讲过用API去隐藏主界面窗口。《Access程序隐藏主界面窗口（只显示打开窗体）》

窗体显示需要设置弹出和模式为“是” 的，而报表预览并不会弹出，此时如果进入了报表预览即会导致窗体操作界面丢失。

小编的处理办法是在预览报表的时候，先关闭掉隐藏主界面的功能，待报表关闭后再重新打开。

Public Function 显示()
     ShowWindow Access.Application.hWndAccessApp, 0
     报表名.Visible = True
End Function
Public Function 隐藏窗体()
     ShowWindow Access.Application.hWndAccessApp, 5
     报表.Visible = False
End Function

打开报表预览时，主窗体背景界面是存在的。

在报表中调用函数：

Private Sub Report_Close()
    Call 显示
End Sub

Private Sub Report_Open(Cancel As Integer)
    Call 隐藏窗体
End Sub