Dim db As DAO.Database
Dim tdd As DAO.TableDef
Set db = CurrentDb()
Set td = db.TableDefs(YourTableName)
td.Fields(CurrentFieldName).Name = NewFieldName
Open in new window
IT issues often require a personalized solution. With Ask the Experts™, submit your questions to our certified professionals and receive unlimited, customized solutions that work for you.