T'sWare スケジュール管理  フォームソースリスト  [スケジュール予約]フォーム
プロシージャ名  スケジュール作成_Click
  Private Sub スケジュール作成_Click()
  On Error GoTo Err_スケジュール作成_Click
      DoCmd.OpenForm "スケジュールの作成", , , , , acDialog
      Me![スケジュール予約サブフォーム].Requery
   
  Exit_スケジュール作成_Click:
      Exit Sub
   
  Err_スケジュール作成_Click:
      MsgBox Err.Description
      Resume Exit_スケジュール作成_Click
  End Sub