■ 構文
IsNumeric(expression)
■ 引数
expression :(必須) 数式または文字列式のバリアント型 を指定します。
■ 戻り値
結果はブール型 (Boolean) で返ります。
数値の場合は真(True)、それ以外は偽(False)が返ります。
■ Access実行画面
「チェックするデータ」に判定するデータを入力し、「数値かどうか確認」ボタンをクリックすると結果が表示されます。
[数値の場合の結果]
[数値でない場合の結果]
■ Access VBA 実行コード
Option Compare Database
Private Sub コマンド2_Click()
If IsNull(Me!テキスト0) Then
MsgBox "チェックするデータを入力してください。"
Exit Sub
End If
'チェック
If IsNumeric(Me!テキスト0) Then
Me!テキスト3 = "数値です"
Else
Me!テキスト3 = "数値ではありません"
End If
End Sub