いつもありがとうございます。
背景スタイルが「普通」になっていました。すみません。「透明」に変更すると解決しました。ありがとうございます。
1.件名の前に時刻を表示したい(例 10:00 〇〇と打ち合わせ)
↑これでつまずいています。
既存のデータをしようしているので「時刻」⇒「開始時間」と変更しています。(その他も)
黄色マーカーの部分で
エラー3265 このコレクションには項目がありません。
と表示されます。
確かに「開始時間」という項目はあるのですが…
ご教示いただけませんか?
'予定表示プロシージャ
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