RecordsetClone.RecordCount不會返回零

Question

如果大於零，以下函數會正確返回數字。如果爲零，它什麼都不做 - 沒有零，沒有數字，甚至沒有錯誤代碼。結果也不是'null'。文本框只是空白。

Public Function NumRecs() As Integer 
Me.RecordsetClone.MoveLast 
NumRecs = Me.RecordsetClone.RecordCount 
End Function 

這是其數據來源於形式：

SELECT tblClient.ClientID, tblDisclosure.ID, tblDisclosure.ProbChased 
FROM tblDisclosure INNER JOIN tblClient ON tblDisclosure.Client = tblClient.ClientID 
WHERE (((tblDisclosure.ProbChased) Is Not Null)) ORDER BY tblClient.ClientID ; 

Answer 1

所有你需要的應該是：

Public Function NumRecs() As Integer 
    NumRecs = Me.RecordsetClone.RecordCount 
End Function 

它不能返回「一無所有」，因此，如果這是你看，函數不被調用。

Answer 2

如果你絕對需要一個零返回，您可以檢查.BOF和.EOF

Public Function NumRecs() as Integer 
    NumRecs=0 
    with Me.RecordsetClone 
     If Not (.BOF and .EOF) then 
     .MoveLast 
     NumRecs=.RecordCountd 
     End if 
    End with 
End Function