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

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