T'sWare スケジュール管理  レポートソースリスト  [レンタル商品の予約情況]レポート
プロシージャ名  Report_Open
  Private Sub Report_Open(Cancel As Integer)
      DoCmd.OpenForm "レポート対象期間", , , , , acDialog, "レンタル商品の予約情況"
      If Not IsLoaded("レポート対象期間") Then
          Cancel = True
      End If
  End Sub