◆概要
このページは、Microsoft Access でテキストボックスに数値しか入力できないようにする方法を記載しています。

◆内容

テキストボックスに数値しか入力できないようにするには、テキストボックスのKeyPressイベントハンドラで、入力された文字のコードを調べて数値以外のときは、キー入力を無効にします。


KeyAscii プロパティは、KeyPress イベントに関連付けられた ASCII コードを返します。

なお、KeyAscii = 0は、テキストボックスへの入力を無効にします。

Asc関数は、文字に対応する文字コードを示す整数型 (Integer) の値を返します。たとえば、Asc("A")は65というASCIIコードを返します。

Private Sub txtCode_KeyPress(KeyAscii As Integer)
    '0ｷｰから9キーまでと、BSキー以外の場合
    If Not ((Asc("0") <= KeyAscii And KeyAscii _
                        <= Asc("9")) Or KeyAscii = 8) Then
        'キー入力を無効に
        KeyAscii = 0
    End If
End Sub