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
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
これでは。
もし、構文エラーになるなら、メニューの [デバッグ]-[****のコンパイル] で反転選択される部分のコードを教えてください。
お礼
早速の情報ありがとうございます。 下の方の記述で出来ました。本当にありがとうございました。