批量保存

飛謌　发表于：2018-05-12 18:08:56 　

求连续窗体全部数据批量保存至“表1”代码

窗体数据根据查询条数不固定。

现用保存代码

Private Sub 保存_Click()

Set rst = CurrentDb.OpenRecordset("表1")
rst.AddNew
rst!登记日期 = Me.[表1_子窗体]![登记日期]
rst!业主代码 = Me.[表1_子窗体]![业主代码]
rst!收费项目 = Me.[表1_子窗体]![收费项目]
rst!收费单价 = Me.[表1_子窗体]![收费单价]
rst!收费款额 = Me.[表1_子窗体]![收费款额]
rst.Update
rst.Close
Set rst = Nothing
End Sub

小白求教如有可能请说明谢谢！

Top

SiliconXu 发表于：2018-05-12 22:33:55

你的连续窗体的数据源是基于某个查询还是某个表？

Top

飛謌发表于：2018-05-13 07:55:28

感谢您回帖！！！！

我的数据源是基于表2的查询，包含非绑定文本框。请看一下附件谢谢！

点击下载此附件

Top

leoyoung 发表于：2018-05-13 16:52:12

窗体记录，自己摸索一下

.....

Set rst2 = Me.表1_子窗体.Form.RecordsetClone

....
If rst2.RecordCount > 0 Then

For i = 1 To rst2.RecordCount
rst.AddNew
rst![登记日期] = rst2.Fields(0)
rst!业主代码 = Me![YZDM]
rst![收费项目] = rst2.Fields(1)
rst!收费单价 = rst2.Fields(2)
.....
rst.Update
rst2.MoveNext

.....

Top

SiliconXu 发表于：2018-05-14 10:01:06

使用下面的SQL可以一次性导入所有表2的相关数据。

CurrentDb.Execute "INSERT INTO 表1 (登记日期, 收费项目, 收费单价, 收费款额, 保存勾选) SELECT 登记日期, 收费项目, 收费单价, 缴费款额, 保存勾选 FROM 表2 WHERE 收费周期 Like " & IIf(IsNull([Forms]![窗体1]![SFZQ]),"'*'","'" & [Forms]![窗体1]![SFZQ] & "'")

Top

飛謌发表于：2018-05-14 13:28:37

感谢回帖！

Top

总记录：5篇页次：1/1 9 1 :

Access交流中心

批量保存