作者;Grant
時間;2008-1-10
Email;20991943@qq,cin
QQ;20991943
網(wǎng)站;www.accessbbs.cn
博客;http://www.accessbbs.cn/bbs/blog/?uid/3

簡述;acCmdAppMinimize 之報表小bug,這里只是提供一種解決方法
         并不是最好的辦法,歡迎發(fā)表意見評論,共同探討Access的小bug
         讓我們逐步完善一個個小bug

最近在做一個小例子的時候,實際運用中發(fā)行,只要對系統(tǒng)進行了最小化
DoCmd.RunCommand acCmdAppMinimize
就沒法使用報表快捷鍵最可惡的是連系統(tǒng)提供的菜單都沒了怎么辦
,以往的解決辦法是通過按下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一定要通過窗體來進行加載還原
在進行窗體可見復原,最后關閉此窗體.