How do i solve this problem?

[myaccess2000]

Hi,

i have the error pop up and the error is "data type mismatch in criteria expression". It shows that there is something wrong with my SQL statement and i can't figure out what is wrong with that.

date1.text is the value in my textbox and i intend to use the date in the textbox to look for that particular record and perform deletion. What is the root cause of the above error?
i = CDate(Date1.Text)
Set dbs = CurrentDb
dbs.Execute ("DELETE FROM Pay_info where emp_date = '" & i & "'&quot
dbs.Close

Regards
irene

 

[SgtJarrow]

By using the CDate() function you have converted the text string to a date string......so you will have to compare against the date string and date strings require the # symbol.....

Try:

i = CDate(Date1.Text)
Set dbs = CurrentDb
dbs.Execute ("DELETE FROM Pay_info where emp_date = #" & i & "#&quot
dbs.Close

The secret to creativity is knowing how to hide your sources. - Albert Einstein

Robert L. Johnson III, A+, Network+, MCP
Access Developer/Programmer
robert.l.johnson.iii@citigroup.com

 

[myaccess2000]

bingo!!...thanks! it really works!!! You are real fast in responding.