OKWAVEのAI「あい」が美容・健康の悩みに最適な回答をご提案!
-PR-
解決
済み

ACCESSのVBAでテキストボックスの前景色を変えたい

  • すぐに回答を!
  • 質問No.130274
  • 閲覧数585
  • ありがとう数1
  • 気になる数0
  • 回答数1
  • コメント数0

お礼率 35% (33/92)

ACCESS初心者の者です。
質問なんですが、テーブルと連結しているテキストボックスの前景色を
変えるのにVBAを使ってやりたいのですが、どうしたらいいのでしょうか?
具体的には、
 (1)以下のような生徒フォームがあり、学籍番号、名前、自宅通学は
  テーブルと連結してます。
  学籍番号  名前     自宅通学 
  001   山田太郎   FALSE
  002   木下花子   TRUE
  003   鈴木次郎    FALSE   

 (2)生徒を上から順に舐めていって自宅通学がTRUEの者の学籍番号を赤で
  表示させたいと思います。
  上の例でいくと木下花子の学籍番号002が赤くなればいいです。

 (3)ちなみに私が作ったVBAのクラスモジュールは以下の様ですが、
  これだと木下花子だけではなくて全員の学籍番号が赤くなってしまいます。
  Me.RecordsetClone.MoveFirst
  Do Until Me.RecordsetClone.EOF
     If Me.RecordsetClone!自宅通学 = True Then
       Me!自宅通学.ForeColor = vbRed
     End If
     Me.RecordsetClone.MoveNext
  Loop

どうすればよろしいでしょうか? よろしくお願いいたします。
通報する
  • 回答数1
  • 気になる
    質問をブックマークします。
    マイページでまとめて確認できます。

質問者が選んだベストアンサー

  • 回答No.1
レベル13

ベストアンサー率 46% (643/1383)

Access2000 以上で有効な方法です。
フォームの学生番号欄を選択して、書式-条件付書式を実行します。

んで、「式」が「[自宅通学]=True」のときに、フォントの色を赤くしてやればいいでしょう。

尚、Access97以前では多分、出来ません。

不明点とかあれば、補足にてご質問ください。
お礼コメント
redsky

お礼率 35% (33/92)

早速の御回答ありがとうございます。
私のAccessのバージョンを書くのを忘れていましたね。
私のは、Access97なので無理ということですね。
昨日、自分でもネットや本屋でいろいろ調べてみました。
単純にラベルの色を変えることは簡単にできる様ですが、
上記の様なケースは見つからなかったので、あきらめて
いたのですがやはり無理でしたか・・・。
蛇足ですが、質問本文にあるVBAのソースの上から4行目は
Me!学籍番号.ForeColor = vbRed
の間違いですね。失礼しました。
どうもありがとうございました。また何かの折はよろしく
お願いします。
投稿日時 - 2001-09-06 07:25:11
-PR-
-PR-
このQ&Aで解決しましたか?
関連するQ&A
-PR-
-PR-
このやり方知ってる!同じこと困ったことある。経験を教えて!
このQ&Aにはまだコメントがありません。
あなたの思ったこと、知っていることをここにコメントしてみましょう。

その他の関連するQ&A、テーマをキーワードで探す

キーワードでQ&A、テーマを検索する
-PR-
-PR-
-PR-

特集


いま みんなが気になるQ&A

関連するQ&A

-PR-

ピックアップ

-PR-
ページ先頭へ