表设计
如何更改表的某一个字段的属性比如允许空字符
2005-02-04 16:08:33

 

问题:  

  如何更改表的某一个字段的属性比如允许空字符串

回答:

  首先说一下“必填”和“允许空”的概念 相信大家已经知道在 VBA 里面 NULL 与 ""(零长度字符串)的区别了吧? Null 表示未设置数据 "" 表示有数据,数据为一个零长度字符串 请参考帮助内的说明:
Null 值与零长度字符串的区别 (MDB) 注释  本主题中的信息仅适用于 Microsoft access 数据库 (.mdb)。

 

在查看含有 Null (Null:可以在字段中输入或用于表达式和查询,以标明丢失或未知的数据。在 Visual Basic 中,Null 关键字表示 Null 值。有些字段(如主键字段)不可以包含 Null 值。) 值和零长度字符串 (零长度字符串:不含字符的字符串。可以使用零长度字符串来表明您知道该字段没有值。输入零长度字符串的方法是键入两个彼此之间没有空格的双引号 (" ")。)的数据时,字段看起来是相同的,都没有任何值。但可以用表达式 (表达式:算术或逻辑运算符、常数、函数和字段名称、控件和属性的任意组合,计算结果为单个值。表达式可执行计算、操作字符或测试数据。)来区分 Null 值和零长度字符串。

在“设计”视图 (“设计”视图:显示数据库对象(包括:表、查询、窗体、宏和数据访问页)的设计的窗口。在“设计”视图中,可以新建数据库对象和修改现有数据库对象的设计。)中打开窗体、报表或数据访问页。

在查询设计网格 (设计网格:在查询“设计”视图或“高级筛选/排序”窗口中设计查询或筛选时所用的网格。对于查询,该网格以前称为“QBE 网格”。)的字段中,或在未绑定控件 (未绑定控件:未与基础表、查询中的字段或 SQL 语句连接的控件。未绑定控件通常用于显示信息性文本或装饰性图片。)的控件来源中,键入下列表达式。将 fieldname 替换为包含 Null 值和零长度字符串的字段名称。

=IIf(IsNull([fieldname]),"Unknown",Format([fieldname],"@;\ZLS"))

如果字段包含 Null,则表达式返回 “Unknown”,如果字段包含零长度字符串,则表达式返回“ZLS”。否则,表达式将值返回到该字段中。

 

“必填” 为“是” 表示不允许 NULL “允许空” 为 “是” 表示允许 ""(零长度字符串)

参考下面函数

 

Function ChengTableFieldPro_ADO()     Dim MyTableName As String     Dim MyFieldName As String          MyTableName = "表 ds1"     MyFieldName = "aa"          Dim MyDB As New ADOX.Catalog     Dim MyTable As ADOX.Table     Dim MyField As ADOX.Column

 

    On Error GoTo Err_GetFieldDescription          MyDB.ActiveConnection = CurrentProject.Connection     Set MyTable = MyDB.Tables(MyTableName)     GetFieldDesc_ADO = MyTable.Columns(MyFieldName).Properties("Description")             Dim pro     For Each pro In MyTable.Columns(MyFieldName).Properties         Debug.Print pro.Name & pro.Value         Debug.Print pro.Type     Next          MyTable.Columns(MyFieldName).Properties("Jet OLEDB:Allow Zero Length") = True          Set MyDB = Nothing

Bye_GetFieldDescription:     Exit Function

Err_GetFieldDescription:     Beep     MsgBox Err.Description, vbExclamation     GetFieldDescription = Null     Resume Bye_GetFieldDescription

End Function