2010/09/07

access2010 カレンダーコントロールmscal.ocxからの変更

カレンダーコントロール mscal.ocx がなくなったので、DatePickerへの変更時のメモ
カレンダーコントロールのイベントで制御などしていた場合について。
該当するテキストボックスイベントChangeとTextプロパティを使いましょうかね。ValueだとDatePickerで選択した日付は参照できないのさ。Form.Requeryでもいい場合もあるかもだけど、レコード確定しちゃうから普通は避けるべきじゃないかな。
Option Compare Database
Option Explicit

Private Sub date01_Change()
    If Not IsDate(Me.date01.Text) Then Exit Sub
    '以降、日付とかに合わせた処理
End Sub

Private Sub date02_Change()
    If Not IsDate(Me.date02.Text) Then Exit Sub
    '以降、日付とかに合わせた処理
End Sub

Private Sub date02_GotFocus()
    DoCmd.RunCommand acCmdShowDatePicker
End Sub

0 件のコメント: