Access ： 文字列から全部の空白を取り除く

Access VBAで左右の空白を取り除くにはTrim関数がありますが、文字列の中にある空白を取り除く関数はありません。

そこでVBAで1文字づつ空白か判定するようにします。

■実行順
1）文字列の長さ分、Forループを実行します。
2）MID関数で1文字取り出し、空白かどうか判定します。
3）空白でないなら、変数に代入します。
4）ループを抜けると、結果を表示します。
■実行Access画面
「 Access Tips アクセス　小技　」と左右と中に空白がある文字列でテストします。
空白は全角と半角が混在しています。


■実行結果
文字列を反転すると、空白がなくなっているのが分かります。
■ Access VBA 実行コード例

Option Compare Database
Option Explicit

Private Sub Form_Load()
    Me!テキスト0 = "  Access Tips アクセス　小技　"
End Sub

Private Sub コマンド2_Click()
    Dim sres As String
    Dim s1 As String
    Dim i As Long
    sres = ""
    For i = 1 To Len(Me!テキスト0)
        s1 = Mid(Me!テキスト0, i, 1)
        If s1 <> Space(1) Then
            '空白でない場合
            sres = sres & s1
        End If
    Next
    Me!テキスト1 = sres
End Sub