quixote

[No Current Record error 3021]

Looking for suggestions on how to handle Run-Time error
3021 "No Current Record". This is generated when the
recordset being callled is empty. It happens on
rst.movefirst within vba code. Any suggestions? Looking
for proper syntax to basically say: If the recordset is
empty then exit sub.

Thanks

 

[Frank Stone]

If rsYourRecordSet.EOF Then
rs.close
exit sub
else

 

[Frank Stone]

If rsName.EOF Then
rsName.close
exit sub
else
rsName.movefirst
more code
end if
sorry, i wasn't finished with the first. hit the wrong keys

 

[John Vinson]

Looking for suggestions on how to handle Run-Time error
3021 "No Current Record". This is generated when the
recordset being callled is empty. It happens on
rst.movefirst within vba code. Any suggestions? Looking
for proper syntax to basically say: If the recordset is
empty then exit sub.

Thanks

Why not just trap the error and exit?

On Error GoTo Proc_Error
<your code here>
Proc_Exit:
Exit Sub
Proc_Error:
Select Case Err.Number
Case 3021 ' No current record
Resume Proc_Exit
<other handled cases>
Case Else
MsgBox "Error " & Err.Num & " in <procedurename>" _
& vbCrLf & Err.Description
Resume Proc_Exit
End Select
End Sub


John W. Vinson[MVP]
(no longer chatting for now)