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

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

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

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

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

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

    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