Spell check (1 Viewer)

[Mr. SLP]

this might be a little dumb but... is there anyway to have spell check auto run whenever focus changes between controls, without having to code it into each control? I got this code that works great and set it up on an OnExit event but wondering if there's a way to make it work for all items on a form.

Private Sub YOURFIELDNAME_Exit(Cancel As Integer) 
Dim strSpell
    strSpell = YOURFIELDNAME
    If IsNull(Len(strSpell)) Or Len(strSpell) = 0 Then
       Exit Sub
    End If
    With YOURFIELDNAME
        .SetFocus
        .SelStart = 0
        .SelLength = Len(strSpell)
    End With
    DoCmd.SetWarnings False
    DoCmd.RunCommand acCmdSpelling
    DoCmd.SetWarnings True
End Sub

 

[nhorton79]

Try looping through all text boxes on the form using:

For Each ctlVar In Me.Controls
If ctlVar.ControlType = acTextBox Then

<= Put your spell check code here

End If


I’m away from computer at the moment but something like like should be able to help you with a little tinkering..


Sent from my iPhone using Tapatalk