INTELLIGENT WORK FORUMS
FOR COMPUTER PROFESSIONALS

Log In

Come Join Us!

Are you a
Computer / IT professional?
Join Tek-Tips Forums!
  • Talk With Other Members
  • Be Notified Of Responses
    To Your Posts
  • Keyword Search
  • One-Click Access To Your
    Favorite Forums
  • Automated Signatures
    On Your Posts
  • Best Of All, It's Free!

*Tek-Tips's functionality depends on members receiving e-mail. By joining you are opting in to receive e-mail.

Posting Guidelines

Promoting, selling, recruiting, coursework and thesis posting is forbidden.

Jobs

Run-time error '3021' No current record

Run-time error '3021' No current record

(OP)

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
               rsx.Edit
               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 

Red Flag This Post

Please let us know here why this post is inappropriate. Reasons such as off-topic, duplicates, flames, illegal, vulgar, or students posting their homework.

Red Flag Submitted

Thank you for helping keep Tek-Tips Forums free from inappropriate posts.
The Tek-Tips staff will check this out and take appropriate action.

Reply To This Thread

Posting in the Tek-Tips forums is a member-only feature.

Click Here to join Tek-Tips and talk with other members!

Resources

Close Box

Join Tek-Tips® Today!

Join your peers on the Internet's largest technical computer professional community.
It's easy to join and it's free.

Here's Why Members Love Tek-Tips Forums:

Register now while it's still free!

Already a member? Close this window and log in.

Join Us             Close