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