在MS Access中填充數據表的查詢，以及如果沒有返回值的MsgBox

Question

我試圖創建一個可以從MS Access中的按鈕運行的查詢。我創建的SQL查詢如下：

PARAMETERS CASNUMBER Text (255); 
SELECT DISTINCT Chemical.Chemical_Name, Hazard.Hazard_Code, Hazard.Hazard_Text 
FROM Chemical, Chemical_Hazard, Hazard 
WHERE Chemical.Chemical_Id = Chemical_Hazard.Chemical_Id 
and Chemical_Hazard.Hazard_Id = Hazard.Hazard_Id 
and [CASNUMBER] = Chemical.CAS 

;

如何使它在沒有返回值時出現MsgBox？

Answer 1

我建議使用JOIN而不是WHERE連接表。你也可以避免使用參數，在大多數情況下，這個參數需要用於查詢執行的VBA代碼。只要創建不帶參數的查詢，添加中科院列清單：

SELECT DISTINCT Chemical.Chemical_Name 
    ,Hazard.Hazard_Code 
    ,Hazard.Hazard_Text 
    ,Chemical.CAS 
FROM (
    Chemical_Hazard INNER JOIN Chemical ON Chemical.Chemical_Id = Chemical_Hazard.Chemical_Id 
    ) 
INNER JOIN Hazard ON Chemical_Hazard.Hazard_Id = Hazard.Hazard_Id 

，然後再檢查CAS代碼：

If DCount("*", "MyQuery", "CAS=" & lngCASNumber) = 0 then 
    MsgBox "CAS not found" 
End If