質問: AccessVBAで英数字のみ半角にしたい テーブル1のフィールド1に文章が記載されており 下記のように置換したいのですが どのようにすればいいでしょうか accessの勉強 ⇒ accessの勉強 MicrosoftACCESSソフトウェア ⇒ Microsoft ACCESSソフトウェア
回答: 自作関数で処理する場合です。 標準モジュールにコピーしてください。 英数を半角にします。 クエリやVBAで使えます。 フィールド2 : anhw([フィールド1]) などです。 Function anhw(s As Variant) As Variant 'alphanumeric half width(英数半角) Dim i As Integer anhw = s If IsNull(anhw) Then Exit Function For i = 1 To Len(anhw) If (Asc(Mid(anhw, i, 1)) >= Asc("0")) And (Asc(Mid(anhw, i, 1)) <= Asc("z")) Then Mid(anhw, i, 1) = StrConv(Mid(anhw, i, 1), vbNarrow) Next End Function