【请教】Access中Double字段的格式和精度用代码设置

foreseer201

如下图所示，希望将Access中的双精度格式字段格式设置为“固定”，小数位数设置位2.（这样的效果是表中的数据显示到2位小数，但真实的数值还是多位小数的。比如显示5.63，但鼠标单击后还是显示真实的5.63124）。
但是有很多个字段，一个个设置很麻烦。不知道有没有办法用代码来实现这样的设置？
尝试了在vb中用CurrentProject.Connection.Execute "alter table tb alter [column] decimal(18,2)"
但是这样就把后面的小数给四舍五入截掉了。和在查询中直接用round()更新同样的效果。
希望知道的大大指教下，非常感谢。

foreseer201

补充一下，如下图，就是类型为Double的字段，默认常规属性中的“格式”是空的，“小数位”是自动。
想修改成“格式”固定，小数位是2。（楼顶的图）
不知能用代码做到这样的修改么？

ACMAIN_CHM

currentdb.TableDefs("table1").Fields("fd2").Properties("DecimalPlaces").Value=4

参见ACCESS帮助中 currentdb 属性方法， DAO集合 TableDefs ,Fields,Properties
循环处理一下试试。


******************
*  一切皆有可能  *
******************
.
ACMAIN - Access论坛回贴准则（个人）.
.
同一贴子不回复第二次

foreseer201

CurrentDb.TableDefs("tablename").Fields("column").Properties("DecimalPlaces").Value = 2
Dim P As Property
Set P = CurrentDb.TableDefs("tablename").Fields("column").CreateProperty("Format", 10)
P.Value = "Fixed"
CurrentDb.TableDefs("tablename").Fields("column").Properties.Append P
搞定了，谢谢ACMAIN_CHM 。