akimotiblog

日々学んだこと、日記などを定期的に更新していきます。

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

これで電話番号を入力する際に数字と[-]以外を打てなくできます。
結構便利なので使えます

自己紹介

akimoti

制作者について

あきもちです、25歳のwebデザイン、プログラム歴2ヶ月です。職業訓練校で勉強していました。今は勉強する日々です。頑張りますので是非よろしくお願いします。 学んだことメモ代わりに更新します。ラインスタンプも作ったりしています。