[AccessD] Spell Check Problem

Rocky,
This is just a WAG...
Would it work to:
Do While Not EOF
Instead of 
Do While Me.NewRecord = false

Jim

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
rockysmolin at bchacc.com
Sent: Thursday, March 24, 2011 11:22 AM
To: accessd at databaseadvisors.com
Subject: [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




-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com