現在、FrmCalendar4_07.zip (Access 2007-2010 形式 - 58kb)をダウンロードして
スケジュール帳として使っています。
ただ、スケジュールが多くなると、フォームを開いたときに、T_予定の一番最初のレコードの月を表示して
いまい、毎回現在の月まで移動をしなければなりません。
カレンダーフォームを開いたときに、当月を開くようにするようにはどうしたらよいのでしょう。
私が試したことは、
・規定値で当月を指定する
・開いたときに最終レコードに移動する
ですが、当然のようにうまくいきませんでした。
よろしくお願いします。
自己解決？
Private Sub Form_Open(Cancel As Integer)
Dim i As Integer
For i = 1 To 42
Me("T" & i).OnClick = "=SetDate(" & i & ")"
Next
Me.cmdPrev.OnClick = "=MoveMonth(-1)"
Me.cmdNext.OnClick = "=MoveMonth(1)"
SetCalendar DLookup("日付", "T_予定")
End Sub
の
SetCalendar DLookup("日付", "T_予定")
を
SetCalendar Date
に変えたらとりあえず移動したようです。
正しいのでしょうか？
それで、OKですね。
あるいは、
SetCalendar DMax("日付", "T_予定")
とすれば、T_予定テーブルの最新日の月に移動します。
ありがとうございます。
予定の無い月に移動してもしょうがないので、さっそくアドバイスに通りに変更しました。
無事動作も確認できました。ありがとうございます。