[AccessD] Spell Check Problem

Dear List:

I have a routine in an app which spell checks a field.  There's a
command button that will go through all the records in the recordset and
spell check each record.  Problem is that when it prompts for a
correction and the user clicks change or change all, the correction is
made but then the spell checking stops.  Here's the code:

    DoCmd.GoToRecord , , acFirst
    Me.txtTimeEntryNarrative.Enabled = True
    Me.txtTimeEntryNarrative.Locked = False

    Do While Me.NewRecord = False
        Me.txtTimeEntryNarrative.SetFocus
        Me.txtTimeEntryNarrative.SelStart = 0
        If Not IsNull(Me.txtTimeEntryNarrative) Then
            Me.txtTimeEntryNarrative.SelLength =
Len(Me.txtTimeEntryNarrative)
            DoCmd.SetWarnings False
            DoCmd.RunCommand acCmdSpelling
            DoCmd.SetWarnings True
        End If
        DoCmd.GoToRecord , , acNext
    Loop

Is there a workaround for this problem?

MTIA

Rocky