标记过滤表单中的记录

Question

我将我的表单设置为过滤，以确保只有需要邮寄的客户才会加载到此表单中。

[Complete]=No And [Call 1]="Wrong Number" or [Complete]=No And [Call 2]="Wrong Number" or [Complete]=No And [Call 3]="No Answer" or [Complete]=No And [Call 3]="Unavailable" or [Complete]=No And [Call 3]="Wrong Number"

然后，我完成了邮件合并，以便将信件和信封打印出来。我有一个字段“完成”设置为Yes/No 默认为No。我想要一个按钮，将过滤到此表单中的所有这些记录标记为 Yes 以表示已完成，因此在他们完成邮件合并后，我们将不再这样做。

我的问题是如何只标记这些记录而不做整个表？

提前感谢您在此问题上的任何帮助。

Answer 1

当打开的表单具有活动过滤器时，该表单的.RecordsetClone 返回过滤后的记录集。因此，您更新 [Completed] 标志的按钮可以简单地执行以下操作：

Private Sub btnUpdateCompleted_Click()
Dim rst As DAO.Recordset
Set rst = Me.RecordsetClone
If Not (rst.BOF And rst.EOF) Then
    rst.MoveFirst
    Do While Not rst.EOF
        rst.Edit
        rst!Completed = True
        rst.Update
        rst.MoveNext
    Loop
End If
Set rst = Nothing
End Sub