Access (VBA)

Access VBAに関するフォーラムです。
  • 解決済みのトピックにはコメントできません。
このトピックは解決済みです。
質問

 
(Windows 10 Pro : Access 2016)
access ユーザーフォーム上 変数にてテキストボックスの色変更
投稿日時: 19/10/07 10:53:56
投稿者: しゅうり

宜しくお願いします。(EXCELのVBAならそこそこ分かる初級〜中級者だと思っています。)
 
access ユーザーフォーム上 変数にてテキストボックスの色変更をしたいのですが
可能でしょうか?
 
目的としては、エラーが起きた際にACCESSのサブフォーム内の対応するテキストボックスの
色を変更し、強調表示をしたいというものです。
 
色々と調べてみてはいるのですが、解決できず困っています。
力を貸して頂きたく投稿します。
 
 
サブフォーム内のテキストボックス(変数名にて)の値の取得・書き出しはできるのですが、
テキストボックスの枠色の変更を変数にて行おうとした場合はできませんでした。
 
例:
ーーーーーーーーーーーーーーーーーーーーーーーーーーーー
Forms![_フォーム1]![埋め込み1]!テキスト1.BorderColor = lngRed ・・・成功(テキストボックス名が定数の場合)
 
ーーーーーーーーーーーーーーーーーーーーーーーーーーーー
変数textbox = "テキスト_" & rs1!エラー変数名
Forms![_フォーム1]![埋め込み1].Form!Controls(変数textbox).BorderColor = lngRed '× うまくいきません。コントロールで書くのではないとは思うのですが・・・。
ーーーーーーーーーーーーーーーーーーーーーーーーーーーー
 
 
以上、宜しくお願いします。

回答
投稿日時: 19/10/07 11:48:20
投稿者: hatena
投稿者のウェブサイトに移動

しゅうり さんの引用:
access ユーザーフォーム上 変数にてテキストボックスの色変更をしたいのですが
可能でしょうか?

 
access にユーザーフォームはないので、access のフォームのことですよね。
 
しゅうり さんの引用:

サブフォーム内のテキストボックス(変数名にて)の値の取得・書き出しはできるのですが、
テキストボックスの枠色の変更を変数にて行おうとした場合はできませんでした。

 
そのできているコードの全体を提示してください。
 
あと、そのコードをどのフォームのどのイベントプロシージャに記述しているかも提示したください。

回答
投稿日時: 19/10/07 15:53:49
投稿者: sk

引用:
Forms![_フォーム1]![埋め込み1].Form!Controls(変数textbox).BorderColor = lngRed

Forms![_フォーム1]![埋め込み1].Form.Controls(変数textbox).BorderColor = lngRed

投稿日時: 19/10/08 11:42:58
投稿者: しゅうり

hatenaさん、SKさん、
書き込み、ありがとうございました。
 
hatenaさんへ:
まず表記の誤りでした。
[access ユーザーフォーム上] → [access サブフォーム上] の誤りでした。すいません。
 
また、サブフォーム上のテキストボックスへの値を入れるコードは以下のように記述していて正常に動作しています。
Forms![_フォーム1]![埋め込み1].Form!Controls(変数textbox) = "文字"
(すいません、VBAが長くて一部抜粋したのですが、分かりにくかったなら今後気を付けます)
 
SKさんへ:
ありがとうございました。
赤文字の箇所を修正しました所、あっさりと動作しました。
 
・二人の書き込みのおかげで解決しました。なかなか解決できずにいて困ってました^^。
 とても感謝しています。本当にありがとうございました。