• ベストアンサー

「フォーカスのあるレコード」に色付けしたい

「フォーカスのあるフィールド」ではなく「フォーカスのあるレコード」に色付けしたい アクセス2007です。 フォームの条件付き書式には「フォーカスのあるフィールド」と言う条件で色付けできますが 「フォーカスのあるフィールドと同じレコードのフィールド」に色を付けたいです。 図をご覧いただければわかりやすいと思いますが、 IDフィールドの3にフォーカスがある場合は、フィールド1のCも色を変えたいです。 IDフィールドには、「フォーカスのあるフィールド」で条件付き書式設定をしました。 VBAでも大丈夫なので教えてください。

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

  • ベストアンサー
回答No.1

ID フィールドは主キーですね。 ならば、下記の方法で可能です。 フォームヘッダーかフッターに非表示のテキストボックス txtID を配置します。 フォームのレコード移動時のイベントプロシージャを下記のように記述します。 Private Sub Form_Current() Me.txtID = Me.ID End Sub 詳細セクションのテキストボックスを全て選択した状態で 条件付き書式 を下記のように設定します。 式 [txtID]=[ID] 背景色をお好みに設定します。 以上です。

sfdajklwe
質問者

お礼

>ID フィールドは主キーですね。 そうです。オートナンバー型です。 どういう仕組なのかよくわかりませんが出来ました!  ありがとうございました。

全文を見る
すると、全ての回答が全文表示されます。

