アクセスクエリで英数字のみ半角にすることは可能？

質問

アクセスクエリで英数字のみ半角にすることはできますか？カタカナは全角のままにしたいです。

「アアアＡＡＡ１１１」
のデータがあり、更新クエリで
UPDATE テーブル1 SET [テーブル1].[フィールド1] = StrConv([テーブル1]![フィールド1],8);
をすると
「アアアAAA111」
になってしまいます。

「アアアAAA111」
にするにはどうすればいいでしょう？

カタカナ+英字+数字になってるわけではなくランダムです。

回答No.1

nicotinism · ベストアンサー

こんなユーザー定義関数を標準モジュールに作成して
Function myConv2(sStr As Variant) As String
Dim i As Integer
Dim p As String

For i = 1 To Len(Nz(sStr, ""))
p = Mid(sStr, i, 1)
If p Like "[0-9A-Za-z]" Then
myConv2 = myConv2 & StrConv(p, vbNarrow)
Else
myConv2 = myConv2 & p
End If
Next
End Function

クエリでは
UPDATE テーブル1 SET [テーブル1].[フィールド1] = myConv2([テーブル1]![フィールド1],8);
としてあげれば？

お礼

ありがとうございます。

回答No.2

nicotinism

UPDATE テーブル1 SET [テーブル1].[フィールド1] = myConv2([テーブル1]![フィールド1],8);
じゃなくて
UPDATE テーブル1 SET [テーブル1].[フィールド1] = myConv2([テーブル1]![フィールド1]);
ですね。。。

お礼

ありがとうございます。