プロシージャ名 | スケジュール作成_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