Spelling not avtive

  • Thread starter Thread starter Megabrook
  • Start date Start date
M

Megabrook

I am attempting to spell check using TOOLS, SPELLING and error message
appears : no longer available for spell checking!!!

thanks for your help Debbie
 
Megabrook said:
I am attempting to spell check using TOOLS, SPELLING and error message
appears : no longer available for spell checking!!!
Click to expand...

Save the following code in a standard module named something like
basSpelling:

Public Function Spell()
' Arvin Meyer 9/17/1998
' Adapted from code by Terry Wickenden
Dim ctlSpell As Control
Dim frm As Form
Set frm = Screen.ActiveForm
DoCmd.SetWarnings False
' Enumerate Controls collection.
For Each ctlSpell In frm.Controls
If TypeOf ctlSpell Is TextBox Then
If Len(ctlSpell) > 0 Then
With ctlSpell
.SetFocus
.SelStart = 0
.SelLength = Len(ctlSpell)
End With
DoCmd.RunCommand acCmdSpelling
End If
End If
Next
DoCmd.SetWarnings True
End Function

In the Click event of a command button, use:

=Spell()

it will spell check the contents of every textbox on your form.
 
Back
Top