Kod:
DoCmd.Close acTable, CurrentDb().TableDefs(TabloAdınız).Name, acSaveYes ' Tabloyu kaydedip kapatır açık veya kaydedilmemişse alan adlarını değiştiremezsiniz.
CurrentDb().TableDefs(Tabloadınız).Fields(Alanadınız).Name = "yenialanadınız" 'Yeni alan adınızı atar
DoCmd.OpenTable CurrentDb().TableDefs(Tabloadınız).Name değişiklikleri görebilmek için tablonuzu yeniden açar