VBA MS Access 查询 - 从链接表返回最大日期

Question

我浏览了Greatest-n-per-group标签并找到了很好的信息，但没有解决我的具体问题。

表 A 存储有关所有使用材料的化学数据。 它具有 RMCode、TradeName、Hazardous、DangerousGood（均为 TEXT）等字段。

表 B 包含所有材料安全数据表（至少每 5 年更新一次），并且我们存储取代的文档。 这些字段是 RMCode (TEXT)、linkMSDS (HYPERLINK) 和 MSDSdate (DATE/TIME)。 LinkMSDS 是 pdf 的超链接，我们将发布日期存储在 MSDSdate 中。一个 RM 代码可以附有多个 MSDS。

这两个表通过“RM 代码”字段链接。

我想生成所有属于危险物品的材料的列表 - 但我只想提供最新的 MSDS。 以下代码当前返回所有 MSDS。

选择 tableB.[RMCode]、tableA.[商品名称]、tableA.[危险]、tableA.[DangerousGood]、tableB.[链接 MSDS]

FROM tableA INNER JOIN tableB ON tableA.[RM 代码]=tableB.[RM 代码]

WHERE tableA.[DangerousGood] <> “N/A”和表 B.[MSDSdate] 中

<块引用> <块引用>

(SELECT MAX(tableB.[MSDSdate])

来自表B

GROUP BY tableB.[RMCode]）

ORDER BY tableB.[RMCode];

Answer 1

在我看来，您需要每个 RMCode 的最新 MSDS 日期。

SELECT RMCode, Max(MSDSdate) AS MaxOfMSDSdate
FROM TableB
GROUP BY RMCode;

如果这是正确的，您可以将其用作连接到 TableA 的 suquery，并添加 WHERE 子句以排除带有 DangerousGood = "N/A" 的行。

SELECT a.RMCode, a.DangerousGood, b.MaxOfMSDSdate
FROM
    TableA AS a
    INNER JOIN [
        SELECT RMCode, Max(MSDSdate) AS MaxOfMSDSdate
        FROM TableB
        GROUP BY RMCode
        ]. AS b
       ON a.RMCode = b.RMCode
WHERE (((a.DangerousGood)<>"N/A"));

最后，如果您需要每个 RMCode/MSDSdate 组合的 linkMSDS 值，您可以加入 TableB 的另一个副本。

SELECT a.RMCode, a.DangerousGood, b.MaxOfMSDSdate, b2.linkMSDS
FROM
    (TableA AS a
    INNER JOIN [
        SELECT RMCode, Max(MSDSdate) AS MaxOfMSDSdate
        FROM TableB
        GROUP BY RMCode
        ]. AS b
        ON a.RMCode = b.RMCode)
    INNER JOIN TableB AS b2
        ON (b.RMCode = b2.RMCode) AND (b.MaxOfMSDSdate = b2.MSDSdate)
WHERE (((a.DangerousGood)<>"N/A"));