Access表单更新关联SELECT DISTINCT子查询表格数据的方案咨询

方案1：用可更新的去重查询替代临时表 #

生成表查询是静态的，这是导致手动更新、多用户不同步的核心原因。直接构造可更新的去重查询作为表单数据源，就能实时同步数据。

Access中，DISTINCT查询默认不可更新，但可以通过分组取唯一记录的方式实现去重且保持可更新性：
假设你的主表是DataTable，主键为ID，需编辑字段为EditField1、EditField2，需要去重的显示字段为DisplayField，可使用以下查询：

SELECT t.ID, t.EditField1, t.EditField2, t.DisplayField
FROM DataTable t
WHERE t.ID IN (
    SELECT MIN(ID)  -- 取每个分组的第一条记录，也可用MAX(ID)
    FROM DataTable
    GROUP BY DisplayField  -- 按需要去重的字段分组
)

将此查询设为表单的RecordSource，表单会直接绑定到主表的可更新记录，数据变更会实时同步，多用户无需手动刷新。

方案2：自动刷新共享临时表（兼容原有逻辑） #

如果必须保留临时表逻辑，需解决两个问题：自动刷新和多用户共享：

1. 将临时表移至后端共享数据库（不要放在本地前端），命名为SharedDistinctTemp。
2. 在表单的事件中添加VBA代码，自动刷新临时表并重新加载数据：

Private Sub Form_Load()
    RefreshSharedTemp
    Me.RecordSource = "SELECT t.EditField1, t.EditField2, s.DisplayField FROM DataTable t INNER JOIN SharedDistinctTemp s ON t.ID = s.ID"
    Me.Requery
End Sub

Private Sub Form_Activate()
    RefreshSharedTemp
    Me.Requery
End Sub

Private Sub RefreshSharedTemp()
    Dim ws As Workspace
    Set ws = DBEngine.Workspaces(0)
    ws.BeginTrans  -- 事务处理避免多用户冲突
    On Error GoTo Rollback
    
    ' 清空旧数据
    CurrentDb.Execute "DELETE * FROM SharedDistinctTemp", dbFailOnError
    ' 重新生成去重数据
    CurrentDb.Execute "SELECT DISTINCT ID, DisplayField INTO SharedDistinctTemp FROM DataTable", dbFailOnError
    
    ws.CommitTrans
    Exit Sub
Rollback:
    ws.Rollback
    MsgBox "刷新临时表失败：" & Err.Description, vbCritical
End Sub

此方案会在表单加载/激活时自动刷新临时表，多用户访问的是同一张共享表，数据能保持同步。

方案3：表单级去重（适合小数据集） #

如果数据集不大，可直接用原始可更新查询作为表单数据源，在表单加载时通过VBA过滤重复项：

Private Sub Form_Load()
    Dim rs As Recordset
    Set rs = Me.RecordsetClone
    rs.MoveFirst
    
    ' 用字典记录已出现的DisplayField值，过滤重复
    Dim uniqueVals As Object
    Set uniqueVals = CreateObject("Scripting.Dictionary")
    
    Do While Not rs.EOF
        If uniqueVals.Exists(rs!DisplayField.Value) Then
            rs.Delete
        Else
            uniqueVals.Add rs!DisplayField.Value, True
        End If
        rs.MoveNext
    Loop
    
    Me.Requery
End Sub

此方案无需修改查询，但性能不如查询层面的去重，仅适合数据量较小的场景。

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