Hi,

I've searched this site but I can't see a direct answer to what I am trying
to do.

I've set up a Pivot Table that accesses data from MS Access via MS Query.
the criteria is set to get records with a Dept = 800.

I can edit the query manually but how do I change this to Dept = 810 via VBA ?

The query in MS Query is as follows:

SELECT tbl_Comm_Data.RCV_RETL, tbl_Comm_Data.RCV_MARGIN
FROM `G:\00_CEN\Oth\Inventory Planning Reports\POL\POL`.tbl_Comm_Data
tbl_Comm_Data
WHERE (tbl_Comm_Data.DEPT_NO='800')


--
Andrew
211008