Microsoft Access 掲示板

カレンダー形式のスケジュール管理フォーム作成 その3 - hatena chips
上記のページのテーブル設計、フォーム設計として回答します。

予定テーブル（T_予定）から集計クエリを作成して、件数を表示させます。デザインビューで下記のように設定します。

名前を Q_予定件数 とします。

フォームモジュールの予定表示プロシージャを下記のように修正します。

'予定表示プロシージャ
Public Sub SetSchedule()
Dim i As integer, rs As DAO.Recordset
    For i = 1 To 42
        Me("T" & i).Caption = ""
    Next
    Set rs = CurrentDb.OpenRecordset( _
        "SELECT 日付, 件名 FROM Q_予定件数 WHERE " & _
        "日付>#" & FirstDay & "# AND 日付<=#" & FirstDay + 42 & "#", _
        dbOpenForwardOnly, dbReadOnly)
    Do Until rs.EOF
        With Me("T" & rs!日付 - FirstDay)
            .Caption = rs!件数
        End With
        rs.MoveNext
    Loop
    rs.Close: Set rs = Nothing
End Sub

以上です。