vba - 現在の行を削除

Question

クエリに関連付けられたマスクがあります。

このマスクは、アクセス テーブル (一度に 1 つのレコード) 内のレコードを表示します。たとえば、A テーブルです。

ユーザーがボタンをクリックすると、レコードが別のテーブル (たとえば B) にコピーされ、元のテーブル (A) から削除する必要があります。さらに、マスクは次または前のレコードに渡される必要があります。

テーブル B にキー フィールドを指定することはできません。

どうすればvba経由でこれを達成できますか?

Answer 1

ボタンをコピーしてから、ボタンを押してフォームに表示されているレコードを削除します。

Sub btnCopy()
    Dim strSQL as string
    strSQL = "INSERT INTO TableB SELECT fld1, fld2 FROM TableA WHERE fld1 = '" & txtFld1 & "'"
    CurrentDb.Execute strSQL
    strSQL = "DELETE FROM TableA WHERE fld1 = '" & txtFld1 & "'"
    CurrentDb.Execute strSQL
End Sub