Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations Mike Lewis on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Run-time error '3021' No current record

Status
Not open for further replies.

irethedo

Technical User
Feb 8, 2005
429
US

I am getting a Run-time error '3021' No current record when attempting to
edit a table record.

The table is initially is an empty table (MatchUP_tbl) and I have tried adding a record
with AddNew and Update and have also tried MoveFirst, Movelast (and no move at all with
the assumption that the AddNew would leave the table indexed on that record)
but the error occurs when it reaches the rsx.Edit line in the code below.

What am I missing?

Thanks

Code:
  strSql = "Select * from SameOrd_tbl order by LineNO"
   Set rs = CurrentDb.OpenRecordset(strSql, dbOpenDynaset)
   strSql = "Select * from MatchUP_tbl order by License"
   Set rsx = CurrentDb.OpenRecordset(strSql, dbOpenDynaset)
   
   rsx.AddNew       ' add a record to MatchUP_tbl
   rsx!PC = " "
   rsx.Update
   
   If rs.RecordCount > 0 Then      ' if this is an empty table then don't bother...
      rs.MoveFirst
'      rsx.MoveFirst
      Do While Not rs.EOF
         If rs!Part_No & "" <> "" Then
            If rs!License_PartNO <> "N/A" Then
              [highlight #FCE94F] rsx.Edit[/highlight]
               rsx!License = rs!License_PartNO
               rsx!PC = rs!Part_No
               rsx.Update
               rsx.MoveNext
            End If
        End If
        rs.MoveNext
      Loop
   End If
   rs.Close
   rsx.Close
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top