Microsoft Access 掲示板

できました！いつも本当にありがとうありがとうございます( ；∀；)

度々すみません。
時刻が表示できたのですが、〇〇：〇〇：〇〇　表示になります。
クエリ（Q_作業日一覧カレンダー表示用）でも「時刻（Ｓ）」を設定しているのですが、それだけではだめですか？

カレンダーの日時を反映させるのは、サブフォームではなく、サブレポート（R_カレンダー表示用）を使用しています。

レポート内のテキストボックスをクリックすることで、入力フォームが開くようにしています。
（プロパティシート⇒テキストボックス⇒クリック時⇒フォームを開く（where条件式　[ID]=[Reports]![R_カレンダー表示用]![ID]）

レポートの状態のときは、正常に動くのですが、カレンダーのフォームにサブレポートとして組み込んだ場合に、テキストボックスをクリックすると「パラメーターの入力」を求められます。

色々やってみたのですが分かりません。
ご教授いただけませんでしょうか…
いつもすみません…

埋め込みマクロで設定しているということでしょうか。
where条件式 は下記のようにしてください。

[ID]=[Forms]![フォーム名]![サブレポートコントロール名].[Report]![ID]

詳細は下記をご参考に。

サブフォームとサブフォームコントロールの違いとは？ - hatena chips

サブフォームコントロールで説明してますか、サブレポートコントロールでも同じです。

時間表示、サブレポートの件、解決しました。
以前、説明されている記事を拝見せずに、質問してすみませんでした。
ありがとうございました。

【カレンダー形式のスケジュール管理　その３】　
詳細データ表示用をサブフォームではなく、サブレポートを利用しています。

サブレポート内のテキストボックスをクリックし、入力フォーム（F_入力フォーム）を開き、スケジュールの詳細を入力しています。
入力フォームに作成している「保存ボタン」をクリックするときにサブレポートもリクエリしています。（サブレポートに表示に反映させている）

 '保存ボタンクリック時
Private Sub cmd保存_Click()
 BeforeUpdate = ""
 DoCmd.RunCommand acCmdSaveRecord
 BeforeUpdate = "[イベント プロシージャ]"
 Forms![F_Calendar]![R_作業日一覧_カレンダー表示用].Report.Requery
 End Sub

===============
F_Calendar への反映で困っています。

カレンダー形式のスケジュール管理　その３　
サブフォームで更新や追加、削除したときにカレンダーにその結果を反映させるためにサブフォームのフォームモジュールに下記のイベントプロシージャを作成します。SetScheduleをPublic宣言したのはサブフォームから呼び出す必要があったためでした。

'フォーム 更新後処理
Private Sub Form_AfterUpdate()
    Me.Parent.SetSchedule
End Sub

'フォーム 削除後確認
Private Sub Form_AfterDelConfirm(Status As Integer)
    If Status = acDeleteOK Then Me.Parent.SetSchedule
End Sub

＝＝＝＝＝
サブフォームではなく、サブレポートの為、上記のままではダメだと思い、色々と手を尽くしていますが、
うまくいきません。

入力フォームの「保存」ボタンをクリックしたときに、F_Calendar にも反映させたいのです。
入力フォームからサブレポートを反映させ、サブレポートからF_Calendarを反映させるでも良いのですが…

度々で申し訳ございません。ご教授いただけませんでしょうか。

サブレポート内のテキストボックスをクリックし、入力フォーム（F_入力フォーム）を開き、スケジュールの詳細を入力しています。
入力フォームに作成している「保存ボタン」をクリックするときにサブレポートもリクエリしています。（サブレポートに表示に反映させている）

入力フォームでの更新がF_Calendarに反映されないので、反映させたいということですね。
下記のように1行追加してみてください。

'保存ボタンクリック時
Private Sub cmd保存_Click()
    BeforeUpdate = ""
    DoCmd.RunCommand acCmdSaveRecord
    BeforeUpdate = "[イベント プロシージャ]"
    Forms![F_Calendar].SetSchedule '追加
    Forms![F_Calendar]![R_作業日一覧_カレンダー表示用].Report.Requery
End Sub

いつもありがとうございます。
反映させることができました。

いつもお世話になります。

スケジュール内容が未確定の場合は、赤文字で表示したいと思っています。
短いテキストで　未確定の場合⇒空欄，確定の場合⇒確定　と作成しています。

カレンダーに「確定」の文字を表示する必要はないのですが、文字色を分けて　確定・未確定の判断をしたいと思っています。
どのように記述すれば、表示することができるのでしょうか…
よろしくお願いします。

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

スケジュール内容が未確定の場合は、赤文字で表示したいと思っています。
短いテキストで　未確定の場合⇒空欄，確定の場合⇒確定　と作成しています。

