ok the eval() may actually work so what i did was put the full code to open the report with the correct WhereCondition in the table under a field "SpecificIdField"
The value of the field is:
DoCmd.OpenReport "AirpackHistory", acViewPreview, , "Airpack = " & Dlookup("[ID]", "[Packs]", "[Dept ID]...