隐藏ACCESS主窗体后显示报表窗体

zhuyiwen

我想你可能是用的Access2010吧
由于你的 frmMain 是弹出式模式窗体，所以你的报表看不到。

建议：
1. 将frmMain去掉弹出式，去掉模式
2.

1. Private Sub Form_Open(Cancel As Integer)
   
2. '    Me.Visible = True
   
3. '    ShowWindow Application.hWndAccessApp, 0
   
4. '    'ShowWindow Me.hwnd, SW_HIDE
   
5. '    SetWindowLong Me.hwnd, GWL_EXSTYLE, GetWindowLong(Me.hwnd, GWL_EXSTYLE) Or WS_EX_APPWINDOW
   
6. '    'ShowWindow Me.hwnd, SW_SHOW
   
7.     DoCmd.ShowToolbar "Ribbon", acToolbarNo
   
8.     DoCmd.Maximize
   
9. End Sub

复制代码

1. Private Sub Form_Unload(Cancel As Integer)
   
2. ''    Quit
   
3. '    ShowWindow Application.hWndAccessApp, -1
   
4.     DoCmd.Restore
   
5.     DoCmd.ShowToolbar "Ribbon", acToolbarYes
   
6. End Sub

复制代码

不需要去隐藏主窗体，只需要关闭功能区。



另外，设置当前数据库Access选项，文档窗口选项为“重叠式窗口”，我想也能达到你想要的效果。

zhuyiwen

如果是这个样子，其实报表也不必弹出式。