このデータが入っているフィールド名は何でしょうか。
また、どこを赤文字で表示するのでしょうか。
空欄なら、文字自体がないのですが。

大変失礼致しました。
赤文字表示したいフィールド名は、略名（hatenaさんが作成されているものでは「件名」の部分になります。）になります。
T1~T42のラベル部分の中で、未確定の件名を赤文字で表示したいです。
（予定を入力しているのですが、確定と未確定が一見すると分からないので）

Q_作業日一覧カレンダー表示用　に　フィールド名⇒確定（短いテキスト）があります。
未確定の場合は空欄です。　　空欄の場合は略名（件名）を赤文字で表示し、「確定」と入力されたら略名（件名）が黒文字になるという設定にはできないでしょうか。

開始時間 と 略名 を一つのラベルに表示してますので、略名だけ赤字表示するのは現状では無理です。
全体を赤字表示するか、背景色を変更するとか、マークを表示するとか、別の方法で目立たせる方法ではだめですか。

開始時間と略名の両方が赤字表示でも良いです。

お手数をお掛けして申し訳ございません。

同日の中に確定と未確定があるので、それが分かる方法であれば、開始時間と略名が両方とも赤文字 や
マークなどでも構わないのです。

同日の中に確定と未確定があるので、それが分かる方法であれば、開始時間と略名が両方とも赤文字 や
マークなどでも構わないのです。

1日に複数の予定がある場合があるということですね。
だとすると、予定毎に色を変えることは一つのラベルでは無理です。
1日の最大予定数のラベルを1日当たりに配置するか、
あるいは、ラベルをテキストボックスに変更して「文字書式」プロパティを「リッチ テキスト形式」にして文字色を変更するように仕組みにする必要があります。
どちらにしても、大幅な修正が必要になります。

マークを追加するという方式なら、コードを少し修正するだけですみます。

例えば未確定([確定]フィールドが空欄)なら、略名の前に ☆ を表示するという仕様なら下記のコードになります。

    Do Until rs.EOF
        With Me("T" & rs!作業日 - FirstDay)
            .Caption = .Caption & rs!開始時間 & " " & Nz(rs!確定,"☆") & rs!略名 & vbCrLf
        End With
        rs.MoveNext
    Loop

☆を表示することができました。ありがとうございます。

☆を赤色にすることはできますでしょうか。

例えば未確定([確定]フィールドが空欄)なら、略名の前に ☆ を表示するという仕様なら下記のコードになります。

確定フィールドに「確定」という文字を入力した場合、略名の前に「確定」と表示されます。
空欄の場合⇒☆　　確定と入力された場合⇒（なにも表示しない（””））とすることはできるのでしょうか。

確定フィールドに「確定」という文字を入力した場合、略名の前に「確定」と表示されます。

済みません。下記に修正してください。

    Do Until rs.EOF
        With Me("T" & rs!作業日 - FirstDay)
            .Caption = .Caption & rs!開始時間 & " " & IIf(rs!確定<>"","","☆") & rs!略名 & vbCrLf
        End With
        rs.MoveNext
    Loop

☆を赤色にすることはできますでしょうか。

現状のラベルでは無理です。
ラベルをテキストボックスに変換して、プロパティを下記のように設定。
「文字書式」プロパティを「リッチ テキスト形式」
「編集ロック」を「はい」

    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

他の部分の Caption も Value に修正、他に修正が必要かも知れません。
実際に試してませんので、うまくいかないかも知れません。

ありがとうございます。
ご教授頂いたようにラベルをテキストボックスに変更する方法を試してみたところ、☆の色を変更することができました。
本当にありがとうございます。

すみません。見落としていました。
☆を赤文字に変更したら、箇条書きで表示されなくなりました。
同日中の予定が、すべて続けて表示されます。
ラベルの時のように件名毎に改行できますでしょうか。

下記のコードだとどうでしょうか。

    Do Until rs.EOF
        With Me("T" & rs!作業日 - FirstDay)
            .value = .value & "<div>" & rs!開始時間 & " "  & IIf(rs!確定<>"",""," <font color=red>☆</font>") & rs!略名 &  </div>
        End With
        rs.MoveNext
    Loop

早速ご回答いただきありがとうございます。
< /p >
を削除することで改行することができました。

Do Until rs.EOF
        With Me("T" & rs!作業日 - FirstDay)
            .value = .value & "< p >" & rs!開始時間 & " "  & IIf(rs!確定<>"",""," ☆") & rs!略名 & < /p >
        End With
        rs.MoveNext
    Loop

&< /p> です。すみません。

#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 の回答のコードも修正しておきます。

ご回答いただき、本当にありがとうございます。
ご教授頂いた通り、修正致しました。