Access Form_Open Form_Loadイベントの発生順

メルマガ発行内容

＜Access Form_Open Form_Loadイベントの発生順＞
どうも、三流プログラマーのＫｅｎ３です。

今回は、
カレンダーコントロール
を使用してみます。
(フォームのオープン時に初期化したいと思います)

何かの参考となれば、幸いです。

/*
 * １．今回のキッカケ
*/

掲示板に下記の質問をもらいました。
---------------
 >カレンダーコントロールを使用して、
 >日付を入力することにしました。
 >しかし、今日の日付をクリックしても入力できません。
---------------

そんな質問をいただいたので、
カレンダーコントロールを使ってみます。

/*
 * ２．カレンダーコントロールって何?
*/

カレンダーコントロールで遊んでみたいと思います。
標準のコントロールじゃないのですが、
拡張されたコントロールで、フォームに貼って使用可能です
(セットアップ時に、カレンダーコントロールを選択しておくと使用できます)

Access97の例ですが、
フォームの新規作成後、
挿入・ActiveXコントロール・カレンダーコントロール８．０を選択します。
(  )

おっ、それらしいのが表示されましたね。
プロパティを見ると、
イベントもあるし、いろいろと操作できそうですね。

/*
 * ３．カレンダーコントロールを使用してみる
*/

まずは、名前を変えますか。
OLE_Calendar
と名称を変更してみました。
(  )

さてと、名前も変更したし、プロパティを参照してみますか。
Private Sub コマンド1_Click()
    MsgBox ".valueの値は" & Me!OLE_Calendar.Value
End Sub
普通のフォームに配置したコントロールと同様に、簡単に使えました。
※.Valueで値を参照できました。
(  )

.Valueの他にプロパティで、
.Year .Month .Day が存在します。

テストを兼ねて、フォームを開いた時、
当月の１日を選択してみます。

Private Sub Form_Open(Cancel As Integer)
    'フォームオープン時、カレンダーを当月の１日にする
    Me!OLE_Calendar.Year = Year(Date)   'システム日付から
    Me!OLE_Calendar.Month = Month(Date) 'システム日付から
    Me!OLE_Calendar.Day = 1 '1日を固定代入
End Sub
としてみた。
あれ、、、変わらないよ、おかしいなぁ。。。

/*
 * ４．フォームのイベント発生順に注意
*/

ヘルプを調べてみると、

Openイベントは、フォームが開くときに、最初のレコードが表示される前に発生
レポートの場合、レポートがプレビューされるか印刷される前に発生します。

Open イベントは、Load イベントよりも前に発生します。
Load イベントは、フォームが開くか、またはフォームのレコードが表示されたときに発生します。
最初にフォームを開くと、
次の順序でイベントが発生します。
Open --> Load --> Resize --> Activate --> Current
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

そんな順番なんだぁ、気にしてなかった。

コントロールへフォームのロード前に代入しているからか？
それで代入しても無視されているのか。

まぁ、Resize  Activate  Current のイベントで、
コントロールを初期化するとマズそうだから
（アクティブやサイズ変更と触っただけで、初期化すると処理的に怒られそう）
Loadに入れてテストしてみます。

Private Sub Form_Load()
    'カレンダーを当月の１日にする
    Me!OLE_Calendar.Year = Year(Date)   'システム日付から
    Me!OLE_Calendar.Month = Month(Date) 'システム日付から
    Me!OLE_Calendar.Day = 1 '1日を固定代入
End Sub

無事にうまく行きました。
※システム日付の月初が選択されました。

-- 余談 --
~~~~~~~~~~
アトアト考えてみると、
フォームのオープンを下記のようにキャンセルできるってのは、

Private Sub Form_Open(Cancel As Integer)
    'データチェック
    If XXXX = XXXX Then
        Cancel = True  'フォームのオープンをキャンセルする
    End If
End Sub

イベントの発生順が
Open --> Load --> Resize --> Activate --> Current
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
だから、
頭のOpenで表示Load前にキャンセルって感じなんでしょうね。

う〜ん、初期化処理って、
Open(開く時)のイベントに書きそうだけど、
物によっては、注意が必要ですね。
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

/*
 * ５．終わりの挨拶
*/

ヤバ、質問のクリックしたら日付の代入までいかなかった・・・
今回は、カレンダーコントロールの紹介とイベントの発生順でした。
実際の使用方法は次回に、、、

拾い読みして、
１つでも何かの参考となれば幸いです。

Ｅｘｃｅｌ／Ａｃｃｅｓｓ大好き、三流プログラマーＫｅｎ３でした。

ページフッター

ここまで、読んでいただきどうもです。ここから下は、三流君のホームページの紹介・案内です
目的の情報が見つかったか？少々心配しつつ、、、

種類別のリンク や 広告など

Blogとリンク:[三流君の作業日記]/ [VBAやASPのサンプルコード]/ 広告-[通販人気商品の足跡]