没问题，我帮你搞定这个Access表单的更新按钮，完全贴合你的需求。下面是分步实现方案和代码：

需求先理清楚（避免踩坑） #

你提到的核心点我都记下来了：

• 表单绑定的是Table1，控件对应表的字段
• Query1里的编号是Table1编号的部分匹配（比如Query1的编号是Table1编号的子串/前缀）
• 用查询没法直接在表单新增编号，所以要通过按钮触发VBA完成：遍历Query1，匹配Table1的记录，更新现有记录，同时支持新增不在Table1里的编号

第一步：添加命令按钮并绑定VBA #

1. 打开你的表单设计视图
2. 从控件工具箱拖一个「命令按钮」到表单上，直接选「取消」跳过向导（我们自己写代码）
3. 右键按钮→「事件生成器」→选择「代码生成器」，打开VBA编辑器

第二步：编写VBA代码 #

把下面的代码粘贴进去，记得替换成你实际的字段名、控件名和匹配逻辑：

Private Sub cmdUpdateFromQuery_Click()
    Dim db As DAO.Database
    Dim rsQuery As DAO.Recordset
    Dim rsTable As DAO.Recordset
    Dim strMatchCriteria As String
    Dim boolRecordFound As Boolean
    
    ' 初始化数据库对象
    Set db = CurrentDb()
    ' 打开Query1的只读记录集（提高遍历效率）
    Set rsQuery = db.OpenRecordset("Query1", dbOpenDynaset, dbReadOnly)
    ' 打开Table1的可编辑记录集（支持更新/新增）
    Set rsTable = db.OpenRecordset("Table1", dbOpenDynaset)
    
    ' 遍历Query1的每一条记录
    Do While Not rsQuery.EOF
        boolRecordFound = False
        
        ' --------------------------
        ' 核心匹配逻辑：根据你的实际场景选一种
        ' 示例1：Query1编号是Table1编号的前缀（比如Query1是"ABC"，Table1是"ABC123"）
        ' strMatchCriteria = "编号 Like '" & rsQuery!Query编号字段 & "*'"
        ' 示例2：Query1编号是Table1编号的子串（比如Query1是"123"，Table1是"ABC123DEF"）
        strMatchCriteria = "编号 Like '*" & rsQuery!Query编号字段 & "*'"
        ' 示例3：精确匹配（虽然你说的是部分，但以防万一）
        ' strMatchCriteria = "编号 = '" & rsQuery!Query编号字段 & "'"
        ' --------------------------
        
        ' 在Table1中查找匹配记录
        rsTable.FindFirst strMatchCriteria
        
        ' 找到匹配记录则更新字段
        If Not rsTable.NoMatch Then
            boolRecordFound = True
            rsTable.Edit
            ' 替换成你需要同步的字段（Query1字段→Table1字段）
            rsTable!Table字段1 = rsQuery!Query字段1
            rsTable!Table字段2 = rsQuery!Query字段2
            rsTable.Update
        End If
        
        ' 没找到则新增一条记录（按需开启，不想新增就注释这段）
        If Not boolRecordFound Then
            rsTable.AddNew
            ' 自定义新增记录的编号规则，这里直接用Query1的编号
            rsTable!编号 = rsQuery!Query编号字段
            rsTable!Table字段1 = rsQuery!Query字段1
            rsTable!Table字段2 = rsQuery!Query字段2
            rsTable.Update
        End If
        
        ' 移动到Query1的下一条记录
        rsQuery.MoveNext
    Loop
    
    ' 刷新表单，让更新/新增的记录立刻显示
    Me.Requery
    
    ' 释放资源，避免内存泄漏
    rsQuery.Close
    rsTable.Close
    Set rsQuery = Nothing
    Set rsTable = Nothing
    Set db = Nothing
    
    MsgBox "更新完成！", vbInformation
End Sub

第三步：关键调整说明 #

1. 字段名替换：把代码里的Query编号字段、Table字段1、编号等替换成你数据库里的实际字段名
2. 匹配逻辑：根据你编号的实际关联规则（前缀/子串/其他），选择对应的strMatchCriteria示例，或者自己修改
3. 新增开关：如果不需要新增记录，直接把If Not boolRecordFound Then那段代码注释掉就行

注意事项 #

• 如果你的编号是数字类型，要去掉匹配条件里的单引号（比如strMatchCriteria = "编号 Like *" & rsQuery!Query编号字段 & "*"）
• 建议先给Query1去重，避免重复更新/新增记录
• 可以加错误处理：在代码开头加On Error GoTo ErrorHandler，末尾加错误捕获块，防止意外崩溃

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