On Sat, 27 Feb 2010 15:54:25 GMT, "Afrosheen via AccessMonster.com"
<u46942@uwe> wrote:

An alternative to writing code may be for you to Filter rather than
Find.

-Tom.
Microsoft Access MVP


>When looking for a record that has duplicate last names I can press cmdNext
>to get the next record. The source control is based on a master query. Once I
>keep pressing the cmdNext it will find all the codes. When it gets to the end
>of the cmdNext I would like something to say that this is the end of the
>records. I don't believe it is a recordset and I'm not sure how to check and
>see if it is.
>
>This is the code for the cmdNext. Your help would be appreciated. Thanks in
>advance.
>
>Private Sub cmdNext_Click()
>On Error GoTo Err_cmdNext_Click
>
> Screen.PreviousControl.SetFocus
> DoCmd.FindNext
>
>Exit_cmdNext_Click:
> Exit Sub
>
>Err_cmdNext_Click:
> MsgBox Err.Description
> Resume Exit_cmdNext_Click
>
>End Sub

Hey Afrosheen! What is your email? I tried to send you an email and it
bounced back to me. I have something that should do what you want, or get
you pretty close...

Since the email listed under your name doesn't work, send me an email and
I'll reply back with a file that should do what you want. I can't find the
original source, so I can't post it here.

Ryan---
(E-Mail Removed)

--
Ryan---
If this information was helpful, please indicate this by clicking ''Yes''.


"Tom van Stiphout" wrote:

> On Sat, 27 Feb 2010 15:54:25 GMT, "Afrosheen via AccessMonster.com"
> <u46942@uwe> wrote:
>
> An alternative to writing code may be for you to Filter rather than
> Find.
>
> -Tom.
> Microsoft Access MVP
>
>
> >When looking for a record that has duplicate last names I can press cmdNext
> >to get the next record. The source control is based on a master query. Once I
> >keep pressing the cmdNext it will find all the codes. When it gets to the end
> >of the cmdNext I would like something to say that this is the end of the
> >records. I don't believe it is a recordset and I'm not sure how to check and
> >see if it is.
> >
> >This is the code for the cmdNext. Your help would be appreciated. Thanks in
> >advance.
> >
> >Private Sub cmdNext_Click()
> >On Error GoTo Err_cmdNext_Click
> >
> > Screen.PreviousControl.SetFocus
> > DoCmd.FindNext
> >
> >Exit_cmdNext_Click:
> > Exit Sub
> >
> >Err_cmdNext_Click:
> > MsgBox Err.Description
> > Resume Exit_cmdNext_Click
> >
> >End Sub
> .
>