I'm guessing some settings you have must be different to me, as I can't replicate the problem.
I created a table called Table1, with a field called Field1 (type=Text), and ran that statement, which turned the field into a double with Auto decimal places.
Dim tdf As TableDef
For Each tdf In .TableDefs
If tdf.Name = "Table1" Then
For Each fld In tdf.Fields
If fld.Name = "Field1" Then
fld.Properties("DecimalPlaces") = 2
I am a loud man with a very large hat. This means I am in charge