Изменение выражения в расчётном поле таблицы

По материалам: https://www.cyberforum.ru/ms-access/thread3064196.html

Public Sub Change_Altium_FootPrintPath()
'Изменение выражения в расчётном поле таблицы
'Changing Сalculated Field Expression
Dim db As DAO.Database
Dim td As DAO.TableDef
Dim fld As DAO.Field
Dim sExpression$
 
'Строим выражение для поля в двойных кавычках:
    sExpression = """" & CurrentProject.Path & "\NevAll.PcbLib" & """"
    
    Set db = CurrentDb
'Удаляем поле [Footprint Path] напрочь - иначе никак.
    db.Execute "ALTER TABLE Altium DROP Column [Footprint Path]"
 
'Добавляем поле [Footprint Path] снова и уже с новым выражением:
    Set td = db.TableDefs("Altium")
    Set fld = td.CreateField("Footprint Path", dbText, 100)
    fld.Expression = sExpression
    td.Fields.Append fld
    
    Set fld = Nothing
    Set td = Nothing
    Set db = Nothing
End Sub