即効テクニック |
Recordsetオブジェクトでレコードを削除するには、Deleteメソッドを使用します。 サンプルプロシージャでは、「動物テーブル」のRecordsetオブジェクトを作成して、「登録番号」フィールドが1000より大きいレコードを削除しています。 Sub Sample() Dim rs As Recordset Set rs = CurrentDb.OpenRecordset("動物テーブル") Do Until rs.EOF If rs!登録番号 > 1000 Then rs.Delete End If rs.MoveNext Loop rs.Close End Sub EOFプロパティは、カレントレコードの位置がRecordsetオブジェクトの最後のレコードよりも後にあるかどうかを示す値を返します。 DAOを使用するには、[ツール(T)]メニューの[参照設定(R)]をクリックすると表示される[参照設定]ダイアログボックスで、「Microsoft DAO 3.6 Object Library」をチェックします。