Microsoft Access 掲示板

例えば、2分割、オブジェクトを２つ作成。

例えば、6分割、オブジェクトを６つ作成。

Me.ラベル30予定1の時刻.Caption = rs!時刻

Me.ラベル30予定1の案件.Caption = rs!案件
If rs!案件の条件 = “ほにゃらら” Then
　Me.ラベル30予定1の案件.ForeColor = 8388608
End If

Me.ラベル30予定1の担当者.Caption = rs!担当者

Me.ラベル30予定2の時刻.Caption = rs!時刻

Me.ラベル30予定2の案件.Caption = rs!案件
If rs!案件の条件 = “ほにゃらら“ Then
　Me.ラベル30予定2の案件.ForeColor = 8388608
End If

Me.ラベル30予定2の担当者.Caption = rs!担当者

たぶん、こんな感じではないかと思います。

Do Until rs.EOF
Me("ラベル" & rs!日付 - FirstDay & “予定” & rs!予定番号 & “の時刻”).Caption = rs!時刻
Me("ラベル" & rs!日付 - FirstDay & “予定” & rs!予定番号 & “の案件”).Caption = rs!案件
Me("ラベル" & rs!日付 - FirstDay & “予定” & rs!予定番号 & “の担当者”).Caption = rs!担当者
　If rs!案件の条件 = “ほにゃらら“ Then
　Me("ラベル" & rs!日付 - FirstDay & “予定” & rs!予定番号 & “の担当者”).ForeColor = 8388608
　End If
rs.MoveNext
Loop

(日付別)予定番号と案件の条件をテーブルに作成。
※オブジェクトの数を超えて表示出来ないので、1日に何件までと上限を設ける事になりそう。