Here is the SQL code
SELECT Current_Shipments.ShipperID, Current_Shipments.[Departure Date], Current_Shipments.[Arrival Date], ConcatRelated("MaterialsID","[Concat Materials]","ShipperID =" & [Current_Shipments]![ShipperID]) AS MaterialsORDER, ConcatRelated("MAT","[Concat Materials]","ShipperID =" & [Current_Shipments]![ShipperID]) AS MATID, ConcatRelated("PKG","[Concat Materials]","ShipperID =" & [Current_Shipments]![ShipperID]) AS PKGID, ConcatRelated("EQU","[Concat Materials]","ShipperID =" & [Current_Shipments]![ShipperID]) AS EQUID, ConcatRelated("UN","[Concat Materials]","ShipperID =" & [Current_Shipments]![ShipperID]) AS UNID,
Current_Shipments.Product, [TNProject] & "-" & [Shipment #] & " (" & [Identifier] & ") " & [R] AS ProjectNM, Current_Shipments.TNProject, Current_Shipments.[Shipment #], Current_Shipments.Identifier, Current_Shipments.Return, IIf([Return]=0,"","R") AS R,
Current_Shipments.[Other TN Project#], Current_Shipments.Carrier, Current_Shipments.[No of Trucks/Vessels], Current_Shipments.Category, Current_Shipments.Shipper, Current_Shipments.Consignee, Current_Shipments.[Origin City], Current_Shipments.[Destination City], Current_Shipments.[Hub/Port 1], Current_Shipments.[Hub/Port 2], Current_Shipments.Transition_Port, Current_Shipments.[Hub/Port 1 Arrival Date], Current_Shipments.[Hub/Port 1 Departure Date], Current_Shipments.[Hub/Port 2 Arrive Date], Current_Shipments.[Hub/Port 2 Depart], Current_Shipments.[Hub/Port 1 Vessel Name/#],
Current_Shipments.[ER Comments], [MATID] & " \" & [PKGID] & " \" & [EQUID] AS MATPKG
FROM [Concat Materials] RIGHT JOIN Current_Shipments ON [Concat Materials].ShipperID = Current_Shipments.ShipperID
WHERE (((Current_Shipments.[Departure Date]) Between [Start Date] And [End Date])) OR (((Current_Shipments.[Arrival Date]) Between [Start Date] And [End Date])) OR (((Current_Shipments.[Departure Date])<[Start Date]) AND ((Current_Shipments.[Arrival Date])>[End Date]))
GROUP BY Current_Shipments.ShipperID, Current_Shipments.[Departure Date], Current_Shipments.[Arrival Date],
ConcatRelated("MaterialsID","[Concat Materials]","ShipperID =" & [Current_Shipments]![ShipperID]),
ConcatRelated("MAT","[Concat Materials]","ShipperID =" & [Current_Shipments]![ShipperID]),
ConcatRelated("PKG","[Concat Materials]","ShipperID =" & [Current_Shipments]![ShipperID]),
ConcatRelated("EQU","[Concat Materials]","ShipperID =" & [Current_Shipments]![ShipperID]),
ConcatRelated("UN","[Concat Materials]","ShipperID =" & [Current_Shipments]![ShipperID]),
Current_Shipments.Product, [TNProject] & "-" & [Shipment #] & " (" & [Identifier] & ") " & [R],
Current_Shipments.TNProject, Current_Shipments.[Shipment #], Current_Shipments.Identifier, Current_Shipments.Return, IIf([Return]=0,"","R"),
Current_Shipments.[Other TN Project#], Current_Shipments.Carrier, Current_Shipments.[No of Trucks/Vessels], Current_Shipments.Category, Current_Shipments.Shipper, Current_Shipments.Consignee, Current_Shipments.[Origin City], Current_Shipments.[Destination City], Current_Shipments.[Hub/Port 1], Current_Shipments.[Hub/Port 2], Current_Shipments.Transition_Port, Current_Shipments.[Hub/Port 1 Arrival Date], Current_Shipments.[Hub/Port 1 Departure Date], Current_Shipments.[Hub/Port 2 Arrive Date], Current_Shipments.[Hub/Port 2 Depart], Current_Shipments.[Hub/Port 1 Vessel Name/#],
Current_Shipments.[ER Comments], [MATID] & " \" & [PKGID] & " \" & [EQUID];