関連するQ&A

  • マイクロソフト・アクセスでフォーカスのあるレコードを

    Access のフォームの表形式です。 フォーカスのあるレコード1行全体の背景色を変えるにはどんな方法がありますか? 条件付書式設定で、 GotForcus=true なんてかんじで、できないでしょうか?

  • 「フォーカスのあるフィールドに色を付ける」vba

    帳票フォームの全てのコントロールに 条件付き書式で 「フォーカスのあるフィールドに色を付ける」を行いたいのですが コントロールが多すぎる為VBAでループさせたいのですがコードがわかりません。 http://www.tsware.jp/tips/tips_187.htm これをVBAで行いたいです。 VBAでの条件付き書式は Sub Sample() Dim Field As String Dim myFormName As String With Forms(myFormName).Controls(Field) With .FormatConditions .Delete With .Add(acExpression, , "[" & Field & "]=""あ""") .BackColor = 225 End With End With End With End Sub こんな感じで出来る事は知ってますが、 vbaで「フォーカスのあるフィールドに」と言う条件の付け方がわからないので教えてください。

  •  エクセル2003で条件付き書式での色付けを5つ以上設定したいのですが

     エクセル2003で条件付き書式での色付けを5つ以上設定したいのですが、VBAで対応するしか ないということでした。 A1:A10に”あ”~”お”をランダムに入力したとして、A1:A10をC1:C10に参照して、このC列に反映された文字に色付けしたいのですが、いろいろVBAでの条件付き書式を探してみたんですが、入力したセルの色付けはできても参照したセルの色付けができませんでした。可能かどうかも分かりませんが、できる方がいたらよろしくお願いします。

  • アクセス サブフォーム条件付き書式の反映が若干遅い

    アクセスのフォームの中のサブフォーム条件付き書式を設定しています。 サブフォームにはテーブルのデータが紐づいております。 フォームを開いたと同時に条件付き書式に色付けがサブフォームに行われるようにしたいのですが フォームを開いただけだと色が付かず、サブフォームのどこかのレコードをクリックしたら色が付きます。 もしくは、フォーム上でマウスを動かすと色が付きます。 デザインビューでサブフォームに条件付き書式を設定しているので サブフォームを開くと同時に色が付くし、 サブフォーム単独で開くと、すぐ色が付きます。 親フォームを開いたと同時にサブフォームの条件付き書式を反映させる方法はありますか? アクセス2010です。 ご教授よろしくお願いします。

  • Access2013 vbaサブフォームのレコード

    [Access2013 vba] ■したいこと サブフォームのレコードの中から、一レコードだけをチェックボックスなどで選択したいのですが、どのようにしたら出来ますでしょうか。 複数行選択は出来ないようにしたいです。 選択したのち、メインフォームの選択ボタンを押すと、そのレコードのID番号を取得して、呼出元のフォームのIDフィールドに代入したいです。 ■画面の流れ・・・ Aフォーム → 帳票型Bフォームで、レコードを選び「開く」ボタンを押す→ B 'メインフォームとCサブフォーム)が開く Cサブフォームのレコードをチェックボックスにチェックを入れて選択する B ' メインフォームの「選択」ボタンを押すと B ' メインフォームと、その前のBフォームが閉じて Aフォームに戻り、AフォームのIDフィールドに選択したIDが格納される。 よろしくお願いします。

  • ACCESS2000の帳票フォームでカーソルのあるレコードの他のフィールドの書式変更のモジュール

    ACCESS2000の帳票フォームで、一番左のフィールドが得意先名、 間にいくつかのフィールドがあり、一番右のフィールドが金額を入金フィールドとして、 入金フィールドにカーソルがある場合、今どの得意先にいるか分かるように、今いるレコードの得意先フィールドの色を変えたいと思ってます。 この場合のモジュールの書き方を教えて頂けますでしょうか? 条件付書式設定でも無理なので、今はレコードセレクタを使ってます。 でもフィールドが多いため、右のほうに行けばどのレコードにいるのか分からなくなってしまうのです。 宜しくお願いいたします。

  • Accessでレコードの保存をVBAで

    Access2000です。 入力するとすぐに集計をしたいのですが、 フォームフッターの集計用テキストボックス (=sum([フィールド名])が設定されている) は、レコードを保存しないと、再計算されないようです。 そこで、入力して、フォーカスを喪失するときに DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70 を実行して、レコードを保存しているのですが、 デバッグのとき、エラーが発生しますし、 (デバッグ中は、VBAエディタが表示されるため) また、メニューの実行のコマンドは物足りないので、 指定したフォームのレコードを保存する方法は、 他にないでしょうか? よろしくお願いいたします。

  • Accessの条件付き書式設定で、複数の条件が一致した時の書式を設定したい

    Accessのフォームで、複数の条件が一致した時の書式を設定したいのですが、どうすればいいのでしょうか? 例えば、 [都道府県]フィールドが『東京都』の時、そのレコードの全フィールドの背景を水色にし、 [数量]フィールド、[金額]フィールドがマイナスの時、そのフィールドの値を赤字にしたいのです。 フォームで、全てのフィールドを選択してから、メニューの条件付き書式設定で、 『条件1(1)』に、「式」 「[都道府県]="東京都"」 と入力し、背景を水色に設定し、[OK] しました。 次に、[数量]フィールドと[金額]フィールドだけを選択し、メニューの条件付き書式設定で、 [追加]ボタンを押して、『条件2(2)』に、「フィールドの値」 「次の値より小さい」 「0」 と入力し、 フォントを赤色に設定し、[OK] をクリックしました。 ですが、実行すると、『東京都でマイナス』の時、『背景が水色で値が赤字』 という具合になりませんでした。。 単票フォームでも帳票フォームでもどちらでも結果は同じでした。 どうすればできるのでしょうか?それとも、こういうことはできないのでしょうか?? [都道府県] | [担当者] | [数量] | [金額]   → なって欲しい結果  東京都 | あああ | 5 | 500   → このレコードの背景が水色になる  千葉県 | いいい | -5 | -500   → -5 と -500 が赤字になる  東京都 | ううう | -1 | -100   → このレコードの背景が水色になり、更に-1と-100が赤字になる。 このようにしたいのですが、どうしたらよろしいのでしょうか? よろしくお願いします。

  • Access2000でフォーム上で最終レコードかどうかの判断は?

    Windows2000 Access2000という環境で Access内にレコード追加不可のフォーム中で、 フォーカス(カーソル)のあるレコードが 最終レコードかどうか?を判断したいです。 レコード追加を可能にすればオートナンバーのフィールドがNullかどうかで判断できるのですが、 レコード追加は不可にしたいです。 困っております。どうぞ回答お願いいたします。

  • 条件に合っているセルを色付けしたい

    添付のように、C3に選択した値からC列weekに入力されている値のセルを自動で色付けしたいのですが、条件付き書式でどのように設定すればよいか教えてください。

親と同じ人生を歩む理由とは?
このQ&Aのポイント
  • 親と同じ人生を歩む理由について考えてみましょう。
  • 遺伝や環境など、さまざまな要素が関与している可能性があります。
  • また、この現象を変えることは難しいのかについても考えていきましょう。
回答を見る

専門家に質問してみよう