Test Code Tags on Access Code

Select Query

Code:

---

SELECT Orders.KidsID, [Fname] & " " & [Lname] AS Name,  _
CampKids.CampID, _
Cabins.Cabin, _
CampKids.Balance,_
 IIf(([ItemID]=5 Or  [ItemID]=58) And Not [Received],1) AS TShirt, _
IIf(([ItemID]=12 Or  [ItemID]=53) And Not [Received],1) AS DVD, _
 IIf(([ItemID]=17 Or  [ItemID]=54) And Not [Received],1) AS Journal, _
Orders.Received FROM Cabins RIGHT _
JOIN (Orders INNER JOIN CampKids _
ON Orders.KidsID = CampKids.KidsID) _
ON Cabins.CbnID = CampKids.CabinID
WHERE (((CampKids.CampID)=GetCmp()) AND ((Orders.Received)=False));

---

Aggregate Query

Code:

---

SELECT [HasBalance-Select].KidsID, _
First([HasBalance-Select].Name) AS  FirstOfName,_
First([HasBalance-Select].Cabin) AS FirstOfCabin,  _
First([HasBalance-Select].Balance) AS FirstOfBalance, _
Sum([HasBalance-Select].TShirt) AS SumOfTShirt,  _
Sum([HasBalance-Select].DVD) AS SumOfDVD,  _
Sum([HasBalance-Select].Journal) AS SumOfJournal
FROM [HasBalance-Select]
GROUP BY [HasBalance-Select].KidsID;

---