ACCESS内置弹窗“查找与替换”执行“全部替换”的影响

Question

设置如下：

Form1是.DefaultView=0的窗体，它包含两个.DefaultView=2的子窗，分别名为：SubForm1和SubForm2。

设置SubForm1的属性.RecordSource = “Table1”，并在它的窗体模块中有以下代码：

Private Sub Form_Current()

On Error GoTo Err_Sign

Dim S(0) As String

S(0) = "SELECT Table2.* FROM Table2 WHERE Table2.Field2 = '" & Me.Field1 & "'"

Me.Parent.Form("SubForm2").Form.RecordSource = S(0)

Exit Sub

Err_Sign:

MsgBox "Err.Number=" & Err.Number & " :" & Err.Description

End Sub

除了上述一个事件，三个窗体中没有任何其它代码和事件。

---

使用场景：

现在打开Form1的窗体视图，在SubForm1中打开ACCESS内置窗体“查找与替换”，逐个查找或逐个替换是正常的，当点击“全部替换”按钮，ACCESS提示错误号2074：事务处理中不支持该操作，虽然最后依然替换成功。

---

问题：

1.按错误提示，应该是ACCESS执行时自动开启动了事务，而拒绝用户的再操作。其实Ctrl+V进行多行多列粘贴，也会有上述错误提示，但是自建的窗体可以捕捉按键事件，能够自行加入代码判断并阻止批量操作期间的Form_Current()事件，但是怎么用一个Form对象来引用ACCESS的“查找与替换”内置窗体？

例如：Debug.Print Application.Screen.ActiveForm.Name，立即窗体输出：Form1，也就无法用Form对象引用它。

2.即使能引用它，但是怎样判断正在进行“全部替换”这个操作？

3.或者有无其它解决思路。

Answer 1

注：此回复已自动翻译。因此，它可能包含语法错误或表达尴尬。

你好 @何尧

我尝试重现这个问题，但在我的测试中无法触发相同的错误。根据你的描述，这里有一些可能有帮助的建议。

我认为原因很可能是事务冲突。

在使用“全部替换”时，Access 可能会在内部锁定记录并批量处理更新（类似事务）。与此同时，你的 Form_Current() 事件不断强制 SubForm2 刷新其 RecordSource，这就导致了冲突。因此，Access 会报错 2074：事务中不支持的操作。

另外，我觉得不可能用 Access 表单对象来引用这个对话框。内置的“查找和替换”窗口是 Office 的内部对话框（更像是一个命令栏/UI 元素），而不是标准的 Access 表单。因此，它不属于 Forms 集合，这也是为什么 Application.Screen.ActiveForm.Name 仍然返回底层的表单（例如 Form1）的原因。

而且，因为这个对话框不是作为标准的 Access 对象暴露的，它也不提供任何 VBA 事件。没有原生事件（比如 OnClick 或 BeforeUpdate）可以让你检测到“全部替换”按钮何时被执行。

既然你提到替换操作仍然可以成功完成，一个方法就是忽略这个特定错误，以避免打扰用户。这可以保持你当前的结构不变，并防止不必要的错误提示。

Err_Sign:
    If Err.Number = 2074 Then
        Resume Next
    Else
        MsgBox "Err.Number=" & Err.Number & " :" & Err.Description
    End If

另一种方法是在刷新子表单之前引入一个短暂的延迟，这样 Access 就有时间完成批量更新。

像这样修改你的 Form_Current()：

Private Sub Form_Current()
    On Error GoTo Err_Sign
    Me.TimerInterval = 100 ' Delay ~0.1s
    Exit Sub

Err_Sign:
    MsgBox "Err.Number=" & Err.Number & " :" & Err.Description
End Sub

然后把逻辑移到 Form_Timer 事件里：

Private Sub Form_Timer()
    Me.TimerInterval = 0

    Dim S(0) As String
    S(0) = "SELECT Table2.* FROM Table2 WHERE Table2.Field2 = '" & Me.Field1 & "'"

    Me.Parent.Form("SubForm2").Form.RecordSource = S(0)
End Sub

这让 Access 在触发子表单更新之前，有一个短暂的等待时间来完成内部操作。

如果这还不能解决问题，随时提出反馈。

---

注意：如果您希望收到本帖相关的邮件通知，请按照我们文档中的步骤启用电子邮件通知。