カーソルの自動移動

質問

条件付でTABを1つとばすか2つとばすか設定できますか？（ユーザーフォームで作ってます）
例えば

担当者コード=01 と入力された時は2つ先の納入品目入力テキストボックスにとんで、担当者コード=88 と入力された時は1つ先の担当者名を直接入力するテキストボックスにとぶ。

現在、担当者コードの入力文字数を設定して次の項目（担当者名を直接入力するテキストボックス）に飛ぶようにAutoTabをTrueに設定している状態です。

宜しくお願いします。

回答No.1

Nayuta_X · ベストアンサー

ヒントです。
下記を実行すると　TextBox2にカーソルが、移ります。

TextBox2.SetFocus

お礼

ご回答ありがとうございます。
お恥ずかしながら、・・・SetFocusを他の部分で使ってました。
結構おっちょこちょいです。
ありがうございました。

回答No.3

noname#140971

担当者コードが'88'ならば、Me.担当者名で止まり、それ以外は止まらない。

Private Sub 担当者コード_Change()
　　Me.担当者名.TabStop = (担当者コード = "88")
End Sub

担当者コードが'01'ならば、Me.担当者名で止まらない。

Private Sub 担当者コード_Change()
　　Me.担当者名.TabStop = Not (担当者コード = "01")
End Sub

しかし、'01' と '88' だけですか？

お礼

ご回答ありがとうございました。
こういう風にするとできるのですね。やってみます。

補足

いえ、担当者コードは他にもあります。

回答No.2

ivy1972

入力後処理でＩＦ～ＴＨＥＮ等でそれぞれ、ＳＥＴＦＯＣＵＳしたらどうでしょう？

お礼

ご回答ありがとうございます。
お恥ずかしながら、・・・SetFocusを他の部分で使ってました。
結構おっちょこちょいです。
ありがうございました。