Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


40176 / 76732 ←次へ | 前へ→

【41657】Re:ユーザーフォームのコントロールのイ...
発言  ハナ  - 06/8/18(金) 14:18 -

引用なし
パスワード
   ▼neptune さん:
>解決後だからもう見ないかな?
いえいえ、しっかり見ております

>CommandButtonのTabStopプロパティをFALSEにしておいて
>TextBox3のExitイベントで(検査必要なら検査して)
>CommandButtonにフォーカスを当てるという方法も思いつきました。
>どうですかね?

実はこの方法に近いことを一番最初にやってみたんです。
こんな感じです
Private Sub txt3_Exit(ByVal Cancel As MSForms.ReturnBoolean)
  Dim X As Integer
  X = Val(txt3.Text)
  Select Case X
    Case 10:
      Lbl_3.Caption = "新規"
      Kub = Get_Kub(Val(txt1.Text), Val(txt2.Text))  '区分取得
      Me.txtKNO.Text = _
        Mid(GET_KN(Kub), 1, 1) & CInt(Mid(GET_KN(Kub), 2, 4)) + 1 '新規工事番号出力
      With Me.txtKNOS
        .Text = "00"
        .Enabled = False
      End With   'サブコードに 00 セット
      txtDCODE.SetFocus
    Case 20, 30:
      If X = 20 Then Lbl_3.Caption = "追加"
      If X = 30 Then Lbl_3.Caption = "変更"
      With txtKNOS
        .Enabled = True
      End With
    Case Else:
      Lbl_3.Caption = ""
      CommandButton2.SetFocus
       ↑が機能しないで(ボタンのTabstopはFALSEです)次のTABへ
        移動してしまうんです
 
    End Select
End Sub

その結果、
  ・最初に相談したようにExitイベントのCancel = TRUE
   になるとSetFocusが効かなくなる & このイベントプロシジャー
   の中ではSETFOCUSが効かないみたいなんです
  ・エラー入力した場合、オペレーターから見て、画面クリアが優先処理
   になる(正規コードを入れなおすためにはTextBoxをあらためて
   選択する)といった問題が発生します
  ・Cancel値を使わなければ最大の問題である”正規コードを入れなければ
   抜けられない”問題はneptuneさんの思いつかれた方法で解決するようで    す。
そのへん、いかがなものなんでしょう・・・・
いずれにしましても、考えてくださってありがとうございます
心強いです。

0 hits

【41630】ユーザーフォームのコントロールのイベント処理選択 ハナ 06/8/17(木) 15:11 質問
【41632】Re:ユーザーフォームのコントロールのイ... neptune 06/8/17(木) 17:38 回答
【41633】Re:ユーザーフォームのコントロールのイベ... ichinose 06/8/17(木) 21:29 発言
【41644】Re:ユーザーフォームのコントロールのイベ... ハナ 06/8/18(金) 8:25 発言
【41646】ユーザーフォームのコントロールのイベント... ハナ 06/8/18(金) 9:20 質問
【41647】Re:ユーザーフォームのコントロールのイベ... ichinose 06/8/18(金) 9:56 発言
【41650】Re:ユーザーフォームのコントロールのイ... ハナ 06/8/18(金) 10:34 お礼
【41653】Re:ユーザーフォームのコントロールのイ... neptune 06/8/18(金) 11:28 発言
【41657】Re:ユーザーフォームのコントロールのイ... ハナ 06/8/18(金) 14:18 発言
【41668】Re:ユーザーフォームのコントロールのイ... neptune 06/8/18(金) 21:50 発言

40176 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free