問題:
回答:
在查看含有 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