閉じる

カレンダーフォームを作る。　カレンダーフォームのイベント　３／４


イベントの作成



'読込時のイベント

Private Sub Form_Load()



    '表示サイズを固定します。

    DoCmd.MoveSize , , 4400, 3500



    'デフォルト値を本日に設定

    Me.Calendar0.Value = Date





End Sub



'クリック時のイベント

'このイベントは、フォームのプロパティにはありません。

'VBEで直接書きます。

'このフォームをOPEN時に、OPENしたファーム名とセットするコントロールを引数として受け取ります。OpenArgs

'その値にしたがって、日付をセットします。

'その後　カレンダーフォームを閉じます。



Private Sub Calendar0_Click()

    Dim meFormName As String

    Dim rtnFormName As String

    Dim rtnFieldName As String

    Dim ClickDay As Date

    

    ClickDay = Me.Calendar0.Value

    

    

    rtnFormName = Split(Me.OpenArgs, ",")(0)

    rtnFieldName = Split(Me.OpenArgs, ",")(1)

    

    Forms(rtnFormName).Controls(rtnFieldName).Value = ClickDay

    

    

    

    meFormName = Me.Form.Name

    DoCmd.Close acForm, meFormName



    

End Sub