Question

以下代码将所选记录的值复制到表单上的所有记录中。

但是，代码中的这一行给了我不良结果

.Fields("ResultsID").Value = Me.TestResultID.Value

不是将每条记录的TestResultID复制到ResultsID中，而是使所有ResultsID与所选记录的TestResultsID相同。

移动该行代码的最佳位置在哪里？

With Me.RecordsetClone
.MoveFirst
Do While .EOF = False
If .Fields("[Ordered Analyte]").Value = Me.[Ordered Analyte].Value Then
.Edit
    .Fields("DateStarted").Value = Me.DateStarted.Value
    .Fields("TimeStarted").Value = Me.TimeStarted.Value
    .Fields("DateCompleted").Value = Me.DateCompleted.Value
    .Fields("TimeCompleted").Value = Me.TimeCompleted.Value
    .Fields("Result").Value = Me.Result.Value
    .Fields("Count").Value = Me.[txtCount].Value
    .Fields("ResultsID").Value = Me.TestResultID.Value
.Update
End If
.MoveNext
Loop
End With

Answer 1

替换

.Fields("ResultsID").Value = Me.TestResultID.Value

带

.Fields("ResultsID").Value = .Fields("TestResultsID").Value

使用每个记录中的TestResultsID而不是当前记录。

Answer 2

以下代码将所选记录的值复制到所有记录中在我的表格上。

和

它使所有ResultsID与所选记录的TestResultsID相同。

因此，您的代码完全符合预期。

Loop中的一行代码会产生不良结果

2 个答案: