Accessでの文字列抽出

質問

お世話になります。
とある作業で文字と数値が並んだフィールドから、文字のみを抽出したいと考えております。

例：
岩田2064-2　　　　　　　　　　→岩田　　　　　　　　　　　　
金井沢81000-199　　　　　　→金井沢　　　　　　　　
日向ホ490-7　　　　　　　　　→日向ホ
北原地新田ロ159　　　　　　→北原新田ロ
神野　　　　　　　　　　　　　　→神野

※文字（テキスト）の後には数値が付いているものと付いていないものがあります。
　また、文字（テキスト）がカタカナで終わるものもあります。

小文字と大文字を区別→抽出。
と考えていたのですが、Accessだとできないようで困っております。
是非ともご教授願います。

回答No.2

IDii24 · ベストアンサー

パブリックモジュールを作成してくださいＡｃｃｅｓｓＶＢＡの関数を作らないと無理です。

その辺はプログラミングですので、まったく初めてでしたらこのスペースでは無理です。
Ｗｅｂで少し基礎を勉強してみてください。

文字列の操作、数値の扱いです。
とりあえずサンプルですが、エラー回避とかnull回避はしてません。

test1をクエリから予備フィールドをパラメータで渡せば可能です。

Public Function test1(A As String)
Dim i As Integer
Dim B As String

B = ""
For i = 0 To Len(A)
If IsNumeric(Mid(A, i + 1, 1)) = False Then
B = B & Mid(A, i + 1, 1)
End If
Next
test1 = B

End Function

お礼

モジュールの作成ですか、、、

そうですね、基礎の勉強が必要なようです。

今回は地道に変換する道を選びます。

上記例文&回答については、今後の参考にさせていただきます。

ありがとうございました。

回答No.1

IDii24

出来ますよ。

for ～loopで文字数分回す。

mid関数で左から１文字ずつ読む、開始値は回した階数の変数。

isnumeric関数でその１文字を検査しfalseだったら文字変数に追加で入れる。

一列終わったら書き出し。文字変数をクリア。

という関数を作り入口の引数で１行渡せばよい。

クエリでも使用できる。

nullの扱いに注意。nullなら抜けるとか。

補足

お早い回答で助かります。
ありがたいです。

なのですが、回答にある関数はSQL文で書くことになるのでしょうか？

今のところ式が頭に思い浮かばないので、まだ調べる必要がありそうです。

よろしければ、例文を教えていただけないでしょうか。