A
Reaction score
0

Profile posts Latest activity Postings About

  • 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
  • Loading…
  • Loading…
  • Loading…
Top Bottom