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