HOME > 即効テクニック > AccessVBA > データ操作 > テーブルのフィールドにスペースを連続して入力する(Space関数)

即効テクニック

データ操作

テーブルのフィールドにスペースを連続して入力する(Space関数)

(Access)
指定した数のスペースからなる文字列を返す文字列処理関数Space関数を使って、テーブルのフィールドにスペースを入力します。
サンプルプロシージャでは、テーブル「商品管理」でフィールド「商品番号」が3000以上のレコードのフィールド「商品名」に連続5個のスペースを入力しています。
フォームにコマンドボタン「コマンド0」を配置して、イベント「クリック時」に次のイベントプロシージャを作成してください。

Private Sub コマンド0_Click()
    Dim rs      As Recordset
    Dim rsCount As Long
    Dim i       As Long

    Set rs = CurrentDb.OpenRecordset("商品管理", dbOpenTable)
    
    'レコードをカウントします。
    rs.MoveFirst
    rsCount = rs.RecordCount
    
    For i = 1 To rsCount
        
        If rs!商品番号 >= 3000 Then
            rs.Edit
            rs!商品名 = Space(5)
            rs.Update
        End If
        
        rs.MoveNext
        
    Next i
    
    rs.Close
        
End Sub

Space関数の構文は次のとおりです。

<構文> Space(number)

引数numberには、スペースの数を指定します。この引数は必ず指定します。

Space関数は書式を整えるためにスペースを出力したり、固定長文字列を消去する場合などに役立ちます。
DAOを使用するには、[ツール(T)]メニューの[参照設定(R)]をクリックすると表示される[参照設定]ダイアログボックスで、「Microsoft DAO 3.6 Object Library」をチェックします。