DSum With Multiple Criteria and Date Value

O

Okestra007

Joined
Sep 27, 2011
Messages
1
Reaction score
0
Can someone please tell me why I keep getting type mismatch error here?

Code: 
    Dim DisabilityChecks As Currency
    Dim UnemployementChecks As Currency
    Dim WorkersCompChecks As Currency
    Dim PayChecks As Currency
    
    DisabilityChecks = DSum("[SS_Disability]", Income_Activity, "CLIENT_KEY=" & CLIENT_KEY And "[Income_Period] = #" & [Income_Period] & "#")
    UnemployementChecks = DSum([Unemployment], Income_Activity, "CLIENT_KEY=" & CLIENT_KEY And "[Income_Period] = #" & [Income_Period] & "#")
    WorkersCompChecks = DSum([Workers_Comp], Income_Activity, "CLIENT_KEY=" & CLIENT_KEY And "Income_Period = #" & Income_Period & "#")
    PayChecks = DSum([Gross_Paycheck], Income_Activity, "CLIENT_KEY=" & CLIENT_KEY And "Income_Period = #" & Income_Period & "#")
    
    Me.Text37.Value = DisabilityChecks + UnemployementChecks + WorkersCompChecks + PayChecks
    Resident_Rent = (Me.Text37.Value) * 0.3
 
Back
Top