Spell Check Memo Code NOT Working, Need Help

Cant seem to make this code work. It just gives me the message Spell check
is not available for this item
It is on a Memo field.





On Error Resume Next

Dim ctlSpell As Control

' Check the spelling in the selected text box


Set ctlSpell = Screen.PreviousControl
If TypeOf ctlSpell Is TextBox Then
If IsNull(Len(ctlSpell)) Or Len(ctlSpell) = 0 Then
MsgBox "There is nothing to spell check."
ctlSpell.SetFocus
Exit Sub
End If
With ctlSpell
.SetFocus
.SelStart = 0
.SelLength = Len(ctlSpell)
End With
DoCmd.RunCommand acCmdSpelling
Else
MsgBox "Spell check is not available for this item."
End If

ctlSpell.SetFocus

Works fine here ...

"Dave Elliott" wrote in message
m...
Cant seem to make this code work. It just gives me the message Spell check
is not available for this item
It is on a Memo field.





On Error Resume Next

Dim ctlSpell As Control

' Check the spelling in the selected text box


Set ctlSpell = Screen.PreviousControl
If TypeOf ctlSpell Is TextBox Then
If IsNull(Len(ctlSpell)) Or Len(ctlSpell) = 0 Then
MsgBox "There is nothing to spell check."
ctlSpell.SetFocus
Exit Sub
End If
With ctlSpell
.SetFocus
.SelStart = 0
.SelLength = Len(ctlSpell)
End With
DoCmd.RunCommand acCmdSpelling
Else
MsgBox "Spell check is not available for this item."
End If

ctlSpell.SetFocus

How are you triggering this code? What event is it in, and what control is
that event attached to?

--
Dirk Goldgar, MS Access MVP
www.datagnostics.com

(please reply to the newsgroup, not by e-mail)

It is being triggered using the Double Click Event. The field is a memo
field and the name of the control is Job and actual control name is Job
Description.

"Dirk Goldgar" wrote in message
...
"Dave Elliott" wrote in message
m...
Cant seem to make this code work. It just gives me the message Spell
check
is not available for this item
It is on a Memo field.





On Error Resume Next

Dim ctlSpell As Control

' Check the spelling in the selected text box


Set ctlSpell = Screen.PreviousControl
If TypeOf ctlSpell Is TextBox Then
If IsNull(Len(ctlSpell)) Or Len(ctlSpell) = 0 Then
MsgBox "There is nothing to spell check."
ctlSpell.SetFocus
Exit Sub
End If
With ctlSpell
.SetFocus
.SelStart = 0
.SelLength = Len(ctlSpell)
End With
DoCmd.RunCommand acCmdSpelling
Else
MsgBox "Spell check is not available for this item."
End If

ctlSpell.SetFocus

How are you triggering this code? What event is it in, and what control
is
that event attached to?

--
Dirk Goldgar, MS Access MVP
www.datagnostics.com

(please reply to the newsgroup, not by e-mail)

"Dave Elliott" wrote in message
...
It is being triggered using the Double Click Event. The field is a memo
field and the name of the control is Job and actual control name is Job
Description.

The DblClick event of what? Of the text box itself? Reading it over, it
looks to me like that code is meant to be executed from some other control,
like the Click event of a command button. It's trying to spell-check the
control that *previously* had the focus. I don't know what you mean by "the
name of the control is Job and actual control name is Job Description", but
I guess you mean that the control is named "Job" and it's bound to a field
named "Job Description". If that is the case, try this modification of the
code:

'----- start of revised code -----
Private Sub Job_DblClick(Cancel As Integer)

On Error GoTo Err_Handler

Dim ctlSpell As Control

' Check the spelling in the selected text box

With Me!Job
If Len(.Value & vbNullString) = 0 Then
MsgBox "There is nothing to spell check."
Else
.SelStart = 0
.SelLength = Len(ctlSpell)
DoCmd.RunCommand acCmdSpelling
End If
End With

Exit_Point:
Exit Sub

Err_Handler:
MsgBox Err.Description, vbExclamation, "Error " & Err.Number
Resume Exit_Point

End Sub
'----- end of revised code -----

If I've got the name of the control wrong, then you need to change the name
of the procedure and the "With Me!Job" line.

--
Dirk Goldgar, MS Access MVP
www.datagnostics.com

(please reply to the newsgroup, not by e-mail)