Acssess VBA 最後のレコードまで繰り返す 繰り返し文

Question

#実現したいこと
テーブルにて最初のレコードから最後のレコードまで繰り返す繰り返し文を記述しましたが、オブジェクトが必要というエラーが出ました。どのように書き換えればいいですか？

  'テーブルを開く
  DoCmd.OpenTable "テーブル１"
  '最後のレコードまで繰り返す
  Do Until rs.EOF
    CurrentDb.Execute "DELETE * FROM テーブル１ WHERE フィールド４ = 0;"
    rs.MoveNext
  Loop

上記のコードだと、

Do Until rs.EOF

のところでオブジェクトが必要とエラーが出てしまいました。

あと、レコードを削除するときに、○○件のレコード削除しますが…のメッセージを表示させないようにしたいです。

Answer 1

VBA - Acssess VBA テーブルの値にてifを使用する｜teratail
の私の回答のコードだと思いますが、

  CurrentDb.Execute "DELETE * FROM テーブル１ WHERE フィールド４ = 0;"

の1行だけで、テーブル1 の フィールド４ = 0 の全レコードを削除します。
ループする必要はないです。
これがSQLの利点です。

Answer 2

  Set db = CurrentDb()
  Set rs = db.OpenRecordset("金券カード", dbOpenTable)

の2行を記述したら成功しました。
ありがとうございました。

Comments

[hatena19]

ループする必要がないのに、無駄にループしている無意味なコード。