If you can't get yours to work on Monday, here is an alternative spell check code by Terry Wickenden that I've used for many years
Code:
'########################################################################
'# Allows spell check of a control (it must be a text box)
'########################################################################
Public Sub SpellCheckControl(ctlSpell As control)
' Adaptation by Terry Wickenden of code
' from Microsoft Knowledge Base
If TypeOf ctlSpell Is TextBox Then
If ctlSpell.Locked = False And ctlSpell.visible = True 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.SetWarnings False
DoCmd.RunCommand acCmdSpelling
DoCmd.SetWarnings True
End If
ElseIf TypeOf ctlSpell Is SubForm Then
If ctlSpell.Locked = False And ctlSpell.visible = True 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.SetWarnings False
DoCmd.RunCommand acCmdSpelling
DoCmd.SetWarnings True
End If
Else
MsgBox "Spell check is not available for this item."
End If
ctlSpell.SetFocus
End Sub
Usage: call a routine like this to spell check all 3 textbox controls just before closing your form
OR do them individually as preferred
Code:
Private Sub RunSpellCheck()
SpellCheckControl Me.Textbox1
SpellCheckControl Me.Textbox2
SpellCheckControl Me.Textbox3
End Sub