クローズイベントで動的に作成されたレポートを削除する

Question

私はAccessを使用して動的レポートを作成しています。クローズイベントでレポートを削除したいと思います。 今、私はこのような報告書作成しております：

Set rpt = CreateReport 
With rpt 
    .Visible = True 
    .Caption = "Calendar View" 
    .BorderStyle = 1 
    .AutoCenter = True 
    .ScrollBars = 0 
    .Printer.Orientation = acPRORLandscape 
    .Modal = True 
    .PopUp = True 
    .OnClose = "[Event Procedure]" 
End With 

'extra stuff for report 

strName = rpt.Name 

DoCmd.Close acReport, strName, acSaveYes 
DoCmd.Rename "rptNewName", acReport, strName 
DoCmd.OpenReport "rptNewName", acViewPreview, , , acWindowNormal 
DoCmd.DeleteObject acReport, "rptNewName" 

をしかし、報告書がまだ開いているので、DeleteObjectのは、エラーがスローされます。.. どのように私は近いイベントのレポートを削除することができますか？

ありがとうございました！次

Answer 1

場所は、あなたがDoCmd.DeleteObjectに並ぶ直前に...

Do While Application.CurrentProject.AllReports(sRptName).IsLoaded 
DoEvents 
Loop