スキルアップ・問題解決なら、モーグにおまかせ！

●詳細●
指定した文字列の前後のスペースを削除するにはTrim関数を使います。サンプルでは、スペースを削除するレコードの指定をインプットボックスで行い、FindFirstメソッドで該当レコードを検索します。レコードが検索された場合、テキスト型のフィールドに対してスペース削除処理を行ってレコードの更新をしています。

●準備●
数値型のフィールド「商品番号」とテキスト型のフィールド「商品名」のあるテーブル「商品管理」を作成します。
フィールド「商品名」にスペースの付いたデータを用意します。

●サンプル●
Sub Sample()
    Dim rs     As Recordset
    Dim myData As Variant
    
    Set rs = CurrentDb.OpenRecordset("商品管理", dbOpenDynaset)
    
    myData = InputBox(Prompt:="商品番号を指定してください", _
                         Title:="スペース削除")
    
    If IsNumeric(myData) Then
        rs.FindFirst "商品番号=" & myData
    
        If rs.NoMatch = False Then
            rs.Edit
            rs!商品名 = Trim(rs!商品名)
            rs.Update
        Else
            MsgBox "該当データがみつかりませんでした"
        End If
    Else
        If myData = "" Then
            MsgBox "キャンセルしました"
        Else
            MsgBox "数値を入力してください"
        End If
    End If

End Sub

●補足説明●
指定した文字列から先頭のスペースを削除するにはLTrim関数、末尾のスペース を削除する場合はRTrim関数を使います。