No current record error for code that worked in previous version of Access

[xyle]

After upgrading from previous version of Access to Access 2013 I get "Run-time error '3021': No current record.". When I debug it high lights the rec.MoveFirst.

Dim rec As Recordset
Dim db As Database
Dim strFullBillingBase As String

strFullBillingBase = "SELECT FullBillingBaseFile.*, * FROM FullBillingBaseFile;"
Set db = CurrentDb()
Set rec = db.OpenRecordset(strFullBillingBase)
        
rec.MoveFirst
Do Until rec.EOF
    FullOwner = rec.Fields("Owner Name")
    '
    'rest of code
    '
    rec.MoveNext
Loop

 

[Andrzejek]

Try:

With rec[blue]
    If .EOF <> .BOF Then[/blue]
        .MoveFirst
        Do Until .EOF
            FullOwner = .Fields("Owner Name")
            '
            'rest of code
            '
            .MoveNext
        Loop [blue]
    End If[/blue]
End With

You may just have an empty recordset...

Have fun.

---- Andy

A bus station is where a bus stops. A train station is where a train stops. On my desk, I have a work station.

 

[xyle]

Such a rookie mistake thanks Andy.

 

[dhookom]

I would also be more explicit with your declarations

Dim rec As DAO.Recordset
Dim db As DAO.Database

Duane
Hook'D on Access
MS Access MVP