O365 (Access 2016) 中的 VBA 拼写检查崩溃访问

Question

我在 Access 2010 中运行了以下代码 On Lost Focus 事件，没有任何问题。

Dim strSpell
 strSpell = txtMyField
 If IsNull(Len(strSpell)) Or Len(strSpell) = 0 Then
 Exit Sub
 End If
 With txtMyField
 .SetFocus
 .SelStart = 0
 .SelLength = Len(strSpell)
 End With
 DoCmd.SetWarnings False
 DoCmd.RunCommand acCmdSpelling
 DoCmd.SetWarnings True

升级到 O365 (Access 2016) 后，拼写检查没有问题，除非有多个拼写更正。如果用户选择全部更改或更改超过 1 个字 Access crash 并且用户需要重新启动程序。我试图更改代码以运行 On Exit 事件，但没有帮助。我也反编译了数据库，没有发现错误。

我可以运行拼写检查的唯一方法是使用功能区上的拼写检查。我隐藏了功能区以防止用户乱来，所以这个选项不起作用。另外，我想将拼写检查限制在一个字段中，并在用户退出该字段后强制执行。

我猜测 Access 正在崩溃，因为不止一次更正再次触发该事件，并且由于拼写检查已经在运行程序崩溃。知道如何解决吗？

评论的更新说明

• 在我的测试中，我发现当您按 Enter 几次时， 在字段中输入，它会导致程序崩溃。
• 文本字段为长文本
• 表单域绑定到文本域

Answer 1

我能够使用长文本字段和 3500 个字符以及大量带有“拼写错误”的项目重复挂起过程“未响应”消息。

使用您的代码，它会因 LostFocus 代码而崩溃，或者即使我将它放在命令按钮中。

我开始怀疑是否是整个文本选择导致拼写检查器在尝试完成其工作时出现错误 - 以及是否需要这样做。

当我将您的代码移出 LostFocus 事件并用 Exit 事件中的此代码替换它时，它可以可靠地工作

编辑：将代码移动到退出事件并指定特定的文本字段

Private Sub txtMyField_Exit(Cancel As Integer)

    With txtMyField
        'If the textbox has data run the Spell Checker   
        If Len(.Value & "") > 0 Then
            .SetFocus
            .SelStart = 0
            .SelLength = Len(.Value)
            DoCmd.SetWarnings False
            DoCmd.RunCommand acCmdSpelling
            DoCmd.SetWarnings True
            .SelLength = 0
        End If
    End With
End Sub