Execute Query Function in VB

[DeutchBose]

I have an access query that I'm trying to run through vba code...I'm doing the following:

Dim qdProcess As QueryDef

Dim dbProcess As Database

Set dbProcess = CurrentDb()

Set qdProcess = dbProcess.QueryDefs("aqryLIMAdeals_MMConc")
qdProcess.Execute

"aqryLIMAdeals_MMConc" is an append query that works just fine when I run it in Access...but the code gets hung up with 'qdProcess.Execute'

I get the following error:

'Too few paramaters. Expected 1'
I'm not sure what parameters I would need?

Any ideas?

 

[bat17]

Try
DoCmd.OpenQuery "aqryLIMAdeals_MMConc"

instead. You may want to look at

DoCmd.SetWarnings True / False

as well.

HTH

Peter

 

[DeutchBose]

I know that'll work, however I need to then use the 'RecordsAffected' function which will only work if using the 'Execute' function beforehand.

I realise I could find the Records Affected some other way, but it's just so strange...the whole thing was working just fine in Access 97 on NT, but converting it to Access XP on Windows XP, this has become a problem all of a sudden.

 

[bat17]

I am not sure if this will help as it is code for 97 but it is an addaption of how I force parameter queries to update themselves in code.

Dim qdProcess As QueryDef
Dim dbProcess As Database
Dim prm As Parameter

Set dbProcess = CurrentDb()
Set qdProcess = dbProcess.QueryDefs("aqryLIMAdeals_MMConc")
For Each prm In qdProcess.Parameters
   prm.Value = Eval(prm.Name)
Next prm
qdProcess.Execute

Peter

 

[DeutchBose]

THANK YOU!

That did the trick!