T'sWare スケジュール管理  フォームソースリスト  [スケジュールの作成]フォーム
プロシージャ名  Declarations
  Option Compare Database
  Option Explicit
   
   
  Const TIMEALLOCATED = 1
  Const TIMEFREE = 0
  Dim aTimeSlots(143) As Byte
  Dim dbs As Database
  Dim rstSchedule As Recordset
  Dim rstScheduleDtl As Recordset