在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代码来执行查询。不带参数的create query，将CAS添加到列列表：

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