Please Help:Use spell check with forms

[Barbara]

The spell check does not work with my form. I can
intentionally mispell a word and use spell check and it
returns that spell check is completed without opening up
the spell check dialoge box. The word is still mispelled. I
have turned all memo fields into text fields, switched
to allow edits, and used no locks. None of this works. What
am I doing wrong? As you can see I need spell check
desperately!!!

[Arvin Meyer]

Put this is a standard function, and call it from a command button like:

=Spell()
----------------Begin Code------------------------
Public Function Spell()
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
---------------End Code-----------------------------
--
Arvin Meyer, MCP, MVP
Microsoft Access
Free Access downloads:
http://www.datastrat.com
http://www.mvps.org/access

"Barbara" <ban...@ddrcco.com> wrote in message
news:13dab01c26e25$8764a300$3bef2ecf@TKMSFTNGXA10...

[Al Whine]

>.
>Arvin, I have a couple of questions, if I might. The
notation accompanying Spell (= and ()), is this functional
or convention? Can I use this code to spell check a combo
box? If not, how would I do that?