access2010でのカレンダーコントロール

質問

http://msdn.microsoft.com/ja-jp/library/office/gg251104%28v=office.14%29.aspx
上記urlにある「カスタムカレンダーフォームを使用する」の方法でコントロール[frmCalendar]をクリックすると同時にtextbox[日報選択]の日付を変更することができるのですが、他のサブフォームのリクエリができません。これを１回のクリックでサブフォームをリクエリさせる方法はないですか？

現状ではコントロールによって変更されたtextbox内をもう一度クリックすると他のサブフォームがリクエリされます。下記はVBですが変更または追加があれば教えてください。

Option Compare Database
Private WithEvents calendarForm As Form_frmCalendar
-------------------------------------------------
Private Sub calendarForm_DateChanged(newDate As Date)
Me.[日報選択] = newDate
End Sub
-----------------------------------------------------
Private Sub Form_Open(Cancel As Integer)
Set calendarForm = Me.Calendar.Form
End Sub
----------------------------------------------------
Private Sub Form_Click()
DoCmd.OpenForm "F_日報"
DoCmd.Close
End Sub
----------------------------------------------------
Private Sub Form_Load()
Me![日報選択].Value = Date
Me!F_日報扱い現金.Requery
Me!F_日報扱いクレジット.Requery
Me!F_日報商品売上.Requery
End Sub
----------------------------------------------
Private Sub 日報選択_AfterUpdate()
Me!F_日報商品売上.Requery
Me!F_日報扱い現金.Requery
Me!F_日報扱いクレジット.Requery
End Sub
----------------------------------------
Private Sub 日報選択_Click()
Me!F_日報商品売上.Requery
Me!F_日報扱い現金.Requery
Me!F_日報扱いクレジット.Requery
End Sub

回答No.2

hatena1989 · ベストアンサー

Private Sub calendarForm_DateChanged(newDate As Date)
　　Me.[日報選択] = newDate
　　Call 日報選択_AfterUpdate
End Sub

では、どうですか。

あるいは、

Private Sub calendarForm_DateChanged(newDate As Date)
　　Me.[日報選択] = newDate
　　Me!F_日報商品売上.Requery
　　Me!F_日報扱い現金.Requery
　　Me!F_日報扱いクレジット.Requery
End Sub

これでは。

もし、構文エラーになるなら、メニューの [デバッグ]-[****のコンパイル] で反転選択される部分のコードを教えてください。

お礼

早速の情報ありがとうございます。
下の方の記述で出来ました。本当にありがとうございました。

回答No.1

hatena1989

最初のプロシージャに下記のようにコードを挿入すればどうでしょう。

Private Sub calendarForm_DateChanged(newDate As Date)
　　Me.[日報選択] = newDate
　　Call 日報選択_AfterUpdate()
End Sub

補足

回答ありがとうございます。
教えていただいた方法をやりましたら、構文エラーになります。