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

2018-12-29 15:43:00
tmtony8
原创
1114

在前面,我们讲过用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
    分享