当我尝试从添加记录表中删除第一条记录时,我收到此错误:
RUN-TIME ERROR'3021'没有当前记录
仅当我尝试删除第一条记录时才会发生这种情况。当我尝试删除第二个或第三个时,我的代码工作正常:
Me.Labour_subform.Form.Recordset.Delete
Me.Labour_subform.Form.Recordset.MoveNext
这是我按下按钮的代码。任何人都知道如何纠正这个?
答案 0 :(得分:1)
当我处理记录集时,我总是检查EOF然后移动到第一条记录。
If not Me.Labour_subform.Form.Recordset.EOF then
Me.Labour_subform.Form.Recordset.MoveFirst
'Then delete or do whatever
end if