テキストボックス1が空白のとき背景色を黄色にしてタブ移動しないようにし

質問

テキストボックス1が空白のとき背景色を黄色にしてタブ移動しないようにして再入力を促したいのですが
うまく行きません

まず、テキストボックス1からテキストボックス2に進むようタブオーダーの設定がされています

Private Sub テキストボックス1_Exit(Cancel As Integer)
'空白のとき
If IsNull(Me!テキストボックス1) Then
MsgBox "テキストボックス1が指定されていません。"
'テキストボックス1を黄色にする
Me!テキストボックス1.BackColor = 8454143
'タブキー操作で移動できないようにする
テキストボックス2.TabStop = False
Else
'それ以外の場合タブキー操作で移動できるようにする
テキストボックス2.TabStop = True
End If

ご指導ください

回答No.1

nda23 · ベストアンサー

(1)VBのバージョンを記載しましょう。
　　見た目はVB6.0系かな
(2)うまく行きません
　　何がどう「うまくない」のか分かりません。

思うに、テキストボックス１が空欄なのに黄色くならない？
だとすればIf文が悪いのです。掲題の条件はNullかどうか
ですが、空文字列とNullは違います。
If Format(Me!テキストボックス1, "@") = ""
上記のようにすればNullでも空文字列でもTrueになります。

また、「タブが移動しないように」であるなら
Cancel = Trueです。

しかし、通常の設計では画面全体としての整合を考えるので、
個別テキストボックスの「フォーカス喪失時」でこういう
ことはせず、登録ボタン等のクリック時にまとめてチェック
する方が普通だと思いますが…

お礼

ご指導ありがとうございます

タブが移動を止めたかったのです

記載していませんでした　すいません
うまく　行きました　ありがとうございます