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