ms-access - 如何在从第一个表中删除数据时将数据从一个表附加到另一个表

Question

我有一个名为 frmSales 的销售输入表单。我在这个 frmSales 上还有一个名为 tblSalesMAIN subform2 的连续表单，它与 frmSales 具有相同的数据源。我试图在 frmSales 和 tblSalesMAIN subform2（即 tblSalesMAIN）的数据源中输入条目，将所有当前数据附加到一个名为 tblSalesMAIN1 的单独表中。之后 tblSalesMAIN 的所有内容都将被删除，以便为新条目腾出空间。以下是我尝试去做但没有成功的方法。注释代码是我无法弄清楚的。感谢你的协助

Private Sub cmdClear_Click()
 'Dim dbs As DAO.Database
 'set dbs = Current.OpenRecordset("SELECT * FROM [tblSalesMAIN]")
 'dbs.Execute " INSERT INTO tblSalesMAIN1 " _
 '& "SELECT * "
 '& "FROM [tblSalesMAIN];"
 'dbs.Close


 'INSERT INTO tblSalesMAIN1 [(salesID[, salesTime[, salesDate[, unitPrice[, quantity[, cashTendered[, change[, price]]]]]]])] SELECT ([tblSalesMAIN.SalesID[, tblSalesMAIN.salesTime[, tblSalesMAIN.salesDate[, tblSalesMAIN.unitPrice[, tblSalesMAIN.quantity[, tblSalesMAIN.cashTendered[, tblSalesMAIN.change[, tblSalesMAIN.price]]]]]]])

 'DoCmd.RunQuery 


 If MsgBox("You are about to delete all records. Are you sure?", _
 vbQuestion + vbYesNo) = vbNO Then
 Exit Sub
 End If
 strSQL = "DELETE*FROM tblSalesMAIN subform2"
 DoCmd.SetWarnings False
 DoCmd.RunSQL
 DoCmd.SetWarnings True
 Me.Requery
 Me.Refresh

 End Sub


 Private Sub cmdd_Click()
 DoCmd.GoToRecord , "", acNewRec
 Me.Refresh

 End Sub
enter code here

标签： ms-access