当然可以实现！你提到的用TOP子句确实是这个需求的完美解决方案，下面我一步步给你拆解怎么做：

1. 调整SQL查询，精准获取最后20条记录 #

你的原始查询是先合并两个表的数据再排序，要拿到按NewDate排序的最后20条，我们可以把原查询作为子查询，在外层用TOP 20结合降序排序——这样最新的记录会排在前面，取前20条就等价于原排序逻辑里的最后20条：

SELECT TOP 20 *
FROM (
    SELECT TypeID, tblID.CodeID, APrice AS 1, Null AS 2, ADate AS NewDate 
    FROM tblA LEFT OUTER JOIN tblID ON tblID.TypeID = tblA.TypeID 
    UNION ALL 
    SELECT TypeID, tblID.CodeID, NULL AS 1, MPrice AS 2, MDate AS NewDate 
    FROM tblM LEFT OUTER JOIN tblID ON tblID.TypeID = tblM.TypeID
) AS CombinedData
ORDER BY NewDate DESC;

注意：Access要求子查询必须设置别名（比如上面的CombinedData），否则会报错。

2. 在连续窗体上添加按钮并绑定触发逻辑 #

• 打开你的连续窗体设计视图
• 从控件工具箱拖一个按钮到窗体合适位置，设置按钮标题为“显示最后20条记录”
• 双击按钮进入单击事件的VBA代码编辑界面，写入以下代码：

Private Sub btnShowLast20_Click()
    ' 切换窗体记录源为仅显示最后20条的查询
    Me.RecordSource = "SELECT TOP 20 * FROM (SELECT TypeID, tblID.CodeID, APrice AS 1, Null AS 2, ADate AS NewDate FROM tblA LEFT OUTER JOIN tblID ON tblID.TypeID = tblA.TypeID UNION ALL SELECT TypeID, tblID.CodeID, NULL AS 1, MPrice AS 2, MDate AS NewDate FROM tblM LEFT OUTER JOIN tblID ON tblID.TypeID = tblM.TypeID) AS CombinedData ORDER BY NewDate DESC;"
    ' 刷新窗体确保数据更新
    Me.Requery
End Sub

• 如果需要恢复显示所有记录，你可以再添加一个按钮，把RecordSource改回你的原始SQL语句即可。

额外小提醒 #

如果NewDate字段存在重复值，Access的TOP 20可能会返回多于20条记录（因为它会包含所有排序值相同的记录）。如果需要严格限制为20条，可以结合唯一字段（比如CodeID）来排序，示例：

ORDER BY NewDate DESC, CodeID DESC;

内容的提问来源于stack exchange，提问作者YvetteLee