如何自动实现MS Access两个表之间的增删改数据同步

前提确认：两张表结构完全一致，存在唯一主键字段（如order_id），无主键冲突

方案1：表级数据宏（无需VBA，适合轻量场景） #

就是你最初计划的After系列事件宏，操作步骤如下：

1.1 插入事件同步（After Insert） #

• 打开local_orders的设计视图，点击顶部「设计」选项卡→「创建数据宏」→「插入后」
• 添加CreateRecord操作，数据对象选「表」，对象名称填linked_orders
• 为所有字段添加SetField操作，每个字段赋值规则为[linked_orders].[字段名] = [local_orders].[对应字段名]，字段较多时可借用VBA批量生成赋值语句，无需手动逐行编写
• 保存宏即可

1.2 更新事件同步（After Update） #

• 同样创建「更新后」的数据宏
• 先添加FindRecord操作，查找条件为[linked_orders].[主键名] = [local_orders].[主键名]
• 添加EditRecord操作，再用SetField完成所有非主键字段的赋值
• 保存宏

1.3 删除事件同步（After Delete） #

• 创建「删除后」的数据宏
• 添加FindRecord操作，查找条件为[linked_orders].[主键名] = [old].[主键名]（删除后的原字段值需用[old]前缀引用）
• 添加DeleteRecord操作
• 保存宏

方案2：VBA事件实现（支持自动遍历所有字段，适合字段较多的场景） #

完全解决你需要遍历所有列同步的需求，无需手动匹配每个字段：

2.1 通用同步函数 #

Sub SyncOrder(ByVal OrderID As Long, Optional isDelete As Boolean = False)
    Dim rsLocal As DAO.Recordset, rsLinked As DAO.Recordset
    Dim fld As DAO.Field
    
    ' 处理删除场景
    If isDelete Then
        CurrentDb.Execute "DELETE FROM linked_orders WHERE 主键字段名 = " & OrderID, dbFailOnError
        Exit Sub
    End If
    
    ' 读取本地当前操作行
    Set rsLocal = CurrentDb.OpenRecordset("SELECT * FROM local_orders WHERE 主键字段名 = " & OrderID, dbOpenDynaset)
    If rsLocal.EOF Then GoTo Cleanup
    
    ' 查找目标表对应行
    Set rsLinked = CurrentDb.OpenRecordset("SELECT * FROM linked_orders WHERE 主键字段名 = " & OrderID, dbOpenDynaset)
    
    ' 判断是新增还是更新
    If rsLinked.EOF Then
        rsLinked.AddNew
    Else
        rsLinked.Edit
    End If
    
    ' 自动遍历所有字段赋值，无需手动逐个填写
    For Each fld In rsLocal.Fields
        ' 若主键是自增类型，跳过主键赋值，不需要可删除该行判断
        If Not rsLinked.Fields(fld.Name).AutoIncrement Then
            rsLinked.Fields(fld.Name).Value = fld.Value
        End If
    Next fld
    
    rsLinked.Update
    
Cleanup:
    rsLocal.Close
    rsLinked.Close
    Set rsLocal = Nothing
    Set rsLinked = Nothing
End Sub

注意：请将代码中「主键字段名」替换为你两张表实际的主键字段名称，比如order_id

2.2 绑定触发事件 #

将local_orders绑定到一个隐藏的绑定窗体，在窗体对应事件中调用函数即可：

• 插入后/更新后事件调用：SyncOrder Me.主键字段名
• 删除后事件调用：SyncOrder Me.主键字段名, True

方案3：批量查询同步（适合非实时场景） #

如果不需要行级实时触发，可直接运行三类查询完成全量同步：

• 插入同步：INSERT INTO linked_orders SELECT * FROM local_orders WHERE 主键字段名 NOT IN (SELECT 主键字段名 FROM linked_orders)
• 更新同步：UPDATE linked_orders INNER JOIN local_orders ON linked_orders.主键字段名 = local_orders.主键字段名 SET linked_orders.* = local_orders.*（部分Access版本不支持*批量赋值，可用VBA自动生成字段赋值列表）
• 删除同步：DELETE FROM linked_orders WHERE 主键字段名 NOT IN (SELECT 主键字段名 FROM local_orders)

• 两张表必须有唯一不重复的主键，否则会出现同步错乱
• 如果linked_orders是外部链接表，需保证数据源连通性，可在VBA中添加错误捕获逻辑处理异常
• 数据宏仅支持Access 2010及以上版本，低版本请使用VBA方案

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