hatena様 お手数をおかけいたします。
If Me(rs!略).Value = "関" Then
が選択されます。
If Me(rs!略).Value = "関" Then を If rs!略.Value = "関" Then に変更してみてください。
If rs!略.Value = "関" Then
あと、 Me(rs!略 & rs!氏名).ForeColor もエラーになりそうです。
Me(rs!略 & rs!氏名).ForeColor
略の条件によって色を変えるように指定したいのですが、
とのことですが、なんの色を変えたいのかよく考えてみてください。
hatena様 お手数をおかけいたします。 If rs!略.Value = "関" Then はデバッグできましたが、 Me(rs!略 & rs!氏名).ForeColor がエラーになりました。 Meを外したり、rs!略だけにしても同じです。
色を変えたいのは表示させている 時間と略と氏名の一行、一行を略の選択によって色を変えたいです。
ちら見回答であれですが、上手く出来ないなら、2つに分ければいいんじゃない。略の前景色は、ほにゃらら、氏名の前景色は、ほにゃらら、みたいに。
よく見たら、ラベルでしたね。ラベルの中身をカラフルに、色やフォントを変える文字列関数ってありましたっけ、誰かフォローして下さい。 視認性に拘るなら、略のラベルと氏名のラベルを同じように用意して最初から作りましょう。 視認性よりも可読性・保守性が大事だと思います。明日、明後日、来週、来月、来年、5年、10年後に見たときに、パッと理解・説明出来ないなら無意味ですよ。
ForeColorというのは「前景色」プロパティです。「前景色」プロパティはテキストボックスのプロパティです。
rs!略 & rs!氏名 は、レコードセットの「略」フィールド、「氏名」フィールドに入っているデータです。 Me(rs!略 & rs!氏名) としたら、そのデータと同じ名前のテキストボックスを探すことになりますが、そのような名前のテキストボックスはないですよね。
rs!略 & rs!氏名
Me(rs!略 & rs!氏名)
まずは、それぞれのコードの意味を理解するように努力してください。最初は難しいと思いますが、それをしないとスキルアップはしません。
とりあえず、 With Me("T" & rs!日付 - FirstDay) の部分でテキストボックスを指定しています。
With Me("T" & rs!日付 - FirstDay)
Withの意味も調べてみてください。
With
hatena様
ご指導ありがとうございます。ヒントを頂き、色付けできました。Withよく理解できました。 初心者で申し訳ございませんでした。
しかし、この方法ですと予定の案件がすべて色が変わってしまいました。考えてみれば当たり前でした。 これを一案件毎に条件毎に色を変えるのはむつかしいでしょうか?
調べて勉強しようとは思いますが、何かとっかかりのヒントを頂ければ幸いです。
まず、前回の回答の訂正から。 前回の回答でテキストボックスと書いていましたが、ラベルの間違いです。ラベルと置き換えて読んでください。
さて、本題です。 一つのラベル内のテキストの色(前景色)を部分的に変えることはできません。 行毎に変えたいなら、行数分のラベルに分割することになりますね。
Hatena様
色々調べているのですが、分割が解らす困っています。 ラベルを改行前に細工をする感じになりますか? もう少しヒントいただけたら幸いです。
今回の件は課員からの要望が多いので形にさせてください。よろしくお願いいたします。
時刻9:00 案件1 担当者A 時刻17:00 案件2 担当者A
例えば、2分割、オブジェクトを2つ作成。
時刻9:00 案件1 担当者A
時刻17:00 案件2 担当者A
例えば、6分割、オブジェクトを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日に何件までと上限を設ける事になりそう。
>> 30 業者に依頼したり、カレンダーアプリを探したりするほうが、幸せになれると思いますよ?
hatena様
お手数をおかけいたします。
If Me(rs!略).Value = "関" Then
が選択されます。
If Me(rs!略).Value = "関" Then
を
If rs!略.Value = "関" Then
に変更してみてください。
あと、
Me(rs!略 & rs!氏名).ForeColor
もエラーになりそうです。
とのことですが、なんの色を変えたいのかよく考えてみてください。
hatena様
お手数をおかけいたします。
If rs!略.Value = "関" Then はデバッグできましたが、
Me(rs!略 & rs!氏名).ForeColor がエラーになりました。
Meを外したり、rs!略だけにしても同じです。
色を変えたいのは表示させている 時間と略と氏名の一行、一行を略の選択によって色を変えたいです。
ちら見回答であれですが、上手く出来ないなら、2つに分ければいいんじゃない。略の前景色は、ほにゃらら、氏名の前景色は、ほにゃらら、みたいに。
よく見たら、ラベルでしたね。ラベルの中身をカラフルに、色やフォントを変える文字列関数ってありましたっけ、誰かフォローして下さい。
視認性に拘るなら、略のラベルと氏名のラベルを同じように用意して最初から作りましょう。
視認性よりも可読性・保守性が大事だと思います。明日、明後日、来週、来月、来年、5年、10年後に見たときに、パッと理解・説明出来ないなら無意味ですよ。
ForeColorというのは「前景色」プロパティです。「前景色」プロパティはテキストボックスのプロパティです。
rs!略 & rs!氏名
は、レコードセットの「略」フィールド、「氏名」フィールドに入っているデータです。Me(rs!略 & rs!氏名)
としたら、そのデータと同じ名前のテキストボックスを探すことになりますが、そのような名前のテキストボックスはないですよね。まずは、それぞれのコードの意味を理解するように努力してください。最初は難しいと思いますが、それをしないとスキルアップはしません。
とりあえず、
With Me("T" & rs!日付 - FirstDay)
の部分でテキストボックスを指定しています。
With
の意味も調べてみてください。hatena様
ご指導ありがとうございます。ヒントを頂き、色付けできました。Withよく理解できました。
初心者で申し訳ございませんでした。
しかし、この方法ですと予定の案件がすべて色が変わってしまいました。考えてみれば当たり前でした。
これを一案件毎に条件毎に色を変えるのはむつかしいでしょうか?
調べて勉強しようとは思いますが、何かとっかかりのヒントを頂ければ幸いです。
まず、前回の回答の訂正から。
前回の回答でテキストボックスと書いていましたが、ラベルの間違いです。ラベルと置き換えて読んでください。
さて、本題です。
一つのラベル内のテキストの色(前景色)を部分的に変えることはできません。
行毎に変えたいなら、行数分のラベルに分割することになりますね。
Hatena様
色々調べているのですが、分割が解らす困っています。
ラベルを改行前に細工をする感じになりますか?
もう少しヒントいただけたら幸いです。
今回の件は課員からの要望が多いので形にさせてください。よろしくお願いいたします。
時刻9:00
案件1
担当者A
時刻17:00
案件2
担当者A
例えば、2分割、オブジェクトを2つ作成。
時刻9:00
案件1
担当者A
時刻17:00
案件2
担当者A
例えば、6分割、オブジェクトを6つ作成。
たぶん、こんな感じではないかと思います。
(日付別)予定番号と案件の条件をテーブルに作成。
※オブジェクトの数を超えて表示出来ないので、1日に何件までと上限を設ける事になりそう。
>> 30
業者に依頼したり、カレンダーアプリを探したりするほうが、幸せになれると思いますよ?