VBA将选定记录复制到连续表单上的所有记录

Question

我的表格和表格有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 

Answer 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