Code:
Option Compare Database
Dim strsql As String
strsql = "SELECT [Daily Input Report].[Input Date], [Daily Input Report].[Total Rooms Sold], [Daily Input Report].[Total No Shows], [Daily Input Report].[Total Comp Rooms], [Daily Input Report].[Total OOO Rooms], [Daily Input Report].[Total Vacant Rooms], [Daily Input Report].[AAA/AARP Rooms], [Daily Input Report].[AAA/AARP Revenue], [Daily Input Report].[Adv Purchase Rooms], [Daily Input Report].[Adv Purchase Revenue], [Daily Input Report].[All - Misc Rooms], [Daily Input Report].[All - Misc Revenue], [Daily Input Report].[Comp Rooms], [Daily Input Report].[Coporate Rooms], [Daily Input Report].[Corporate Revenue], [Daily Input Report].[Employee Rooms], [Daily Input Report].[Employee Revenue], [Daily Input Report].[Ext Stay Rooms], [Daily Input Report].[Ext Stay Revenue], [Daily Input Report].[FIT Rooms], [Daily Input Report].[Fit Revenue], [Daily Input Report].[Government Rooms], [Daily Input Report].[Government Revenue], [Daily Input Report].[GRP - City Rooms], " & _
"[Daily Input Report].[GRP - City Revenue]," & _
"[Daily Input Report].[GRP - Corp Rooms], [Daily Input Report].[GRP - Corp Revenue], [Daily Input Report].[GRP - Government Rooms], [Daily Input Report].[GRP - Government Revenue], [Daily Input Report].[GRP - Leisure Rooms], [Daily Input Report].[GRP - Leisure Revenue], [Daily Input Report].[GRP - Other Rooms], [Daily Input Report].[GRP - Other Revenue], [Daily Input Report].[Internet - ECOM Rooms], [Daily Input Report].[Internet - ECOM Revenue], [Daily Input Report].[Leisure Transient Rooms], [Daily Input Report].[Leisure Transient Revenue], [Daily Input Report].[Local Neg Rate Rooms], [Daily Input Report].[Local Neg Rate Revenue], [Daily Input Report].[Member Rewards Rooms], [Daily Input Report].[Member Rewards Revenue], [Daily Input Report].[Night Audit Rooms], [Daily Input Report].[Night Audit Revenue], [Daily Input Report].[Other Rooms], [Daily Input Report].[Other Revenue], [Daily Input Report].[PKG - Leisure Rooms], [Daily Input Report].[PKG - Leisure Revenue], " & _
"[Daily Input Report].[Rack Rooms], [Daily Input Report].[Rack Revenue], [Daily Input Report].[No Code Rooms], [Daily Input Report].[No Code Revenue], [Daily Input Report].[Total Room Revenue], [Daily Input Report].[No Show Revenue], [Daily Input Report].[Market Revenue], [Daily Input Report].[CXL Fee Revenue], [Daily Input Report].[Early Departure/Late Check Out Revenue], [Daily Input Report].[Pet / Smoking Fee/Damages Revenue], [Daily Input Report].[Misc Revenue], [Daily Input Report].[State Tax], [Daily Input Report].[State Tax Adj], [Daily Input Report].[City Tax], [Daily Input Report].[City Tax Adj], [Daily Input Report].[County Tax], [Daily Input Report].[County Tax adj], [Daily Input Report].[Sales Tax], [Daily Input Report].[Sales Tax Adj], [Daily Input Report].Cash, [Daily Input Report].[Direct Bill / City Ledger], [Daily Input Report].[IHG Rewards Club Reimbursment], [Daily Input Report].[American Express], [Daily Input Report].Visa, " & _
"[Daily Input Report].Mastercard, [Daily Input Report].Discover, [Daily Input Report].Checks, [Daily Input Report].[Guest Ledger Prev Day], [Daily Input Report].[Guest Ledger Charges], [Daily Input Report].[Guest Ledger Payments], [Daily Input Report].[Deposits Transfered at Check in], [Daily Input Report].[Deposit Ledger Prev Dat], [Daily Input Report].[Deposit Ledger Charges], [Daily Input Report].[Deposit Ledger Payments], [Daily Input Report].[AR Ledger Prev Day], [Daily Input Report].[AR Ledger Charges], [Daily Input Report].[AR Ledger Payments] INTO [EOM December 2020] IN 'Y:\End of Month.accdb'" &
"FROM [Daily Input Report] WHERE ((([Daily Input Report].[Input Date]) Between [Forms]![End of Month]![FRDate] And [forms]![End of Month]![TODate]));"
If Me.Month = "12" And Me.Year = "2020" Then
DoCmd.SetWarnings False
DoCmd.OpenQuery "EOMRptDec2020"
DoCmd.RunSQL strsql
DoCmd.SetWarnings True
Else
MsgBox "Not Yet"
End If