Mass update of queries

[hmstoo44dd]

Is there a way to loop through all of my queries and if they use a specific table, change them to point to a different table or query?

I'm trying to integrate my access database with a table in SQL Server that contains same data with different column names.

 

[PWise]

dim qdefs as querydefs
dim qdef as querydef
Set qdefs = currentdb.querydefs
for each qdef in qdefs

qdef.sql=replace(qdef.sql,oldtablename,newtablename)

nexr

 

[hmstoo44dd]

Thanks pwise. I found an easy way to update without code. I made a copy of the database, deleted the old table, linked to the new SQL Server table, created a query and aliased the column names, then named the query the name of the old table. Works great.