Ｐａｇｅ 16 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼フォーカスのSET 豆太 02/9/5(木) 13:14 ┗Re:フォーカスのSET イケガミ 02/9/5(木) 19:22 ┗Re:フォーカスのSET 豆太 02/9/6(金) 10:01 ─────────────────────────────────────── ■題名 ： フォーカスのSET ■名前 ： 豆太 ■日付 ： 02/9/5(木) 13:14 -------------------------------------------------------------------------
| お世話になります。 以下のようにソースを書いて、 エラーがあるときに"txt_InTime"にフォーカスを Setしたいんですが、できません。 原因が分かる方教えていただけませんか？ Private Sub txt_InTime_AfterUpdate() If IsNumeric(txt_InTime.Value) = False Then MsgBox ("数字以外の値が入っています。") txt_InTime.SetFocus txt_InTime.Value = "0" Else txt_InTime.Value = txt_InTime.Value + 0 If txt_InTime.Value < 1 Or txt_InTime.Value > 24 Then MsgBox ("1〜24の数字を入力！！") txt_InTime.SetFocus txt_InTime.Value = "0" End If End If End Sub |
| >エラーがあるときに"txt_InTime"にフォーカスを >Setしたいんですが、できません。 >Private Sub txt_InTime_AfterUpdate() フォーカス喪失時イベントでチェックをすればいいと思います。 Private Sub txt_InTime_Exit() If IsNumeric(Me!txt_InTime) Then Else Msgbox "数値を入れてね〜" Cancel = True End If のように。。 |
| イケガミ さん いつもいつも低レベルな 質問にお答えくださってありがとうございます。 ここで、分からないことを聞いているだけでなく 自分も答える立場に早くなりたいもんです（笑） いつになるやら・・・。 |