閉じる

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


'カレンダーフォームをOPENするときのイベント。

'OpenArgで、自分のフォーム名と日付をセットするコントロールを渡します。

Private Sub cmdOpenCalender_Click()

On Error GoTo Err_cmd



    'メッセージの設定をなしにする

    DoCmd.SetWarnings False

   

    'カレンダーコントロールを開く

    Dim strFormName As String

    strFormName = "fm_Calender"

    DoCmd.Close acForm, strFormName

    DoCmd.OpenForm strFormName, acNormal, "", "", , acNormal, OpenArgs:=Me.Name & ",w処理日"

    

Exit_cmd:

    Exit Sub



Err_cmd:

    MsgBox Err.Number & ":" & Err.Description

    Resume Exit_cmd



End Sub