|
いつも参考にさせていただいております。
今回、ユーザーフォーム上に入力必須のテキストボックスtxtTCDとそれ以外のテキストボックスを幾つか。それとCommandButton1を配置して
・txtTCDには7桁の数字(取引先コード)以外の入力はエラー先に進めない。
・全てのテキストボックスクリア(入力内容消去)をCommandButton1_Clic
に割り付け、随時実行可能とする
といったフォームを作成したところ
Private Sub txtTCD_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If (Len(txtTCD.Text) <> 7) Or (IsNumeric(txtTCD.Text) = False) Then
Cancel = True
Exit Sub
End If
End Sub
一旦、txtTCDに違ったコードを入力してしまうと、その時点で
・CommandButton1が実行不能状態になります
・条件に合うコードを入力する以外抜けられない状態になる
といった、ある意味不具合が発生してしまいます
せめて、CommandButton1_Clicが効くようにするにはどのようにすればよいのでしょうか?
選んだイベント処理 Exit と Cancel が悪かったのかと思い、After_update
にしたりしてもなかなか思うような動きが得られませんので(txtTCDをSetfosして次にうつらないようにしても、移行してしまったり・・・・)行き詰ってしまいました。
どうか、アドバイスをお願いします。
|
|