No Current Record Error trap.

  • Thread starter Thread starter Jim Shortslef
  • Start date Start date
J

Jim Shortslef

How would I write an error trap to avoid a "No Current
Record" error for the rst4.MoveFirst line of code below?
When this error occurs I would like to jump to below the
End if code.

Set dbs4 = CurrentDb()
Set rst4 = dbs4.OpenRecordset("qry_LocCheck")
rst4.MoveFirst
If rst4.Fields(CTrt).Value > 0 Then ......

End If
 
After setting the recordset, try
If Not (rst4.BOF and rst4.EOF) Then
 
You must log in or register to reply here.

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

3034 You tried to commit or rollback a transaction 1
ADO File Open Error 2
null in records from vba insert 1
No current record error 3021 1
Assign the records shown in a subform to a recordset 2
Runtime Error 3021: 'No Current Record' 2
Code errors 2
Trapping error '3021' 7

Back
Top