ACCESS FEED: Re: [MS_AccessPros] Re: Custom navigation button

Senin, 05 Maret 2012

Re: [MS_AccessPros] Re: Custom navigation button

I think I was ovethinking the issue. I came up with:

Private Sub cmdNext_Click()
   If Me.CurrentRecord <> Recordset.RecordCount Then
      DoCmd.RunCommand acCmdRecordsGoToNext
   Else
      MsgBox "There is no record after this.", , "Last Record"
   End If
'DoCmd.GoToRecord , , acNext

End Sub

Private Sub cmdPrevious_Click()
On Error GoTo Err_cmdPreviousRecord_Click
     DoCmd.GoToRecord , , acPrevious ' move to previous record

Exit_cmdPreviousRecord_Click:
Exit Sub
Err_cmdPreviousRecord_Click:
         MsgBox "There is no record prior to this", , "First Record"
         Resume Exit_cmdPreviousRecord_Click

End Sub

With warm regards,

Arthur Lorenzini
Sioux Falls, South Dakota

________________________________
From: Bill Mosca <wrmosca@comcast.net>
To: MS_Access_Professionals@yahoogroups.com
Sent: Friday, March 2, 2012 4:01 PM
Subject: [MS_AccessPros] Re: Custom navigation button

Art

Check our Files>Samples folder. There is a Form_navbuttons sample. If it's missing anything you need help with let me know.

Regards,
Bill Mosca, Founder - MS_Access_Professionals
http://www.thatlldoit.com
Microsoft Office Access MVP
https://mvp.support.microsoft.com/profile/Bill.Mosca

--- In MS_Access_Professionals@yahoogroups.com, "Art" <dbalorenzini@...> wrote:
>
> Is there any good examples of how to setup custom navigation buttons. I would also like to be able to setup a label that would contain the record count "Record X of Y" which would update as Iuse the nav buttons.
>
> THank you ,
>
> Art Lorenzini
> Sioux Falls, SD
>

[Non-text portions of this message have been removed]