T'sWare スケジュール管理　　フォームソースリスト　　[スケジュール予約]フォーム
プロシージャ名 　予約時間サブフォーム_Enter
　　Private Sub 予約時間サブフォーム_Enter()
　　    If IsNull(Me![スケジュール予約サブフォーム].Form![レンタル商品ID]) Then
　　        MsgBox "先にレンタル商品の情報を入力してください。"
　　        DoCmd.GoToControl "[スケジュール予約サブフォーム]"
　　    End If
　　End Sub

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