When i run the below code i get a error message No record found in Move last...can anyone help me on this..
Private Sub Process_AfterUpdate()
Dim rst3 As DAO.Recordset
Dim rst2 As DAO.Recordset
Dim rst1 As DAO.Recordset
Set rst3 = Forms!frm_BIA!frm_endtoendprcs.Form.RecordsetClone
Set rst2 = Forms!frm_BIA!frm_prcscrticl_crtria_crtocatybase.Form.RecordsetClone
Set rst1 = Forms!frm_BIA!frm_SignOff.Form.RecordsetClone
rst1.MoveLast
Do While Not rst1.EOF And Not rst1.BOF
If rst2.AbsolutePosition = rst1.AbsolutePosition Then
rst2.Edit
rst2!Process = Me.Process
rst2.Update
rst3.Edit
rst3!Process = Me.Process
rst3.Update
Exit Do
Else
rst2.MoveNext
rst3.MoveNext
End If
Loop
rst1.Close
rst2.Close
rst3.Close
Set rst1 = Nothing
Set rst1 = Nothing
End Sub
Private Sub Process_AfterUpdate()
Dim rst3 As DAO.Recordset
Dim rst2 As DAO.Recordset
Dim rst1 As DAO.Recordset
Set rst3 = Forms!frm_BIA!frm_endtoendprcs.Form.RecordsetClone
Set rst2 = Forms!frm_BIA!frm_prcscrticl_crtria_crtocatybase.Form.RecordsetClone
Set rst1 = Forms!frm_BIA!frm_SignOff.Form.RecordsetClone
rst1.MoveLast
Do While Not rst1.EOF And Not rst1.BOF
If rst2.AbsolutePosition = rst1.AbsolutePosition Then
rst2.Edit
rst2!Process = Me.Process
rst2.Update
rst3.Edit
rst3!Process = Me.Process
rst3.Update
Exit Do
Else
rst2.MoveNext
rst3.MoveNext
End If
Loop
rst1.Close
rst2.Close
rst3.Close
Set rst1 = Nothing
Set rst1 = Nothing
End Sub