升迁专用:是否字段默认值为空的统一设置为0-Natsume Takashi
Access软件网QQ交流学习群(群号码198465573),欢迎您的加入!
首页 >技术文章> Access数据库-模块/函数/VBA


升迁专用:是否字段默认值为空的统一设置为0

发表时间:2018/6/11 13:06:15 评论(0) 浏览(4532)  评论 | 加入收藏 | 复制
   
摘 要:是否字段默认值为空的统一设置为0
正 文:
Sub 设置是否字段默认值()
Dim tbl As Object
Dim fld  As Object
For Each tbl In CurrentDb.TableDefs
If tbl.Name Like "MSys*" = False And tbl.Connect = "" Then
For Each fld In tbl.Fields
If fld.Type = dbBoolean And Len(fld.DefaultValue) = 0 Then fld.DefaultValue = 0
Next
End If
Next
End Sub

Access软件网交流QQ群(群号:198465573)
 
 相关文章
【access源码示例】通过文本框设定更改表中默认值的示例  【红尘如烟  2011/8/26】
sql server中datetime默认值设置和日期函数   【赵文斌  2011/11/17】
【Access示例】为组合框设置默认值  【缪炜  2013/7/28】
【Access字段】用代码更改字段默认值,用代码修改表中字段默认值...  【红尘如烟  2014/1/16】
【Access示例】设置默认值/DefaultValue属性用法  【缪炜  2017/6/3】
常见问答
技术分类
相关资源
文章搜索
关于作者

Natsume Takashi

文章分类

文章存档

友情链接