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

ms-access：用vba删除当前行

1 个答案: