![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
チェックボックスにチェックが入っていない場合、テキストボックス内の文字色を赤に、チェックを入れたら黒に、またチェックを外したら赤に、という風にしたいです。
条件付書式で設定した場合、条件を満たしたらすぐには反映されず、一旦別のレコードに移動して戻ってくると反映されています。
VBAのコードで
Private Sub 処理_AfterUpdate()
If チェックボックス = 0 Then
'文字色変更処理
Else
'文字色変更処理
End If
End Sub
のようにすれば出来るのではないかと思うのですが、
文字色変更のコードがわかりません。
どなたか教えてください。
No.4
- 回答日時:
>なぜかチェックの付け外しだけでは書式変更されないのですが・・・
コントロールの条件付書式です。条件式に誤りがあるのでは?
例えば、 コントロール名が
・CHEKBOX1
・TEXTBOX1
の2つのコントロールがフォームに配置されていたとして、CHECKBOX1の値でTEXTBOXの文字色を変更するには、条件付書式を次のようにデザインビューで設定します。
1. TEXTBOX1を選択
2. [書式]-[条件付書式]クリック
3. 条件1の設定
[式が] 式: [CHECKBOX1]=No 書式:赤字
4. [OK]クリック
3.の式: [CHECKBOX1]=No は [CHECKBOX1]=False でもOKだと思います。
コントロール名を[]でくくってみたら、どうでしょうか?
教えて頂いた通りにやってもダメだったので、
下記コードを書き加えました。
Private Sub チェックボックス_AfterUpdate()
テキストボックス.requery
End Sub
ありがとうございました。
No.3
- 回答日時:
ちなみにAccessはどのバージョンを使っていますか?
Access2002ではレコードを条件付き書式を使えばレコードを移動しなくても書式が変更されますが・・・
No.2
- 回答日時:
ごめんなさい、逆でした(^ ^;
Private Sub チェックボックス_AfterUpdate()
lngRed = RGB(255, 0, 0) ' 赤
lngBlack = RGB(0, 0, 0) ' 黒
If チェックボックス.Value = 0 Then
テキストボックス.ForeColor = lngRed
Else
テキストボックス.ForeColor = lngBlack
End If
End Sub
ありがとうございます。
そして大変な事に気付きました。
この方法だと全レコードが同じ色になってしまうんですね・・・
レコード毎の色の値は持っていないんでしょうか。
No.1
- 回答日時:
Private Sub チェックボックス_AfterUpdate()
lngRed = RGB(255, 0, 0) ' 赤
lngBlack = RGB(0, 0, 0) ' 黒
If チェックボックス.Value = 0 Then
テキストボックス.ForeColor = lngBlack
Else
テキストボックス.ForeColor = lngRed
End If
End Sub
ではどうでしょう?
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) マクロ、条件付き書式のfont.color 1 2023/03/28 01:10
- Access(アクセス) Access の SetFocus について教えてください 5 2022/08/04 07:32
- Access(アクセス) チェックボックスにチェックが入った後の挙動 1 2022/08/21 12:39
- Visual Basic(VBA) マクロ実行時、自動で背景色を変えたい。 C列にあるチェックボックスをチェックするとB列に「TRUE」 4 2022/11/08 11:14
- Visual Basic(VBA) VBAのトグルボタンでのマクロについて質問です 3 2022/10/10 17:23
- Access(アクセス) Access IF文でテーブルに存在しない場合の処理について 2 2022/10/10 18:09
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 2 2022/05/26 17:19
- Access(アクセス) Accessのテキストボックスの入力文字制限 1 2023/01/18 20:43
- Visual Basic(VBA) 【Excel VBA】自動メール送信の機能追加 5 2022/09/29 12:53
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 2 2023/05/23 16:28
このQ&Aを見た人はこんなQ&Aも見ています
-
賃貸で可能な古民家風レトロな部屋作りのコツ!改めて知る畳の高い機能性と魅力も紹介
畳の部屋を雰囲気のよい部屋に仕上げたい!賃貸住宅でもできる古民家風のレトロな部屋作りのコツを伺った。
-
アクセスでテキストボックスの値が空白だったら
Access(アクセス)
-
Accessのレポート上のテキストボックス値を設定したい
その他(データベース)
-
文字色を変えたい(ACCESS VBA)
Visual Basic(VBA)
-
-
4
アクセスで#エラーを表示させない方法は?
Access(アクセス)
-
5
Accessで文字列の長さによって、フィールドの幅を自動で合わせる方法
Excel(エクセル)
-
6
ACCESSで条件によってフォーム上のフィールドの色を変更
Access(アクセス)
-
7
アクセスのフォームで、文字を中央揃えにしたい
Access(アクセス)
-
8
ACCESSでラベルの余白と高さ、幅を設定する
Access(アクセス)
-
9
フォーム データシートビューで文字色を変えたい
Access(アクセス)
-
10
Accessを使って日付を比較したい
その他(Microsoft Office)
-
11
メッセージボックスに表示する文字を大きくしたい
Excel(エクセル)
-
12
アクセスVBAで既に開いているエクセルを閉じたい
Yahoo!ショッピング
-
13
【Access】Dcount関数の複数条件で順位を付ける方法について
Access(アクセス)
-
14
「パラメータが少なすぎます。3を指定してください。」って???
Access(アクセス)
-
15
access2000:フォームで入力した内容を新規レコードにコピー
その他(データベース)
-
16
Accessでテーブルの値をテキストボックスに代入するには?
Access(アクセス)
-
17
AccessのRefresh・Requery・Repaintの違い
Access(アクセス)
-
18
Accessで、フォームからフォームへ値を引き継ぐやり方
Access(アクセス)
-
19
ACCESS で 項目名を出力せずにエクスポートしたい
その他(データベース)
-
20
Accessでサブフォームのボタンクリックイベントをメインフォームで処理したい。
Access(アクセス)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excelの条件付き書式を崩された...
-
excel関数式の一部を太字にする
-
Excel 書式を関数で判断。
-
Excel 条件付書式で土日の左・...
-
excelで選択範囲の反転をしたい...
-
エクセルのピボットテーブルの...
-
VBAで転記すると元のシートの条...
-
EXCEL 表の書式のみ変更不可(...
-
エクセルで2つのシートで重複し...
-
Excel 条件付書式で二つの条件...
-
エクセルで、書式は変えずに連...
-
エクセルで1年前の日付になった...
-
エクセル:一定以上の数値にな...
-
条件付書式設定でつけた色を残...
-
100の倍数毎に色を付ける方法(...
-
指定した期限が近づくとセルの...
-
文字だけでなく書式も判別でき...
-
エクセル→貼り付けのオプション...
-
条件付き書式の条件に時刻を指...
-
エクセルのテキストボックスに...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excelの条件付き書式を崩された...
-
Excel 書式を関数で判断。
-
excel関数式の一部を太字にする
-
EXCEL 表の書式のみ変更不可(...
-
excelで選択範囲の反転をしたい...
-
エクセルで、書式は変えずに連...
-
エクセル:一定以上の数値にな...
-
エクセルのピボットテーブルの...
-
Excel 条件付書式で二つの条件...
-
エクセルで1年前の日付になった...
-
Excel 条件付書式で土日の左・...
-
エクセルで2つのシートで重複し...
-
エクセル→貼り付けのオプション...
-
条件付き書式の条件に時刻を指...
-
指定した期限が近づくとセルの...
-
条件付書式で色づけしたセルの...
-
条件付き書式が選択できない?!
-
EXCELにて、整数と小数点を色分...
-
100の倍数毎に色を付ける方法(...
-
VBAでシート書式の自動変換を作...
おすすめ情報