テキストボックスのフォーカスの判定

フォーム上のコマンドボタンを押したとき、複数あるテキストボックスの内、アクティブになっている
テキストボックスに指定の数字が入力される。IF　テキストボックス１がアクティブ　Then　テキストボックス1．テキスト＝”１”　ＥＬＳＥ　テキストボックス2．テキスト＝”２”　のようなマクロです。こんなことができるでしょうか。よろしくお願いします。

質問者からの補足コメント

• さっそくお答えいただきありがとうございます。
  ＞アクティブになっている
  ではなくて、「フォーカスのあるテキストボックスに」でした。
  説明が悪くて済みません。

  No.1の回答に寄せられた補足コメントです。 補足日時：2017/10/25 23:36

No.2 回答者： neKo_deux 回答日時： 2017/10/25 23:46

> ＞アクティブになっている

> ではなくて、「フォーカスのあるテキストボックスに」でした。

同じですよ。
コマンドボタンがフォーカスを受け取る設定になってたら、上手くいかないです。


コマンドボタンのプロパティの、
TabStop
TakeFocusOnClick
をFalseにしといたら、No.1の回答の方法で出来そうでしたが。

この回答へのお礼

＞コマンドボタンのプロパティの、
＞TabStop
＞TakeFocusOnClick
＞をFalseにしといたら、No.1の回答の方法で出来そうでしたが。

できました。ありがとうございました。

お礼日時：2017/10/26 00:50

No.1 回答者： neKo_deux 回答日時： 2017/10/25 18:32

> フォーム上のコマンドボタンを押したとき、複数あるテキストボックスの内、アクティブになっている

コマンドボタンがアクティブになっちゃうのでは。

MsgBox Me.ActiveControl.Name

で、アクティブなコントロールの名称を確認してみてください。
ボタンの設定変えて、フォーカスを受け取らないとか、タブストップを受け取らないとかに設定すれば質問のような動作になるかも。


TextBox1がアクティブになってるなら、
if Me.ActiveControl.Name="TextBox1" then TextBox1.Test="1" else TextBox2.Text="2"
とか。