Microsoft Access 掲示板

Microsoft Access 掲示板

数字とマイナスだけを入力させたい / 5

9 コメント
views
4 フォロー
5
hatena 2023/11/07 (火) 13:48:38

これで数字以外は規制できたのですが（BS等は可）、値引き等のﾏｲﾅｽ（減算）ｷｰも有効にするためアスキーコードを調べたら45だったので、それを追記して Case 8 To 10, 13, 45 としました。しかし－キーを押すと"数字を入力して下さい"のメッセージとなります。

テキストボックスのキー入力時に下記のコードを設定して試してみましたが、「-」キーを問題なく入力できました。

Private Sub テキスト0_KeyPress(KeyAscii As Integer)
 Select Case KeyAscii
    Case 8 To 10, 13, 45
    Case 48 To 57
    Case Else
        MsgBox "数字を入力して下さい", vbExclamation + vbOKOnly, "入力検査"
        KeyAscii = 0
  End Select
End Sub
通報 ...