I have a database (Access 2003) that I need to change some of the SQL code. I have the code below, which works in changing all of the queries that begin with LBR:
Function ReplaceFieldNames()
Dim db As DAO.Database
Dim qdf As DAO.QueryDef
Set db = CurrentDb
For Each qdf In db.QueryDefs
If...