如何在删除第一个t时将数据从一个表追加到另一个表[英] How to append data from one table to a another table upon the deletion of the first t

问题描述

我有两个表,即 tblSalesMAIN 和 tblSalesMAIN1.后者是形式的副本.我有一个绑定到 tblSalesMAIN 的数据输入表单,我还从 tblSalesMAINtblSales 创建了一个连续表单,并将其放在我创建的数据输入表单上.我的目标是让我从有界表单输入 tblSalesMAIN 的所有数据都显示在连续表单中,但是,从 tblSalesMAIN 和连续表单中清除所有数据,以便为新条目腾出空间.
现在,我想通过按钮单击事件将我从 tblSales 清除的所有信息附加到重复的表 tblSalesMAIN1.

我已经尝试了所有我知道该怎么做,但无济于事.下面是我正在处理的代码.我真的是你的帮助.提前谢谢你.

将 dbs 调暗为 DAO.Database
设置 dbs = Current.OpenRecordset("SELECT * FROM [tblSalesMAIN]")
dbs.Execute "插入到 tblSalesMAIN1 "_
&"选择*"
&"来自 [tblSalesMAIN];"
dbs.关闭



If MsgBox("您即将删除所有记录.您确定吗?", _
vbQuestion + vbYesNo) = vbNO 然后
退出子
结束如果
strSQL = "DELETE*FROM tblSalesMAIN subform2"
DoCmd.SetWarnings 错误
DoCmd.RunSQL
DoCmd.SetWarnings True
Me.Requery
我.刷新

结束子


私有子 cmdd_Click()
DoCmd.GoToRecord , "", acNewRec
我.刷新

End Sub

推荐答案

欢迎来到Bytes

你是说你有一个销售条目表格,还有一个显示过去销售条目简历的连续表格?

当您在输入新销售后按下主表单上的命令按钮时,您希望该条目显示在连续表单上,并有一个空白的销售输入表单,为下一个条目做好准备?

菲尔

非常感谢菲尔.我已经评论了我对代码所做的一些调整,但我仍然没有做对.我希望我添加的代码和我项目部分的压缩副本能给你们一些澄清,以便能够帮助我.


私有子 cmdClear_Click()
''Dim dbs As DAO.Database
''set dbs = Current.OpenRecordset("SELECT * FROM [tblSalesMAIN]")
''dbs.Execute '插入到 tblSalesMAIN1 "_
''&"选择*"
''&"来自 [tblSalesMAIN];"
''dbs.关闭


''插入 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("您即将删除所有记录.您确定吗?", _
vbQuestion + vbYesNo) = vbNO 然后
退出子
结束如果
strSQL = "DELETE*FROM tblSalesMAIN subform2"
DoCmd.SetWarnings 错误
DoCmd.RunSQL
DoCmd.SetWarnings True
Me.Requery
我.刷新

结束子


私有子 cmdd_Click()
DoCmd.GoToRecord , "", acNewRec
我.刷新

结束子
附加文件
文件类型:zip TAG Manager Assistant.zip (40.8KB,18 次浏览)

除非你回答问题,否则我无能为力.

菲尔

本文地址:https://www.itbaoku.cn/post/1050688.html