使用 vba 訪問 ms access 中的字段

Question

我有表“客戶”，該表包含許多字段，需要通過示例字段“電話號碼”檢查其中一個，如果包含空值，則顯示 msgbox“有空值”，如果不包含空值，則顯示 msgbox“確定”檢查字段表“客戶”中的“電話號碼”如果字段“電話號碼”的任何行包含空值，則數據在表中，

Set db = CurrentDb
Dim x As String
Dim rs As dao.Recordset
Set rs = db.OpenRecordset("SELECT [phone no] FROM customer;")
Set x = rs
If x = Null Then
MsgBox "There is space"
Else
MsgBox "There is no space"
End If
end sub```

Answer 1

不能在等式表達式中直接使用 Null。 沒有什么可以比較的，甚至Null=Null 。 使用Nz() 、 IsNull()或僅用於查詢Is Null 。

實際上，由於 x 變量被聲明為 String 並且 String 不能容納 Null，因此任何對 Null 的測試都會失敗。 不需要 x 變量或記錄集。 域聚合函數可以返回數據為空的記錄計數。 如果沒有匹配項，則返回 0。

MsgBox "There are " & DCount("*", "Customers", "IsNull([phone no])") & " records without phone number."

請記住，空字符串與 Null 不同。 如果字段為空字符串，則不計為 Null。 建議不要在字段中允許空字符串。 以下將處理 Null 或空字符串：

MsgBox "There are " & DCount("*", "Customers", "Nz([phone no],'')=''") & " records without phone number."