I have a form with a subform that I'm filtering using a series of buttons for D-30, D-60, etc.  The form filters fine with the current VBA code I'm using.  The issue is I'm trying to add total fields at the type that I want to be dynamic.  I have a total of five fields that need to update depending on what is displayed in the subform.  I can get it to update based off of one or the other criteria but not both.  the two status that work are:

cUAS_Total.Value = DSum("[Total Value]", "[qry_ChargeCodes_Calculated2]", "[Directorate_ID]= 2")

and

cUAS_Total.Value = DSum("[Total Value]", "[qry_ChargeCodes_Calculated2]", "qry_ChargeCodes_Calculated.[PoP End] Between Date() and Date()+30")

I've tried every combination I can think of for expanding the DSUM statement for both criteria but it isn't working.

I've also tried wrapping  one of the DSUM statements in an IIf statement.

Please advise!