テキストボックスを数字以外入力不可に： Access

■ Access VBA 実行コード

'キー入力イベント
Private Sub テキスト1_KeyPress(KeyAscii As Integer)
'BackSpaceキーは無視
    If KeyAscii = 8 Then
        Exit Sub
    End If
'数字キーか判定
    If KeyAscii < 48 Or KeyAscii > 57 Then
'数字キーでない
        KeyAscii = 0
    End If
End Sub