Changing column name using code

[rocco]

I would like to change the field name of a table using code.
So far this is what I have but I am stuck.

function Change_field_name()

DoCmd.Opentable "myTable", acNormal, acEdit
DoCmd.GoToControl "TimeVisit"
DoCmd.RunCommand acCmdRenameColumn

End Function

I tried adding acCmdRenameColumn ("TimeVisit","ImpDate&quot
but it did not work. Any help would be greatly appreciated thanksss everyone.

 

[halfbarrel]

Rocco,
I goofed around and was able to get it to work this way.

Dim tblTest As ADOX.Table
Dim col As ADOX.Column
Dim cat As ADOX.Catalog

Set cat = New ADOX.Catalog
cat.ActiveConnection = CurrentProject.Connection
Set tblTest = cat.Tables.Item("myTable&quot

Set col = tblTest.Columns.Item("TimeVisit&quot
col.name = "test"

You'll need to make a reference to "Microsoft ADO Extension"
Let me know if you have any problems.
Thanks,


Chris

 

[rocco]

Thank you Chris for your response...
I tried this line and it worked beautifulllly.

Microsoft DAO 3.6 has to be ticked - below all in one line

CurrentDb.TableDefs("myTable&quot.Fields ("TimeVisit&quot.Name="test"