指定した数のスペースからなる文字列を返す文字列処理関数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」をチェックします。
|