ms-access：用vba删除当前行

Question

我有一个与查询绑定的掩码。

此掩码显示访问表中的记录（一次一条记录），例如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