《如何更改表的某字段的属性（如允许空字符/必填）Null 值与零长度字符串的区别》-- access911.net 文章

首先说一下“必填”和“允许空”的概念
相信大家已经知道在 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("Nullable") = True
    '以下这句更改某个字段的“允许空”（也叫“允许零长度字符串”）属性为“是”
    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

本站文章旨在为该问题提供解决思路及关键性代码，并不能完成应该由网友自己完成的所有工作，请网友在仔细看文章并理解思路的基础上举一反三、灵活运用。

access911.net 原创文章，作者本人对文章保留一切权利。
如需转载必须征得作者同意并注明本站链接

专题地址：

简述：

阅读前需掌握：

难度等级：

适用环境：

关键字：