Microsoft Access 掲示板

Microsoft Access 掲示板

カレンダー形式のスケジュール管理フォーム作成時における、日付の色を変更したい。 / 8

34 コメント
views
4 フォロー
8
hatena 2020/04/22 (水) 18:00:44

あっ、すみません。OpenRecordsetのSQLの方にもフィールドを追加する必要がありました。

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 = .Caption & rs!開始時間 & " " & rs!略名 & vbCrLf
        End With
        rs.MoveNext
    Loop
    rs.Close: Set rs = Nothing
End Sub
通報 ...