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.
But regardless..
Try this:
Code:
Function thins()
Dim tdf As TableDef
Dim prp
Dim fld
With CurrentDb
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
End If
Next fld
End If
Next tdf
End With
End Function
Steven
I am a loud man with a very large hat. This means I am in charge