Thanks that has stopped the error when there is only one entry/record But it will not complete the last step of saving it as a pdf with the below format

StrName = .DataFields("Property") & " - " & .DataFields("Formated_Date") & " " & .DataFields("Premises_")

I know this is not helpful for either of us but the data I am working with is sensitive information and I am unwilling to provide this as an attachment.