Private Sub Report_Open(Cancel As Integer) DoCmd.OpenForm "レポート対象期間", , , , , acDialog, "レンタル商品の予約情況" If Not IsLoaded("レポート対象期間") Then Cancel = True End If End Sub