Automatic Spell Check in a Form

  • Thread starter Thread starter RossKK
  • Start date Start date
R

RossKK

How do I get Access to automatically spell check data entered into a specific
field in a form? I would like the spell check to run when the user attempts
to go to the next record.

Thank you!
 
Just out of curiosity, why does it matter? That is, if the users are
getting 'creative' about their spelling, could you provide them with a list
of valid values and not allow them to make up their own?

Regards

Jeff Boyce
Microsoft Office/Access MVP
 
RossKK said:
How do I get Access to automatically spell check data entered into a
specific
field in a form? I would like the spell check to run when the user
attempts
to go to the next record.
Click to expand...

Put the following code in a Standard Module named basSpell:

Public Function Spell()
' Arvin Meyer 9/17/1998
' Adapted from code by Terry Wickenden
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

Now call it in the form's BeforeUpdate event.
 
Back
Top