Simpler way to do this....

The first query filter for me all pending status and filter department that I do not want to include:
 
SELECT Sum(ProjectAct_tbl.AmountReimb) AS SumOfAmountReimb, Department_tbl.Department, Organization_tbl.OrganizationID, ProjectAct_tbl.StartDate, ProjectAct_tbl.Participant, ProjectAct_tbl.PaymentStatus
FROM (Organization_tbl INNER JOIN ((Projects_tbl INNER JOIN Invoice_tbl ON Projects_tbl.ProjectID = Invoice_tbl.ProjectID) INNER JOIN (ProjectAct_tbl INNER JOIN Department_tbl ON ProjectAct_tbl.DepartmentID = Department_tbl.DepartmentID) ON Invoice_tbl.InvoiceID = ProjectAct_tbl.InvoiceID) ON Organization_tbl.OrganizationID = Projects_tbl.OrganizationID) INNER JOIN ProjectSub_tbl ON (ProjectSub_tbl.ProjectSub = Invoice_tbl.ProjectSub) AND (Projects_tbl.ProjectID = ProjectSub_tbl.ProjectID)
GROUP BY Department_tbl.Department, Organization_tbl.OrganizationID, ProjectAct_tbl.StartDate, ProjectAct_tbl.Participant, ProjectAct_tbl.PaymentStatus, ProjectAct_tbl.DepartmentID
HAVING (((ProjectAct_tbl.Participant)="1") AND ((ProjectAct_tbl.PaymentStatus) Not Like "*pending*") AND ((ProjectAct_tbl.DepartmentID)<>32));
 
The second one group the total by organizationID
 
2)
SELECT [1Departmentsbyall].Department, Sum([1Departmentsbyall].SumOfAmountReimb) AS SumOfSumOfAmountReimb, [1Departmentsbyall].OrganizationID
FROM 1Departmentsbyall
GROUP BY [1Departmentsbyall].Department, [1Departmentsbyall].OrganizationID;
 
3) filter the top six but is not doing that correctly
 
SELECT qtotReimb.Department, qtotReimb.OrganizationID, qtotReimb.SumOfSumOfAmountReimb
FROM qtotReimb
WHERE (((qtotReimb.Department) In (SELECT TOP 6 Department
 FROM qtotReimb r
 WHERE qtotReimb.OrganizationID = r.OrganizationID ORDER BY SumofSumofAmountReimb DESC)));
 
This is the one in the actual graph.
 
4) SELECT DashHigestpaybydept_qry.Department, Sum(DashHigestpaybydept_qry.SumOfSumOfAmountReimb) AS SumOfSumOfSumOfAmountReimb, DashHigestpaybydept_qry.OrganizationID
FROM DashHigestpaybydept_qry
GROUP BY DashHigestpaybydept_qry.Department, DashHigestpaybydept_qry.OrganizationID
HAVING (((Sum(DashHigestpaybydept_qry.SumOfSumOfAmountReimb))>2000));

                                  

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28: