| |
▼カダワン さん：
処理の順番としては、
・フォームの可視をFalseに
・レポートのプレヴュー（＆印刷？）
・（レポートが閉じられたら）
・フォームの可視をTrueに
という感じにすると良いかと思います。
但し、レポート表示中にフォームの操作は出来なくなります。
（不可視にしてしまうので＾＾；）
それで良ければ
Sub test()
Dim myRpt As Report
Dim myRptName As String
Dim myFrmName As String
myRptName = "レポート名"
myFrmName = "フォーム名"
Forms(myFrmName).Visible = False
DoCmd.OpenReport myRptName, acViewPreview
'レポートが開いているのを確認
On Error Resume Next
Do
DoEvents
Set myRpt = Reports(myRptName)
Loop Until Err <> 0 '閉じられたらエラーとなる（処理が次へ）
Set myRpt = Nothing
On Error GoTo 0
Forms(myFrmName).Visible = True
End Sub
こんな感じです。
|
|
トト
- 08/12/15(月) 15:48 -
![[未読]](./data/access/image/read_icon.gif){kind=icon}
