Home | Contact Us | FAQ | Search & Site Map | Link to Us
Sign In | Join | Other 45 Sites in Network
Home
Discussion GroupsFormsForms ProgrammingQueriesModules / DAO / VBAReports / PrintingMacrosDatabase DesignSecurityConversionImporting / LinkingSQL Server / ADPMultiuser / NetworkingReplicationSetup / ConfigurationDeveloper ToolkitsActiveX ControlsNew UsersGeneral 1General 2
Access DirectoryToolsTutorialsUser Groups
Related Topics
SQL ServerOther DB ProductsMS OfficeMore Topics ...

MS Access Forum / Forms Programming / November 2005

Tip: Looking for answers? Try searching our database.

Navigation Button Flaws

Thread view: 
Enable EMail Alerts  Start New Thread
Thread rating: 
MBoozer - 29 Nov 2005 03:10 GMT
I hope I'm not posting too much. I have general question regarding lebans and
access' custom navigation buttons. Steve did a great job of creating the
code. However, I use a lot of them in my forms and trying to keep track of
the call routineswas getting kind of hairy but I got use to it. I then
started to notice that sometimes they "stick" and don't go to the end record
for a total count (Displays 1 of 1 record when it should be 1 of 3 records).
At first I thought this was a bug in lebans code and tried something else
like the following code on my form's oncurrent event that I also found on the
Net. Guess what? It still hangs when you open the form. If you click the next
button, it will then show record 2 of 3 and works from there on (until of  
oourse you close the form and then reopen it). This has been an intermittment
problem that seems to come and go. Sometimes reinstalling lebans form will do
the trick. Sometimes it won't. Am I missing something or is this just the way
it is with custom navigation buttons? The code oncurrent is as follows:

'Start custom navigation buttons
   If Me.NewRecord Then
   Me!lblNavigate.Caption = "New Record"
   Else
   With Me.RecordsetClone
   .Bookmark = Me.Bookmark
   Me!lblNavigate.Caption = "Record " & Me.CurrentRecord _
   & " of " & Me.Recordset.RecordCount & " Suppliers "
   End With
   End If

'btnNext.Enabled = CBool(Me.CurrentRecord - 1)
'btnNext.Enabled = Not Me.NewRecord
'btnNext.Enabled = (Me.CurrentRecord < Me.RecordsetClone.RecordCount)
'btnLast.Enabled = CBool(Me.CurrentRecord - 1)
'btnLast.Enabled = Not Me.NewRecord
'End custom avigation buttons
Shane S - 29 Nov 2005 06:02 GMT
Hey MBoozer,

How are you opening the forms that have the navigation buttons on them?  Can
you post the code your using to open ("the sticking navigation buttons") form?

Shane

>I hope I'm not posting too much. I have general question regarding lebans and
>access' custom navigation buttons. Steve did a great job of creating the
[quoted text clipped - 28 lines]
>'btnLast.Enabled = Not Me.NewRecord
>'End custom avigation buttons
MBoozer - 29 Nov 2005 19:00 GMT
I open itup by clicking on the form name in access. I also tried putting a
control on another form with just a standard open statement but still same
probem. The sticking buttons are located on a subform for what it may be
worth.

> Hey MBoozer,
>
[quoted text clipped - 35 lines]
> >'btnLast.Enabled = Not Me.NewRecord
> >'End custom avigation buttons
Shane S - 29 Nov 2005 20:17 GMT
Hey Boozer,

I asked because it sounds like there could have been a link call.  Now that
you've told me that it's on a subform you may want to investigate your
parent/child link and see what you find there.  Not saying I'm right but at
least trying to give you a direction to look.

HTH,
Shane

>I open itup by clicking on the form name in access. I also tried putting a
>control on another form with just a standard open statement but still same
[quoted text clipped - 6 lines]
>> >'btnLast.Enabled = Not Me.NewRecord
>> >'End custom avigation buttons
MBoozer - 30 Nov 2005 02:40 GMT
Hey Shane: Thanks a mil but I checked the childlinks. By the way, its on a
form, not a subform. At any rate, still can't get it to work. I'll keep
trying. Thanks.

> Hey Boozer,
>
[quoted text clipped - 16 lines]
> >> >'btnLast.Enabled = Not Me.NewRecord
> >> >'End custom avigation buttons
 
Sign In
Join
My Latest Posts
My Monitored Threads
My Blog
My Photo Gallery
My Profile
My Homepage

Start New Thread
Enable EMail Alerts
Rate this Thread



©2008 Advenet LLC   Privacy Policy - Terms of Use
This website includes both content owned or controlled by Advenet as well as content owned or controlled by third parties.