DSum With Multiple Criteria and Date Value

Okestra007 · Okestra007's Computer Specifications

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

Thread Tools
Show Printable Version Email this Page
Rate This Thread
Rate This Thread:

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
DSUM Date Criteria	Rebeca	Microsoft Access Queries	3	22nd Mar 2010 03:19 PM
DSum and date as criteria	Andreas	Microsoft Access	3	29th Dec 2009 10:55 PM
DSum with multiple criteria	GD	Microsoft Access Getting Started	1	25th Aug 2009 09:33 PM
DSUM Date Criteria	=?Utf-8?B?anNjY29ycHM=?=	Microsoft Access Reports	2	3rd Feb 2006 12:58 PM
dsum with date criteria	=?Utf-8?B?TWljaGVsIGZyb20gQmVsZ2l1bQ==?=	Microsoft Excel Worksheet Functions	2	24th Mar 2005 05:29 PM