Spell Check

[jwebster1979]

I want to have a text box that is serving as a "notes box" that is feeding a
subform to spellcheck automatically before it transfers to my subform.
Basically I want spell check to run before I send the information.

 

[Arvin Meyer [MVP]]

Here's a function that you can call in the AfterUpdate event of the textbox:

Private Sub txtWhatever_AfterUpdate()
On Error Resume Next
With Me.txtWhatever
.SetFocus
.SelStart = 0
.SelLength = Len(Me.txtWhatever)
DoCmd.RunCommand acCmdSpelling
End With
End Sub

 

[jwebster1979]

works great thankyou!!!

Here's a function that you can call in the AfterUpdate event of the textbox:

Private Sub txtWhatever_AfterUpdate()
On Error Resume Next
With Me.txtWhatever
.SetFocus
.SelStart = 0
.SelLength = Len(Me.txtWhatever)
DoCmd.RunCommand acCmdSpelling
End With
End Sub
--
Arvin Meyer, MCP, MVP
http://www.datastrat.com
http://www.accessmvp.com
http://www.mvps.org/access





.

 

[DULCIORA]

"jwebster1979" <[email protected]> escribió en el
mensaje de noticias
news:[email protected]...