Spell Check Memo Code NOT Working, Need Help

[Dave Elliott]

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

 

[StCyrM]

Works fine here ...

 

[Dirk Goldgar]

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?

 

[Dave Elliott]

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]

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.