HOME > 即効テクニック > AccessVBA > データ操作 > データの先頭と末尾の両方のスペースを削除する

即効テクニック

データ操作

データの先頭と末尾の両方のスペースを削除する

(Access)
データを入力する際に、例えばテキスト型のデータの場合、「時田」を「 時田」「時田 」「 時田 」と、スペースが付いたデータが入力されてしまうことが考えられます。
このスペースを削除するには、LTrim関数・RTrim関数・Trim関数が利用できます。
指定した文字列から先頭(左端)のスペースを削除するにはLTrim関数、末尾(右端)のスペースを削除するにはRTrim関数、先頭と末尾の両方のスペースを削除するにはTrim関数を使用します。
サンプルプロシージャは、「住所録テーブル」の「氏名」フィールドのデータの先頭と末尾のスペースをTrim関数を使って削除しています。

Sub Sample()
    Dim rs As Recordset
    
    Set rs = CurrentDb.OpenRecordset("住所録テーブル")
    
    rs.MoveFirst
    
    Do Until rs.EOF
        rs.Edit
        rs("氏名") = Trim(rs("氏名"))
        rs.Update
        rs.MoveNext
    Loop

    DoCmd.OpenTable "動物テーブル"
    
    MsgBox "文字列から先頭と末尾の両方のスペースを削除しました"
    
End Sub

DAOを使用していますので、[ツール(T)]メニューの[参照設定(R)]をクリックすると表示される[参照設定]ダイアログボックスで、「Microsoft DAO 3.6 Object Library」をチェックしてください。