Solved

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

Posted on 2008-10-21
4
562 Views
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.
Thanks
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:
 

1-

make a new module, call it SpellingCheck
 

2-

Paste the following code in the module
 

Function SpellCheck(CheckWhat)

    

    Dim X As Object

    CheckWhat.SetFocus

    Set X = CreateObject("Word.Application")

    X.Visible = False

    X.Documents.Add

    X.Selection.Text = CheckWhat.Text

    X.ActiveDocument.CheckSpelling

    CheckWhat.Text = X.Selection.Text

    X.ActiveDocument.Close savechanges:=wdDoNotSaveChanges

    X.Quit

    Set X = Nothing

    

End Function
 

3-

Save the module.
 

4-

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,

=SpellCheck([HouseKeeping])
 

5-

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

=SpellCheck([YourFieldName])

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,
 

jaffer

Open in new window

0
Comment
Question by:jwjjwj
  • 2
4 Comments
 
LVL 7

Expert Comment

by:donpricejr
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
0
 
LVL 27

Accepted Solution

by:
jjafferr earned 500 total points
ID: 22789909
Hi

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.

jaffer
0
 
LVL 27

Expert Comment

by:jjafferr
ID: 22790274
0
 

Author Closing Comment

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

Featured Post

Maximize Your Threat Intelligence Reporting

Reporting is one of the most important and least talked about aspects of a world-class threat intelligence program. Here’s how to do it right.

Join & Write a Comment

When you are entering numbers in a speadsheet, and don't remember what 6×7 is, you just type “=6*7" instead. It works in every cell! This is not so in Access. To enter the elusive 42 in a text box, you have to find a calculator, and then copy the re…
Introduction The Visual Basic for Applications (VBA) language is at the heart of every application that you write. It is your key to taking Access beyond the world of wizards into a world where anything is possible. This article introduces you to…
In Microsoft Access, learn how to use Dlookup and other domain aggregate functions and one method of specifying a string value within a string. Specify the first argument, which is the expression to be returned: Specify the second argument, which …
In Microsoft Access, when working with VBA, learn some techniques for writing readable and easily maintained code.

746 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

Need Help in Real-Time?

Connect with top rated Experts

13 Experts available now in Live!

Get 1:1 Help Now