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

VulcanTerry

如题，为了更显专业性，将系统窗体隐藏，但打开报表窗体后，报表无法显示。也尝试过在打开报表时，关闭隐藏，再关闭报表时，再应用隐藏，但这样明显缺乏专业性，请来大侠破破案子，随便再帮忙看看应用如何优化。不胜感激！

Henry D. Sy

对不起，我是2003版，打不开你的库！

VulcanTerry

哦，我这个另存不了2003格式

roych

俺的屏幕分辨率只有1024*768，宽度不够，暂时先不看了~~

VulcanTerry

大侠们，你们辛苦了。冏。

VulcanTerry

roych 发表于 2012-10-8 18:37
俺的屏幕分辨率只有1024*768，宽度不够，暂时先不看了~~

你就不能把应用的窗体调小点啊

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

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

VulcanTerry

理解，先谢个！