• ベストアンサー

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

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

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

  • ベストアンサー
  • CHRONOS_0
  • ベストアンサー率54% (457/838)
回答No.4

>"テキスト72"="SHIIRE_CD" これじゃ文字列の比較式です [テキスト72]=[SHIIRE_CD]

marshi2
質問者

お礼

有難うございます。 直したら上手く行きました。 感謝いたします。

その他の回答 (3)

  • bonaron
  • ベストアンサー率64% (482/745)
回答No.3

> "テキスト72"="SHIIRE_CD"と入れて背景の色を変えました。 [テキスト72]=[SHIIRE_CD] にしてください。

marshi2
質問者

お礼

有難うございます。 直したら上手く行きました。 感謝いたします。

  • CHRONOS_0
  • ベストアンサー率54% (457/838)
回答No.2

>非連結のフィールドのイベントに「レコード移動」が無いのですが? 例にアップしたコードにも書かれているように フォームのレコード移動時です >非連結テキストと主キーは、各々そのフィールド名を入れればよいのですね? 非連結テキストはコントロール名ね >詳細部分の色を変えたいフィールドに設定すればよいのですか? そうです、全部のフィールドに設定することもできますよ

marshi2
質問者

お礼

続いての回答有難うございます。 フォームヘッダーに「テキスト72」と言う非連結のテキストボックスを置き フォームプロパティの「レコード移動時」のプローシージャに Private Sub Form_Current() Me.テキスト72 = Me.SHIIRE_CD End Sub と書きました。([SHIIRE_CD]が主キー) 詳細のSHIIRE_RNと言うフィールドの条件付書式設定で、条件を「式」にし "テキスト72"="SHIIRE_CD"と入れて背景の色を変えました。 結果 カーソルをレコード間移動したとき、テキスト72ボックスには、選択したレコードのSHIIRE_CDが代入されてますが SHIIRE_RNの背景色は変わりませんでした。 どこかおかしいでしょうか? 明日、もう一度自分なりに確認してみますが何かお気づきの点があれば教えてください。 お手数かけてすみません。

  • CHRONOS_0
  • ベストアンサー率54% (457/838)
回答No.1

条件付書式でできますよ レコードに主キーフィールドはあるでしょうか? あれば簡単です フォームヘッダーに非連結のテキストボックスを置き レコード移動イベントに下のコードを書きます Private Sub Form_Current() Me.非連結テキスト = Me.主キー End Sub 条件付書式には 非連結テキスト=主キーフィールド 無ければも続けて質問してください

marshi2
質問者

お礼

早速の回答有難うございます。 ちなみに主キーはあります。 回答に関する質問ですが、 (1)フォームヘッダーに置いた非連結のフィールドのイベントに「レコード移動」が無いのですが? (2)Private Sub Form_Current() Me.非連結テキスト = Me.主キー End Sub の式の部分は、非連結テキストと主キーは、各々そのフィールド名を入れればよいのですね? (3)条件付書式設定は、詳細部分の色を変えたいフィールドに設定すればよいのですか? モジュールをあまり詳しくないもので、すみませんが宜しくお願いしまうS。

関連するQ&A