T'sWare スケジュール管理  フォームソースリスト  [スケジュール予約]フォーム
プロシージャ名  Form_Activate
   
   
  Private Sub Form_Activate()
  On Error GoTo Err_Form_Activate
      DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
      Me![スケジュール予約サブフォーム].Form![レンタル商品ID].Requery
   
  Exit_Form_Activate:
      Exit Sub
   
  Err_Form_Activate:
      MsgBox Err.Description
      Resume Exit_Form_Activate
  End Sub