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

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

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

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

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

No.1 ベストアンサー 回答者： nicotinism 回答日時： 2013/03/21 14:47

こんなユーザー定義関数を標準モジュールに作成して

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);
としてあげれば？

この回答へのお礼

ありがとうございます。

お礼日時：2013/03/31 23:09

No.2 回答者： nicotinism 回答日時： 2013/03/21 16:17

UPDATE テーブル1 SET [テーブル1].[フィールド1] = myConv2([テーブル1]![フィールド1],8);

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

この回答へのお礼

ありがとうございます。

お礼日時：2013/03/31 23:09