Управление свойствами поля. Сложность в том, что нужного свойства у поля может не быть, тогда его нужно сначала добавить. К примеру, так (DAO):

Dim db As DAO.Database

Dim td As DAO.TableDef

Dim fld As DAO.Field

Dim prop As DAO.Property

On Error Resume Next

Set db = CurrentDb

Set td = db.TableDefs("Table1")

Set fld = td.Fields("f1")

Set prop = fld.CreateProperty("Format", dbText, "Standard")

fld.Properties.Append prop

Set prop = fld.Properties("Format")

prop.Value = "Standard"

Set prop = fld.CreateProperty("DecimalPlaces", dbByte, 2)

fld.Properties.Append prop

Set prop = fld.Properties("DecimalPlaces")

prop.Value = 2

fld.Properties.Refresh