Help... Date Unrecognized...

[Triplex]

Dear Everyone

I have a problem with my code kindly examine it and try to find out why I'm getting an error. Thanks.

date_value = cdate(Label2.caption)

Set rsTimekeeping = New Recordset
rsTimekeeping.Open "Select * from Timekeeping where emp_id = '" & Text1.Text & "' and d_InOut = '" & Date_Value & "' and mode = '" & Mode & "' ", Application, adOpenKeyset, adLockOptimistic

----------------------------------------------------------
Error:

Run-time error '-2147217913 (80040e07)':

[Microsoft][ODBC Microsoft Access Driver]Data type mismatch
in criteria expression.

Triplex

 

[golandsh]

check the date format in your database and then
use the format function to enter the date properly
to the database

the format function : Format(Date,"dd/mm/yyyy&quot for example

try Format(cdate(Label2.Caption),(the date format));

 

[CCLINT]

Enclose the date with # instead of single quotes:

d_InOut = #" & Date_Value & "# and


Or use the JET VBA functions:

d_InOut = DateValue('" & Date_Value & "')

or

d_InOut = CDate('" & Date_Value & "')

 

[Triplex]

Problem solved...

Thanks and more power... God Bless...

Triplex

 

[CCLINT]

Triplex: Please inform us what you did to solve the problem...