Okay made these changes and get 27 individual files created, as expected. Relevant code in form, notable changes in red:
Code:
Set RS = MyDB.OpenRecordset("SELECT DISTINCT Location FROM [Equipment List]")
Do Until RS.EOF
Me.txtProgress = RS!Location
DoCmd.OutputTo acOutputReport, "Equipment List", acFormatPDF, "C:\datafiles\Test" & RS!Location & ".pdf"
RS.MoveNext
Loop
End If
Code added to report:
Code:
Private Sub Report_Open(Cancel As Integer)
Me.Filter = "Location = '" & Forms![Exp to excel].txtProgress & "'"
Me.FilterOn = True
End Sub
I have 2007 here with the built-in PDF capability, you'd have to substitute the Lebans code for the DoCmd.OutputTo line. I would clean up the code and put in proper exit/error handlers, but that should work.