Macro to change column name

[jadog]

Is there a way to create a macro in Access that can change the column name in my table? For example:

I have a table with the name SP20C and I want to change the current column name from F1 to Item_no. Is this possible?



I wish there was a way to record it like in Excel...

[June7]

You want to actually change the name of the field in table (why?) or just show an alias on forms and reports?

There are ways to programmatically change field name in table but why is this necessary? If you change fieldname this could cause issues if the fieldname is already used elsewhere in code or in expressions in textboxes.

If you just need to do a one-time design edit, open the table and modify.

[jadog]

I was looking for a way to "automate" a multi-step process. There may have been a different (better) way to do this, and I appreciate you trying to help me with that. Anyway, I finally figured it out, and for those who may be looking for a way to get that done, below is the code I used. Just copy the entire script below into the VB Editor in Access:

Sub RenameFieldControl(strTableName As String, _
                        strFieldFrom As String, _
                        strFieldTo As String)
                        
    Dim dbs As DAO.Database
    Dim tDef As DAO.TableDef
    Dim fDef As DAO.Field
    
    Set dbs = CurrentDb()
    Set tDef = dbs.TableDefs(strTableName)
    Set fDef = tDef.Fields(strFieldFrom)
    
    fDef.Name = strFieldTo
    
    Set fDef = Nothing
    Set tDef = Nothing
    Set dbs = Nothing
                        
End Sub

Sub RenameField()
    RenameField "TableName", "CurrentColumnName", "NewColumnName"
End Sub