Navigation Button Flaws

[MBoozer]

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 via AccessMonster.com]

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

 

[MBoozer]

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.

 

[Shane S via AccessMonster.com]

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
probem. The sticking buttons are located on a subform for what it may be
worth.

Hey MBoozer,

[quoted text clipped - 35 lines]

 

[MBoozer]

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,

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
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