Code:
SELECT [FirstName]+" "+[LastName] AS Expr4, Reservations.*, [Names and addresses].*, [Total Price]-[Deposit Amount] AS [Balance Amount], Reservations.[Period From], [Reservations.Period From]-42 AS DateDue, [Balance Amount]-[Balance] AS Outstanding, Reservations.[Pay on Arrival], IIf([Pay on Arrival]=True,[Outstanding]) AS Expr1, Reservations.[Agent Costs], [Reservations.Period To]-[Reservations.Period From] AS [no of nights], [Reservations.Period From]-28 AS DateDueHL, Reservations.[Payment Type], Reservations.[Deposit Paid], Reservations.[Deposit Paid Date], Reservations.[Balance Paid], Reservations.[Balance Paid Date], [Total Price]-[Deposit Paid]-[Balance Paid] AS Expr5, Reservations.Route, Reservations.[Email Requested], Reservations.[Booking Form Received], Reservations.Pet, [Total Price]-[Agent Costs] AS Expr2, [Round((Reservations.No of Nights)/7+.5)] AS [No of weeks]FROM [Names and addresses] INNER JOIN Reservations ON [Names and addresses].[Mailing ListID] = Reservations.CustomerID
WHERE (((Reservations.[Period From])>=DateSerial([Forms]![Menu]![Year],1,1) And (Reservations.[Period From])<=DateSerial([Forms]![Menu]![Year],12,31)))
ORDER BY Reservations.[Period From];