T'sWare スケジュール管理  フォームソースリスト  [スケジュール予約サブフォーム]フォーム
プロシージャ名  Form_Current
   
   
  Private Sub Form_Current()
      If IsLoaded("スケジュール予約") Then
          Forms![スケジュール予約]![スケジュールリンクID] = Me![スケジュールID]
      End If
  End Sub