Microsoft Access 掲示板

カレンダー形式のスケジュール管理 件数を表示したい

2 コメント
views
4 フォロー

「カレンダー形式のスケジュール管理フォーム作成」を基にスケジュール管理を作成していますが、カレンダー「T*ラベル」へ件名ではなく、その日の件数を表示したいです。
(2つの件名を入力したら「2件」と表示)
この場合、どこをどの様に直せばよいか御指南頂けたらありがたいです。

te17448
作成: 2020/07/09 (木) 08:50:04
通報 ...
1

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

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

フィールド 日付 件数: 予定ID
集計 グループ化 カウント

名前を 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

以上です。

2
te17448 2020/07/09 (木) 11:46:22 17771@eee3d

ありがとうございます。 集計クエリを作るのがコツだったのですね。御指南ありがとうございます。