T'sWare スケジュール管理  フォームソースリスト  [スケジュール予約]フォーム
プロシージャ名  スケジュール予約サブフォーム_Exit
  Private Sub スケジュール予約サブフォーム_Exit(Cancel As Integer)
  On Error GoTo Err_スケジュール予約サブフォーム_Exit
      DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
      Me![スケジュールリンクID] = Me![スケジュール予約サブフォーム].[Form]![スケジュールID]
      
  Exit_スケジュール予約サブフォーム_Exit:
      Exit Sub
   
  Err_スケジュール予約サブフォーム_Exit:
      MsgBox Err.Description
      Resume Exit_スケジュール予約サブフォーム_Exit
  End Sub