Access pass-through query using a form for parameter

[Cozmo2]

I am using Access 2010 and am trying to execute a pass through query from a form where a date in entered. The query looks like this:

SELECT RTRIM(name.last_name) +', ' + name.first_name AS Name, name.soc_sec AS ID, address.st_addr, address.add_addr,RTRIM( address.city) + ', ' + address.state + ' ' + address.zip AS CtySTZip, address.e_mail, address.e_mail2, address.phone, address.cell_phone, nmprg.prg_cod, dispos.disp_date, approg.entry_date
FROM name, address, nmprg, dispos, approg
WHERE approg.entry_date = [Forms]![ParameterForm]![EntryDate]
AND name.soc_sec = address.soc_sec
AND name.soc_sec = nmprg.soc_sec
AND name.soc_sec = dispos.soc_sec
AND name.soc_sec = approg.soc_sec
AND address.preferred = '1'
AND nmprg.active = '1'
AND dispos.CurDispos = '1'
AND dispos.dispos in ('Depostied', 'Enrolled')

I get ODBC - call failed. Incorrect syntax near '!' (#102).

What am I doing wrong? Is there a better way to pass a parameter?

 

[LaurieHamlin]

It looks good to me. I always use & in Access, not +. I doubt that would make a difference though.

 

[Cozmo2]

Any idea why it does not like the approg.entry_date = [Forms]![ParameterForm]![EntryDate] statement?

 

[Andrzejek]

query from a form " - just a guess here...
If your Select statement is in the Form, so it is in the code, right?

Does it look like:
[tt]
strSQL = "Select RTRIM(name.last_name) +', ' + name....."[/tt]
???

Have fun.

---- Andy

A bus station is where a bus stops. A train station is where a train stops. On my desk, I have a work station.

 

[Cozmo2]

The form has a Text Box for the person to enter the date. They then click on a button that has an event to run the query.

 

[SkipVought]

...and you must CONVERT your date STRING on your form to a date NUMBER in the query...

WHERE approg.entry_date = #[Forms]![ParameterForm]![EntryDate]#

...assuming that the user had entered a valid date string

 

[Cozmo2]

It is formated as 'Short Date'. The field I am comparing it to is a date time field. How can I change it to only date, I tried date(approg.entry_date) but access didn't like that.

 

[SkipVought]

Int(Entry_date) = .....

 

[Cozmo2]

I received the error message 'Int' is not a recognized built-in function name. (#195)

 

[SkipVought]

okay then..

WHERE approg.entry_date => #[Forms]![ParameterForm]![EntryDate]# 
  AND approg.entry_date < #[Forms]![ParameterForm]![EntryDate]# + 1

 

[Cozmo2]

Received Incorrect syntax near '>'. (#102)

 

[SkipVought]

Post your code

 

[Cozmo2]

SELECT RTRIM(name.last_name) +', ' + name.first_name AS Name, name.soc_sec AS ID, address.st_addr, address.add_addr,RTRIM( address.city) + ', ' + address.state + ' ' + address.zip AS CtySTZip, address.e_mail, address.e_mail2, address.phone, address.cell_phone, nmprg.prg_cod, dispos.disp_date, approg.entry_date
FROM name, address, nmprg, dispos, approg
WHERE approg.entry_date => #[Forms]![ParameterForm]![EntryDate]#
AND approg.entry_date < #[Forms]![ParameterForm]![EntryDate]# + 1
AND name.soc_sec = address.soc_sec
AND name.soc_sec = nmprg.soc_sec
AND name.soc_sec = dispos.soc_sec
AND name.soc_sec = approg.soc_sec
AND address.preferred = '1'
AND nmprg.active = '1'
AND dispos.CurDispos = '1'
AND dispos.dispos in ('Depostied', 'Enrolled')

 

[SkipVought]

WHERE approg.entry_date >= #[Forms]![ParameterForm]![EntryDate]# 
  AND approg.entry_date < #[Forms]![ParameterForm]![EntryDate]# + 1

 

[Cozmo2]

Now I get Incorrect syntax near 'Forms'. (#102)

 

[Cozmo2]

If I put the statement in quotes like this:
WHERE approg.entry_date >= '#[Forms]![ParameterForm]![EntryDate]#'
AND approg.entry_date < '#[Forms]![ParameterForm]![EntryDate]#' + 1
I get Conversion failed when converting date and/or time from character string (#241)

 

[dhookom]

A pass-through sends the complete SQL statement to the SQL Server which has no idea what the your parameterform or controls are. You need to use a little VBA/DAO code to set the SQL property of the saved P-T query. Check the FAQs of this forum for a simple function that allows you to change the SQL of a saved query.

Duane
Hook'D on Access
MS Access MVP