число с одним знаком после запятой бывает конечно у плавающих
однако свойства интересные посмотреть иерархию можно так:
Dim tdf As TableDef
Dim fld As Field
Dim ppp As Property
For Each tdf In CurrentDb.TableDefs
If tdf.Name = "Сотрудники" Then
For Each fld In tdf.Fields
If fld.Name = "подчиняется" Then
For Each ppp In fld.Properties
If ppp.Name = "DecimalPlaces" Then
Debug.Print ppp
End If
Next ppp
End If
Next fld
End If
Next tdf

а найдя свойство - DecimalPlaces изменить его:
Dim dbs As Database, tdf As TableDef, fld As Field, ppp As Property
Set dbs = CurrentDb
Set tdf = dbs.TableDefs!Сотрудники
Set fld = tdf.Fields!Подчиняется
Set ppp = fld.Properties!DecimalPlaces
Debug.Print "Old --> "; ppp
ppp.Value = 5
Debug.Print "New ---> "; ppp
Set dbs = Nothing