Error number 3021

[exaccess]

Hello Experts,
I was almost finished coding a rather complicated module when I started getting this Error Number 3021. I looked around. It has something to do with the recordsets I am using but what. I cannot find. Could somebody help please? Many thanks.

 

[JHB]

It seems to be no current record.
Show you code + where (code line) + when you get the error.

 

[exaccess]

It seems to be no current record.
Show you code + where (code line) + when you get the error.

Public ch As Recordset
Dim fld As String, Tline As String, Logger As String, Fbuffer As String, tot As Double
    Dim rr As Recordset, RT As Recordset
    Dim db As Database
    Set db = CurrentDb
'-----------------------------------------------------------------------------------
'   Clear the target table
'-----------------------------------------------------------------------------------
    DoCmd.SetWarnings False
    DoCmd.RunSQL "DELETE * FROM TargetTbl"
    DoCmd.SetWarnings True
'-------------------------------------------------------------------------------------------
'   Define and set recordsets
'--------------------------------------------------------------------------------------------
    Set rr = db.OpenRecordset("OriginalTbl")
    Set RT = db.OpenRecordset("TargetTbl")
    Set ch = db.OpenRecordset("SearchingTbl")
'----------------------------------------------------------------------------------------------
'   get the highest total value to use in calculations
'----------------------------------------------------------------------------------------------
    ch.MoveFirst
    Do While Not ch.EOF
        If ch.Fields("Action").Value = "9" Then
            tot = CDbl(ch.Fields("SearchTerm").Value)
            Debug.Print "tot="; tot
            Exit Do
        Else
            ch.MoveNext
        End If
    Loop
'----------------------------------------------------------------------------------------------
'   Set record counters
'----------------------------------------------------------------------------------------------
    IR = 0
    IT = 0
    IK = 0
    rr.MoveFirst
    RT.MoveFirst

It breaks exactly at this point.

 

[gemma-the-husky]

if rt has no records then rt.movefirst will error with exactly the error you get - no current record

should it have records? if you are inserting records into rt, then you do not need to reposition the file pointer for rt.

simply

 rt.addnew
 rt!fieldname = whatever   'easier syntax than rt.field("fieldname")
 rt.update

 

[exaccess]

if rt has no records then rt.movefirst will error with exactly the error you get - no current record

should it have records? if you are inserting records into rt, then you do not need to reposition the file pointer for rt.

simply

 rt.addnew
 rt!fieldname = whatever   'easier syntax than rt.field("fieldname")
 rt.update

I deleted RT.MoveFirst and it works. Thank you.

 

[exaccess]

if rt has no records then rt.movefirst will error with exactly the error you get - no current record

should it have records? if you are inserting records into rt, then you do not need to reposition the file pointer for rt.

simply

 rt.addnew
 rt!fieldname = whatever   'easier syntax than rt.field("fieldname")
 rt.update

I deleted RT.MoveFirst and it works. Thank you.