Add a column to An existing QUERY via code 1

[Trob70]

I have quite a large number of mdb databases that i need to adjust an existing query
The field is allready in the table used by the query
The field name is PubDetail the mdb is name Web1.mdb the table is Master1



I intend to load the databses into an array and loop through
the databases and adjust the query in each via code

Woukd appreciate some help with the code to do this...i seem to be
able to find code to alter a table but not a query ???



Regards Trob70

 

[Trob70]

I have come up with a solution !!

Delete the existing query
Create a new query

I guess this is the best solution ?????

Regards Trob70

 

[dilettante]

Is this an actual VB6 question? Sure smells like something for one of the many Access forums here.

 

[MakeItSo]

Hi Trob70,

Checkout the QueryDef object.
You can change the underlying SQL statement of a query. Example:

Dim qdef As QueryDef
Set qdef = yourDb.QueryDefs(NameOfQueryToBeChanged)
qd.SQL = "SELECT ..., PubDetail FROM Master1"
qd.Save

Cheers,
MakeItSo

"Knowledge is power. Information is liberating. Education is the premise of progress, in every society, in every family." (Kofi Annan)
Oppose SOPA, PIPA, ACTA; measures to curb freedom of information under whatever name whatsoever.

 

[Trob70]

MakitSo

Thanks for the tip

The code did the job..
Had to alter qd.Save to qd.close


Regards Trob70