Spell check on form fields not working

[scoe]

I found some brilliant code for spell checking a form:
[Private Sub YOURFIELDNAME_Exit(Cancel As Integer)
Dim strSpell
strSpell = FIELDNAME
If IsNull(Len(strSpell)) Or Len(strSpell) = 0 Then
Exit Sub
End If
With FIELDNAME


.SetFocus
.SelStart = 0
.SelLength = Len(strSpell)
End With
DoCmd.SetWarnings False
DoCmd.RunCommand acCmdSpelling
DoCmd.SetWarnings True
End Sub]

It works perfectly in one database but not the one I need it to work in as it will not let you out of the field if there is text already there.... When the warnings are switched on it continually repeats that the spell check is complete but wont let you out of the field..... Would be grateful if anyone has any ideas.

[scoe]

Seems this was due to the form having tabs, replaced code with a public function and it now works.