素描 uff1a
如何定义字段默认值

问题：
如何设置表中字段的默认值

方法1：

完整的Jet SQL
tablename表改变列字段的文本（40）默认值


请注意，上述声明应adodb.connection.execute等方法执行，并查询无法保存或直接用上面的代码。它将获得访问的错误提示。


方法二：

A是的。


chengtablefieldpro_ado（）函数

昏暗的mytablename作为字符串
昏暗的myfieldname作为字符串
昏暗的getfielddesc_ado
昏暗的getfielddeｓｃｒｉｐｔion
mytablename =ke_hu
myfieldname =dw_name

昏暗的文件作为新的ADOX。目录
暗表为表A。
这个行业作为暗柱ADOX。

错误err_getfielddeｓｃｒｉｐｔion

mydb.activeconnection = currentproject。连接
设置表=语句表（mytablename）
getfielddesc_ado =表。列（myfieldname）。特性（描述）


昏暗的亲为ADODB属性。
每个亲在眼前。柱（myfieldname性质）。
打印。
下一个

与表列（myfieldname）。

。性质（空）=真的需要
无法设置所需的错误代码：
多步骤的OLE DB操作会产生错误。如果可能的话，检查每个OLE DB状态值。
下面的语句可以立即设置：
currentdb.tabledefs（ke_hu）。菲尔兹（dw_name ），性质（要求）=假
。特性（喷气OLEDB：允许零长度）=真正的允许空
属性默认值=默认的默认值默认值
结束
设置文件=没有

bye_getfielddeｓｃｒｉｐｔion：
退出功能

err_getfielddeｓｃｒｉｐｔion：
哔哔声
调试。打印错误。描述
MsgBox错误描述，货币供应量。
getfielddeｓｃｒｉｐｔion = null
简历bye_getfielddeｓｃｒｉｐｔion

端功能


关于多步误差的几点参考：

Sub ChangeUnicode（）

昏暗的TDF为TableDef
昏暗的FLD的场
数据库作为数据库
属性属性

设置DB = currentdb

每个TDF在db.tabledefs
在每个领域的TDF FLD。
如果FLD型= DBText然后
如果DBEngine。错误（0）。数= 3270
集亲= fld.createproperty（unicodecompression
fld.properties.append P
最后如果
FLD性能（unicodecompression ）=真
最后如果
接下来的FLD
下一场
端子