Renomenar un camp en Access amb VBA

Renomenar un camp en Access amb VBA
Renombrar un campo en Access con VBA
Change field name in Access with VBA

Tenim una taula TablaAlfa que conté un camp anomenat Id
Canviarem el nom d'aquest camp per IdAccess

We've got a table named TablaAlfa which contains a field named Id
We'll change its name by IdAccess

Tenemos una tabla llamada TablaAlfa que contiene un campo llamado Id
Le cambiaremos el nombre a IdAccess

Public Function CanviaNomCamp()


  Dim db As DAO.Database
  Dim tb As DAO.TableDef
  Dim fd As DAO.Field

  Set db = CurrentDb()
  Set tb = db.TableDefs("TablaAlfa")

  Set fd = tb.Fields("Id")
  fd.Name = "IdAccess"


  tb.Fields.Refresh

End Function