> Hi,
>
> Via code how do I rename a field in a table (Tbl_Table) from
> Original_Filedname to New_Fieldname?
You can do it via DAO. For example:
Dim db As DAO.Database
Dim tdf As DAO.TableDef
Set db = CurrentDb
Set tdf = db.TableDefs("Tbl_Table")
tdf.Fields("Original_FieldName").Name = "New_FieldName"
Or, in a shorter form:
CurrentDb.TableDefs("Tbl_Table").Fields("Original_FieldName").Name = _
"New_FieldName"

Signature
Dirk Goldgar, MS Access MVP
www.datagnostics.com
(please reply to the newsgroup)
Andrew - 15 Apr 2008 02:34 GMT
Thanks Dirk for your timely, informative and accurate answer.

Signature
Andrew
> > Hi,
> >
[quoted text clipped - 14 lines]
> CurrentDb.TableDefs("Tbl_Table").Fields("Original_FieldName").Name = _
> "New_FieldName"
> Hi,
>
> Via code how do I rename a field in a table (Tbl_Table) from
> Original_Filedname to New_Fieldname?
DoCmd.Rename "NewTableName", acTable, "OldTableName"

Signature
Fred
Please respond only to this newsgroup.
I do not reply to personal e-mail
Andrew - 15 Apr 2008 02:35 GMT
Thanks fredg but I wanted to rename fieldnames - Dirk provided the answer in
the above thread.

Signature
Andrew
> > Hi,
> >
> > Via code how do I rename a field in a table (Tbl_Table) from
> > Original_Filedname to New_Fieldname?
>
> DoCmd.Rename "NewTableName", acTable, "OldTableName"