VBA将所选记录复制到连续表格上的所有记录答案

【问题标题】：VBA copy selected record to all records on continuous formVBA将所选记录复制到连续表格上的所有记录
【发布时间】：2017-09-20 10:23:53
【问题描述】：

我的表格和表格有 4 个字段。 conCity, conTime, conRep, conTerrioryNumber

我需要将选定记录中的值复制到我的连续表单上 conCity 相同的所有记录。

这似乎将值复制到所有记录。如何将更新限制为仅 conCity 等于所选记录的记录

With Me.RecordsetClone
.MoveFirst
Do While .EOF = False
.Edit
   .Fields("conCity").Value = Me.conCity.Value
   .Fields("conTime").Value = Me.conTime.Value
   .Fields("conRep").Value = Me.conRep.Value
   .Fields("conTerrioryNumber").Value = Me.conTerrioryNumber.Value

.Update
.MoveNext
Loop
End With

【问题讨论】：

我明白了。但是你的问题是什么？

标签： loops ms-access vba do-while

【解决方案1】：

尝试使用If 语句：

With Me.RecordsetClone
.MoveFirst
Do While .EOF = False
If .Fields("conCity").Value = Me.conCity.Value Then
.Edit
   .Fields("conCity").Value = Me.conCity.Value
   .Fields("conTime").Value = Me.conTime.Value
   .Fields("conRep").Value = Me.conRep.Value
   .Fields("conTerrioryNumber").Value = Me.conTerrioryNumber.Value

.Update
End If
.MoveNext
Loop
End With

【讨论】：