Rename a field in a table

[Andrew]

Hi,

Via code how do I rename a field in a table (Tbl_Table) from
Original_Filedname to New_Fieldname?

 

[Dirk Goldgar]

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"

 

[fredg]

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"

 

[Andrew]

Thanks Dirk for your timely, informative and accurate answer.

 

[Andrew]

Thanks fredg but I wanted to rename fieldnames - Dirk provided the answer in
the above thread.