[AccessD] Spell Check Problem

Dan:

That works, but the spell check still stops after the first correction.  

Rocky
 

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Dan Waters
Sent: Thursday, March 24, 2011 11:06 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Spell Check Problem

Try:

Do While Not Me.Recordset.EOF

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin
Sent: Thursday, March 24, 2011 12:32 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Spell Check Problem

Jim:

I get a compile error on the EOF - argument not optional.

Rocky
 

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of jm.hwsn
Sent: Thursday, March 24, 2011 9:45 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [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

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

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


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