即効テクニック |
●詳細● 指定した文字列の前後のスペースを削除するには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関数を使います。