一つのテーブルの全てのフィールドを一気に半角にする方法

質問

テーブル１に
フィールド１、フィールド２、フィールド３・・・と多数のフィールドがあり、
全ての全角文字を半角にしたいのですが
更新クエリで

UPDATE テーブル１ SET テーブル１.フィールド１ = StrConv([テーブル１]![フィールド１],8);
UPDATE テーブル２ SET テーブル２.フィールド２ = StrConv([テーブル２]![フィールド２],8);

とフィールドつづやってくしかないですかね？

もっと効率のいい方法があれば教えてください！
よろしくお願い致します。

回答No.1

bin-chan · ベストアンサー

SET には複数の式をカンマで区切って記述できます。
なので
update テーブル１
set
テーブル１.フィールド１ = StrConv([テーブル１]![フィールド１],8),
テーブル１.フィールド２ = StrConv([テーブル１]![フィールド２],8),
テーブル１.フィールド３ = StrConv([テーブル１]![フィールド３],8)
;
です。
(結局、全フィールド記述ですね）

お礼

一個一個やるよりこっちの方が楽ですね。
ありがとうございます。

回答No.2

mitarashi

別件でADOXについて調べていたので、試しにやってみました。当方Access2000です。
Sub testx()
myConvNarrow ("Table5")
End Sub

Private Sub myConvNarrow(myTableName As String)
Dim CAT As Object, CLM As Object

DoCmd.SetWarnings False
Set CAT = CreateObject("ADOX.Catalog")
CAT.ActiveConnection = CurrentProject.Connection
For Each CLM In CAT.Tables(myTableName).columns
DoCmd.RunSQL "UPDATE " & myTableName & " SET " & CLM.Name & "= StrConv(" & CLM.Name & ",8);"
Next CLM
DoCmd.SetWarnings False
End Sub

お礼

お返事遅くなってすいません！
すごい！テーブル名を変えるだけでうまくいきました。
ＡＤＯＸを勉強してみたいと思います。
ありがとうございます。