3

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

[完成]=否且 [呼叫 1]="错误号码" 或 [完成]=否且 [呼叫 2]="错误号码" 或 [完成]=否且 [呼叫 3]="无应答" 或 [完成]=No And [Call 3]="Unavailable" or [Complete]=No And [Call 3]="Wrong Number"

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

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

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

4

1 回答 1

3

当打开的表单具有活动过滤器时.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
于 2013-06-17T17:28:49.650 回答