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

目次に戻る 一覧に戻る 前ページへ 次ページへ