#27 のコードが間違ってました。 正しくは下記です。
Do Until rs.EOF With Me("T" & rs!作業日 - FirstDay) .value = .value & "<p>" & rs!開始時間 & " " & IIf(rs!確定<>"",""," <font color=red>☆</font>") & rs!略名 & "</p>" End With rs.MoveNext Loop
#27 の回答のコードも修正しておきます。
不適切なコンテンツとして通報するには以下の「送信」ボタンを押して下さい。 現在このグループでは通報を匿名で受け付けていません。 管理者グループにはあなたが誰であるかがわかります。
どのように不適切か説明したい場合、メッセージをご記入下さい。空白のままでも通報は送信されます。
通報履歴 で、あなたの通報と対応時のメッセージを確認できます。
Accessのテーブルやクエリのデータを貼り付ける場合は下記で、Markdown書式のテーブルに変換して貼り付けてください。
Markdown Tables generator