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

テキストボックスを数字以外入力不可に　　　メニューへ　　ホームへ

スポンサードリンク

'キー入力イベント
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

Access-Access!