入力値チェックについて

質問

access2007　にて・・・
テキストボックスの入力値の最終チェックとして(ボタンを押したときにチェックする)、
半角数字と半角ハイフン以外が入っていたらエラーとしたいのですが、
どのようなコードを書けばよろしいのでしょうか？ご指導願います。

回答No.2

30246kiku

入力後チェックするというのもありだと思いますが、入力時に制限するということもありだと思います。

テキストボックスのプロパティで、
「IME 入力モード」を「使用不可」とし、
「キー入力時」イベントで判断します。

以下例

Private Sub テキストボックス_KeyPress(KeyAscii As Integer)
　　Select Case KeyAscii
　　　　Case vbKey0 To vbKey9, vbKeyBack, Asc("-")
　　　　Case Else
　　　　　　　　KeyAscii = 0
　　End Select
End Sub

※ IME 入力モードがオン（漢字：全角）の時にはここは通りません。

※ IsNumeric だけでは、,　.　全角数字 が、すり抜けます。

回答No.1

ShowMeHow

電話番号のようなものであれば、「定型入力」のプロパティをいじったほうが良いと思いますが、
isNumeric(replace(text1,"-",""))
で判断できると思います。