ACCESS: 3021 Error - No Current Record Found


Does anyone know how I can stop the above error happening?



Question Info

Last updated January 23, 2019 Views 34,325 Applies to:

between these lines in the function:


    For Each fld In rst.Fields




If rst.RecordCount = 0 Then

    Msgbox "There are no records to export"

    Exit Function

End If

Bob Larson, Former Access MVP (2008-2010) (free Access tools, tutorials, and samples)
Microsoft Access MVP 2008, 2009, 2011
If a post was helpful click the FOUND THIS HELPFUL link

24 people were helped by this reply


Did this solve your problem?

Sorry this didn't help.

Great! Thanks for marking this as the answer.

How satisfied are you with this reply?

Thanks for your feedback, it helps us improve the site.

How satisfied are you with this response?

Thanks for your feedback.