テーブルのフィールドにスペースを連続して入力する(Space関数)
 指定した数のスペースからなる文字列を返す文字列処理関数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」をチェックします。

Access2000



戻る


Excel Word Access VBA! モーグ