I know I have done this before, but after 20 years, I can't remember what project it was.
2 queries:
OPEN ISSUES FOR BAY CLIENTS
OPEN ISSUES FOR VALLEY CLIENTS
Both have the same "where" clause:
WHERE (((ISSUES.DATE_ISSUE_OPENED)<[ENTER DATE MM/DD/YYYY]))
Command button on form REPORT MENU code:
Code: Select all
Private Sub cmdLeaderReview_Click()
Dim strFileName1 As String
Dim strFileName2 As String
strFileName1 = "S:\HMO ISSUES - LETTERS SENT & RESPONSES\SUPV ISSUES\OPEN ISSUES FOR BAY CLIENTS.xlsx"
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, "OPEN ISSUES FOR BAY CLIENTS", strFileName1, True
strFileName2 = "S:\HMO ISSUES - LETTERS SENT & RESPONSES\SUPV ISSUES\OPEN ISSUES FOR VALLEY CLIENTS.xlsx"
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, "OPEN ISSUES FOR VALLEY CLIENTS", strFileName2, True
MsgBox "SUPERVISOR REVIEW ISSUES HAVE BEEN EXPORTED", vbInformation
DoCmd.Close acForm, "REPORT MENU"
End Sub
The parameter box does pop up twice (once for each query). I believe I need to fix the where clause in the 2 queries but cannot find where I have done this before.
Thank you in advance.
Michael