データ(文字列)の前後のスペースを削除する

 指定した文字列の前後のスペースを削除するには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関数を使います。

Access97/2000



戻る


Excel Word Access VBA! モーグ