ms-access - MS Access 表单字段中的拼写检查代码 - 接受更改时抛出错误

Question

我在 MS Access 表单中的文本框的 AfterUpdate 事件中添加了以下代码:

Private Sub txtComments_AfterUpdate()
With Me!txtComments
    .SetFocus
    If Len(.Value) > 0 Then
        DoCmd.SetWarnings False
        .SelStart = 1
        .SelLength = Len(.Value)
        DoCmd.RunCommand acCmdSpelling
        .SelLength = 0
        DoCmd.SetWarnings True
    End If
End With
End Sub

这会在用户退出该字段时运行拼写检查。它部分有效。它打开拼写检查对话框，并定位第一个错误。问题是，当您单击忽略、更改等来处理/修复拼写错误时，代码失败并出现以下错误框:

“为此字段设置为 BeforeUpdate 或 ValidationRule 属性的宏或函数阻止 Microsoft Office Access 保存该字段中的数据。”

我尝试在拼写检查代码之前添加记录保存代码:

DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70

但这并没有解决它。

Answer 1

此代码用作 On Exit 事件(而不是 After Update)。

Private Sub txtComments_Exit(Cancel As Integer)
With Me!txtComments
    .SetFocus
    If Len(.value) > 0 Then
        .SelStart = 1
        .SelLength = Len(.value)
        DoCmd.RunCommand acCmdSpelling
        .SelLength = 0
    End If
End With
End Sub