AccessVBAで数値のみ抽出する（数値以外は除去）する方法

文字列から数値のみを抽出する方法がいかに記載されていたのでメモ。

https://okwave.jp/qa/q3216707.html

標準モジュールに以下の関数を作成すると、Get_numeric関数としてクエリやプロシージャで使える。

Public Function Get_numeric(source_str As String)
Dim leng As Integer
Dim pos As Integer
Dim suuchi As Variant
suuchi = ""
leng = Len(source_str)
For pos = 1 To leng If Mid(source_str, pos, 1) >= 0 And Mid(source_str, pos, 1) <= 9 Then
suuchi = suuchi & Mid(source_str, pos, 1)
End If
Next
Get_numeric = suuchi
End Function