ACCESSで数字だけを入力する方法
まずはACCESSの単票などの書式でIME入力を不可にしておきます
| 1 | If KeyAscii = 8 Then |
|---|
| 2 | Exit Sub |
|---|
| 3 | End If |
|---|
| 4 | If KeyAscii < 48 Or KeyAscii > 57 Then |
|---|
| 5 | If KeyAscii = 45 Or KeyAscii = 9 Or KeyAscii = 13 ‘シフトキーで移動とエンターで移動した際にエラーを抜ける |
|---|
| 7 | Exit Sub |
|---|
| 8 | End If |
|---|
| 9 | MsgBox “数字か「-」のみ入力してください。” |
|---|
| 10 | KeyAscii = “0” |
|---|
| 11 | End If |
|---|
| 12 | End Sub |
|---|
これで電話番号を入力する際に数字と[-]以外を打てなくできます。
結構便利なので使えます
