重要なお知らせ

「教えて! goo」は2025年9月17日(水)をもちまして、サービスを終了いたします。詳細はこちら＞

電子書籍の厳選無料作品が豊富！

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

解決済

  • 質問者：GCTSRCGAOGP
  • 質問日時：
  • 回答数：2件

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

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

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

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

通報する

この質問への回答は締め切られました。

質問の本文を隠す

A 回答 (2件)

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);
としてあげれば？
    • good
    • 1
    • 件
通報する
この回答へのお礼

ありがとうございます。

通報する
お礼日時：2013/03/31 23:09

No.2

  • 回答者： nicotinism
  • 回答日時：

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


じゃなくて
UPDATE テーブル1 SET [テーブル1].[フィールド1] = myConv2([テーブル1]![フィールド1]);
ですね。。。
    • good
    • 1
    • 件
通報する
この回答へのお礼

ありがとうございます。

通報する
お礼日時：2013/03/31 23:09

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう！

Q質問する（無料）

このQ&Aを見た人はこんなQ&Aも見ています

関連するカテゴリからQ&Aを探す

ページトップページトップ

Q質問する（無料）

このQ&Aを見た人がよく見るQ&A

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング

おすすめ情報