Spell Check solution from ijafferr for Access Field. Spell Check window is sometimes beneath main window

Posted on 2008-10-21
Medium Priority
Last Modified: 2012-05-05
Hi, Jaffer's code (enclosed) is very helpful and generally works well however sometimes the Word Spell check window remains underneath the working window and the PC is virtually 'locked' waiting for an input to the spell window. ALT TAB can bring the spell window to the top, however can u supply a little additional code to the function or whatever to bring the spell check code to the foreground.
jjafferr:Hey ssblue
Got your email,
What reminded you of me, it must be my comments to your new Sentence Case question ;o)
Lets take care of your Spell check:
make a new module, call it SpellingCheck
Paste the following code in the module
Function SpellCheck(CheckWhat)
    Dim X As Object
    Set X = CreateObject("Word.Application")
    X.Visible = False
    X.Selection.Text = CheckWhat.Text
    CheckWhat.Text = X.Selection.Text
    X.ActiveDocument.Close savechanges:=wdDoNotSaveChanges
    Set X = Nothing
End Function
Save the module.
In any Form, I will take WeekendScheduling SubForm as an example,
and will use the Field Housekeeping,
In Design view, Right click on Housekeeping and select properties,
go to On Lost Focus and paste the following there,
Save your Form.
Now, everytime you finish writing something in HouseKeeping field, the spell checker will check your spelling and will give you options for corrections.
For any Form/Field you want to spell check, on the Lost Focus of the field, paste
please change YourFieldName to the name of the field where you want to do the spell check,
in my example above,
YourFieldName was replaced with HouseKeeping
hope thi helps,

Open in new window

Question by:jwjjwj
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 2

Expert Comment

ID: 22772858
Consider this spell check solution. I am not associated with this at all, but it is reliable, too and it may make more sense to meet you needs: http://www.pcesoft.com/Access-Spell-Checker-Tool-Source-Code.html
LVL 27

Accepted Solution

jjafferr earned 2000 total points
ID: 22789909

Nice to know that the code is still in use :)

Try this:
Place this code before calling the spell checker Function

AppActivate "microsoft word"

I have seen a few problems with MS Word acting like this,
if this didn't work, then we can simulate Alt Tab, but we will have to know the process ID of MS Word, which makes it a bit complicated.

LVL 27

Expert Comment

ID: 22790274

Author Closing Comment

ID: 31508576
Thanks jaffer, I knew u would have the answer.
Regards JW.

Featured Post

Technology Partners: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Phishing attempts can come in all forms, shapes and sizes. No matter how familiar you think you are with them, always remember to take extra precaution when opening an email with attachments or links.
Did you know that more than 4 billion data records have been recorded as lost or stolen since 2013? It was a staggering number brought to our attention during last week’s ManageEngine webinar, where attendees received a comprehensive look at the ma…
With Microsoft Access, learn how to start a database in different ways and produce different start-up actions allowing you to use a single database to perform multiple tasks. Specify a start-up form through options: Specify an Autoexec macro: Us…
With Secure Portal Encryption, the recipient is sent a link to their email address directing them to the email laundry delivery page. From there, the recipient will be required to enter a user name and password to enter the page. Once the recipient …
Suggested Courses

801 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question