文字列に含まれる全ての空白を削除する : Access

［文字を入力］テキストボックスに空白を含む文字列を入力します。

下フォームの場合「Office アクセス　2013」と半角と全角スペースが含まれる文字を入力しました。

［空白削除］ボタンをクリックすると、空白を削除した文字列が［削除後の文字］テキストボックスに表示されます。


Access VBAコード

Option Compare Database

Private Sub コマンド2_Click()
    If IsNull(Me!テキスト0) Then
        MsgBox "削除する文字列を入力してください。"
    Else
        Me!テキスト3 = Replace(Me!テキスト0, " ", "")
    End If
End Sub

関連記事
StrConv関数で文字を変換する
Left関数とInstr関数で名前から苗字を取り出す