Spell check problem in Access 2007

[Dale_Fye via AccessMonster.com]

I've recently migrated to Office 2007, although I'm still doing work in 2003
mdb format for backward compatability within my office.

In the application I'm working on, I have a shortcut menu that pops up when I
right click in a text box. One of the options is spell checking, and I run a
custom spell check routine using the docmd.runcommand acCmdSpelling.
Unfortunately, this is locking up my Access application. The only way I have
been able to get out us by using the Task Manager to close Access.

I have not seen any posts similar to this, so thought I'd check it out.

BTW, When I highlight my text and click Spelling on the menu bar, it runs
properly.

 

[Ken Warthen]

Dale,

So is the version in which your application is hanging 2003 or 2007? I use
a spell check feature in an Access 2007 form I use to send an email from
within my access application. When a spell check button is clicked it
invokes "RunCommand acCmdSpelling". I've never had a problem with it. Maybe
leaving out the "DoCmd" will solve your problem. — Ken

 

[Stuart McCall]

I've recently migrated to Office 2007, although I'm still doing work in
2003
mdb format for backward compatability within my office.

In the application I'm working on, I have a shortcut menu that pops up
when I
right click in a text box. One of the options is spell checking, and I
run a
custom spell check routine using the docmd.runcommand acCmdSpelling.
Unfortunately, this is locking up my Access application. The only way I
have
been able to get out us by using the Task Manager to close Access.

I have not seen any posts similar to this, so thought I'd check it out.

BTW, When I highlight my text and click Spelling on the menu bar, it runs
properly.

I don't have A2007 yet, so this is just a guess. Try:

Application.RunCommand acCmdSpelling

 

[Dale Fye]

Have tried several different steps, but this is failing every time I try to
run the spell checker using the following code.

Public Function fnTextSpell()

Dim ctrl As TextBox

MsgBox "This function is not currently available"
Exit Function

Set ctrl = Screen.ActiveControl
With ctrl
If ctrl.SelLength = 0 Then
ctrl.SelStart = 0
ctrl.SelLength = Len(ctrl.Text)
End If
End With

DoCmd.RunCommand acCmdSpelling
'Application.RunCommand acCmdSpelling

End Function


--
HTH
Dale

Don''''t forget to rate the post if it was helpful!

email address is invalid
Please reply to newsgroup only.