ACCESS窗体数据保存到表第二次执行时报错3021

飛謌　发表于：2018-05-14 16:49:46 　

复制

连续窗体查询数据保存到表

一、想要功能

1.根据 “收费周期” 选择的“月份”显示查询品种

2.输入“业主代码”后将连续窗体数据表到“表1”。

收费周期“月份”；业主代码不固定，动态的，输入后保存。

3.可以通过“复选框”勾选的保存或为空不保存。

二、现用代码存在的问题

点击保存控件后，第一次可以正常执行，第二次开始报错

想要继续用需要关闭窗体，重新打开，保存执行一次，再关闭再打开，求解！

求帮忙！

点击下载此附件

******************************

现用代码

******************************

Private Sub 保存_Click()
Set rst2 = Me.表1_子窗体.Form.RecordsetClone
If rst2.RecordCount > 0 Then
For i = 1 To rst2.RecordCount
Set rst = CurrentDb.OpenRecordset("表1")
rst.AddNew
rst!登记日期 = Date
rst!业主代码 = Me.YZDM
rst!收费项目 = rst2.Fields(1)
rst!收费单价 = rst2.Fields(2)
rst!收费款额 = rst2.Fields(3)
rst!保存勾选 = rst2.Fields(4)
rst.Update
rst2.MoveNext
Next
Me.表1_子窗体.Requery
End If
End Sub

Top

呵，年轻人发表于：2018-05-15 08:33:35

Set rst2.....下一行添加

rst2.MoveFirst

Top

leoyoung 发表于：2018-05-15 09:10:36

通过“复选框”勾选的保存。

Private Sub 保存_Click()

...
rst2.MoveFirst
...
Set rst = CurrentDb.OpenRecordset("表1")
    If rst2.Fields(4) = True Then
        rst.AddNew
       ...
        rst.Update
    End If
....

Top

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

Access交流中心

ACCESS窗体数据保存到表第二次执行时报错3021