2017-04-23 101 views
1

我的表格和表格有4個字段。 conCity,conTime,conRep,conTerrioryNumberVBA將選定記錄複製到連續表單上的所有記錄

我需要將所選記錄中的值複製到連續表單中的所有記錄,其中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 
+0

我明白了。但你的問題是什麼? – Andre

回答

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 
+1

這個技巧。感謝您的幫助 –