MS Access表单字段中的拼写检查代码-接受更改时引发错误

此代码用作“退出时”事件(而不是“更新后”事件)。

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

使用与控件关联的更新事件是不起作用的,因为每次更改都会再次触发该事件。你需要一个按钮,或者类似的东西:

Private Sub Spell_Click()
    With Me!txtComments
        .SetFocus
        .SelStart = 0
        .SelLength = Len(Me!txtComments)
    End With
    DoCmd.RunCommand acCmdSpelling
End Sub

通过添加一行可以避免On Exit事件的一些问题:

    If Me.txtComments.Value <> Me.txtComments.OldValue Then
       With Me!txtComments
           .SetFocus
           .SelStart = 0
          .SelLength = Len(Me!txtComments)
       End With
    <...>    

至少这只会在您通过控件时运行,直到记录被保存,而不是每次都运行,无论txtComments是否更改。