Access VBA レコード削除について

Question

###Access VBA レコード削除

  '金券カードテーブルを開く
  Set db = CurrentDb()
  Set rs = db.OpenRecordset("T01_売上管理", dbOpenTable)
  Set rs2 = CurrentDb.OpenRecordset("T01_売上管理")
  ReDim vArray(rs2.RecordCount - 1, 2)
  i = 0
  '最後のレコードまで繰り返す
  Do Until rs.EOF
    '当営業所の社員番号の場合
    If (Left(rs2(0), 4) >= 2200 And Left(rs2(0), 4) <= 2473) And rs2(1) <> "" Then
      '社員番号を変数に格納する
      Number(i) = Left(rs2(0), 4)
      '次の添え番に変更する
      i = i + 1
    '当営業所の社員番号以外のレコードの場合
    Else
    'レコードを削除する

    End If
    '次のレコードに移動する
    rs.MoveNext
  Loop

上記のコードに適合するレコード削除文はございますでしょうか？

DoCmd.RunCommand acCmdDeleteRecord

を入れて実行すると、『実行時エラー'2046':コマンドまたはアクション'レコードの削除'は無効です。』というエラーメッセージが出力されて、レコードが削除できませんでした。

Answer 1

レコードセットのメソッドを使うか、SQLを使うか?
そのコードならレコードセットのDeleteメソッドだと思います。

  rs.Delete 

ところで、その処理正しいですか？
rs2は開いたままで、レコードを移動させていないようなので、rsの誤りでしょうか？

Comments

[Yoshikun_0945]

レコードの中身を変数に代入する場合は、rsだけで大丈夫でしょうか？

[hatena19]

まず、何をしたいのか文章で他人に正確に伝わるように説明してください。
提示のコードでは、vArray配列はどこでも使わていませんし、Number配列も何に使うのか分かりません。

[sazi]

大丈夫です。
項目を参照するのに数値だと分からなかったりテーブルの項目順序を変更したりすると意図しない動作になります。
rs!項目名とかrs("項目名")で参照できます。