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
