运用" DoCmd.RunCommand acCmdAppMinimize"后的报表快捷菜单bug

Grant

作者;Grant
时间;2008-1-10
Email;20991943@qq,cin
QQ;20991943
网站;www.accessbbs.cn
博客;http://www.accessbbs.cn/bbs/blog/?uid/3

简述;acCmdAppMinimize 之报表小bug,这里只是提供一种解决方法
         并不是最好的办法,欢迎发表意见评论,共同探讨Access的小bug
         让我们逐步完善一个个小bug

最近在做一个小例子的时候,实际运用中发行,只要对系统进行了最小化
DoCmd.RunCommand acCmdAppMinimize
就没法使用报表快捷键最可恶的是连系统提供的菜单都没了怎么办
,以往的解决办法是通过按下ctrl+p和导出文件为rtf,snp文件格式进行打印
我想了另一个办法解决此问题

代码方法如下
Private Sub Report_Open(Cancel As Integer) ;
    Forms!frm_Main.Visible = False
    DoCmd.RunCommand acCmdAppMaximize
   End Sub
报表打开事件中需要先对窗体进行隐藏,否则无法进行Access最大化还原
还原后报表可用快捷菜单了,小开心一下 : - )
Private Sub Report_Close()
    DoCmd.OpenForm "frm_TimeForm_Visible", , , , , acHidden
End Sub
报表关闭事件中加入一段打开一隐藏窗体进行对窗体最小化进行还原
窗体事件如下
Private Sub Form_Load()
    DoCmd.RunCommand acCmdAppMinimize
    Forms!frm_Main.Visible = True
    DoCmd.Close acForm, Me.Name
End Sub
我们看到先对窗体进行还原最小化
这里顺序还不能弄反否则不成功,还有一个疑问就是为什么我不在报表关闭事件中写入
因为是不能成立~没法进行最小化~真奇怪的bug一定要通过窗体来进行加载还原
在进行窗体可见复原,最后关闭此窗体.