Run Macro that uses one query instead of multiple ones

[kmoore@bmss.com]

I have at least 45 queries that I run, the only difference is that the employee number in the criteria.



I run a macro that runs the query and emails it to the persons email address,
is it possible to have a macro that runs one query but runs it for each employee?
Example of Employee 41 in query below.



This is the macro and how I run each query.

[ranman256]

I have a list box of all the persons to email: name, email
this code scans the list and sends

'------------
Public Sub ScanAndEmail()
'------------
Dim vTo, vSubj, vBody, vRpt
Dim vFilePath
dim i as integer


vRpt = "rReport1"
vBody = "body of email"
vSubj = vRpt
vFilePath = ""  'path of the snapshot or XL or PdF


     'scan the list box
For i = 0 To lstEAddrs.ListCount - 1
   lstEAddrs.itemdata = i
   vTo = lstEAddrs.Column(2)
     
   DoCmd.SendObject acSendReport, vRpt, acFormatPDF, vTO, , , vSubj, vBody
Next
End Sub

[June7]

This requires VBA code. One approach is to loop through a recordset of the email addresses. Common topic. https://www.accessforums.net/program...ook-21903.html

[kmoore@bmss.com]

Thank you for the response, let me better explain my issue, I have multiple queries that I want to change to one query, the only think different is the criteria in the query, the EMPNUM is different for all employees, I can write a macro sending email to each person just using one query if I can just change the criteria in each EmailDatabaseObject command

[NTC]

they understood your issue. yes it can be done with 1 query but no it cannot be done using a macro - only vba has looping which is what you need.