アクセスのクエリで

質問

アクセスのクエリで、テーブルＡのフィールド1には数字、×、アルファベットの組み合わせの文字がありますが、この中からアルファベットを消去した表示にする事はできますか？
例えば、T24.70×17.5 ならば、　24.70×17.5にしたいです。
誰か教えて下さい。よろしくお願いします。

回答No.3

mitarashi · ベストアンサー

#1です。先のコードは、ひょっとして同じ文字が複数存在するとき誤動作するかも知れないので（簡単な試験をした結果ではそうでも無さそうなのですが）、改訂版です。
Function cutChar(targetString As String) As String
Dim i As Long, tempChar As String, buf As String

buf = targetString
For i = Len(buf) To 1 Step -1
tempChar = Mid(buf, i, 1)
If tempChar Like "[A-z]" Then
buf = Left(buf, i - 1) & Right(buf, Len(buf) - i)
End If
Next i
cutChar = buf
End Function

お礼

返事遅くなってすいません。
ありがとうございます。
うまくいきました。

回答No.2

imogasi

別フィールドでよければ、クエリのデザインの新フィールドで
学校2: Replace([学校],"北","中央")
で北小学校が中央小学校に変わります。
また
学校2: Replace(Left([学校],1),"北","") & Mid([学校],2,Len([学校])-1)
で
学校フィールドが
北小学校
北小学校
北小学校
中央小学校
南小学校北
南小学校北
本町小学校
が
学校2フィールドで
小学校
小学校
小学校
中央小学校
南小学校北
南小学校北
本町小学校
に変わります。
第１字目の北だけを省いています。
VBA・モジュールなら元のフィールドをで変えられます。

回答No.1

mitarashi

アクセスから「主キーが設定されていません」と苦情が来そうな質問タイトルは再考されてはいかがでしょうか。
無理矢理ですが、標準モジュールに下記のようなユーザー定義関数を作成して、クエリで使用すれば「式1: cutChar([fieldName])」一応出来ます。ご参考まで。
Function cutChar(targetString As String) As String
Dim i As Long, tempChar As String, buf As String

buf = targetString
For i = Len(buf) To 1 Step -1
tempChar = Mid(buf, i, 1)
If tempChar Like "[A-z]" Then
buf = Replace(buf, tempChar, "")
End If
Next i
cutChar = buf
End Function