Record Y of X question

[BerkshireGuy]

I am trying to make a custom navigation label to display record Y of X.
Dev Ashish's code placed in the OnCurrent Event:

Private Sub Form_Current()
If Me.NewRecord Then
Me!lblNavigate. Caption = "New Record"
Else
With Me.RecordsetClo ne
.Bookmark = Me.Bookmark
Me!lblNavigate. Caption = "Record " & _
.AbsolutePositi on + 1 _
& " of " & .RecordCount
End With
End If
End Sub

I have a Sort Option Box that allows the user to select custom sorts.
I placed the following code in the AfterUpdate Event of the option box:
Select Case Me.optSortRecor ds.Value
Case 1
Me.FilterOn = False
Case 2
Me.Filter = "[DelegatedTo] Is Null"
Me.FilterOn = True
Case 3
Me.Filter = "[DelegatedTo] Is Not Null"
Me.FilterOn = True
Case 4
Me.Filter = "[DelegatedTo] Is Not Null"
Me.FilterOn = True
End Select

However, when a option is selected, it doesnt appear to update the
custom navigation count. I even tried placing Dev's code in the the
AfterUpdate code of the option box, with no luck.

Any suggestions?

[MGFoster]

BerkshireGuy wrote:

I am trying to make a custom navigation label to display record Y of X.
Dev Ashish's code placed in the OnCurrent Event:

Private Sub Form_Current()
If Me.NewRecord Then
Me!lblNavigate. Caption = "New Record"
Else
With Me.RecordsetClo ne
.Bookmark = Me.Bookmark
Me!lblNavigate. Caption = "Record " & _
.AbsolutePositi on + 1 _
& " of " & .RecordCount
End With
End If
End Sub

I have a Sort Option Box that allows the user to select custom sorts.
I placed the following code in the AfterUpdate Event of the option box:
Select Case Me.optSortRecor ds.Value
Case 1
Me.FilterOn = False
Case 2
Me.Filter = "[DelegatedTo] Is Null"
Me.FilterOn = True
Case 3
Me.Filter = "[DelegatedTo] Is Not Null"
Me.FilterOn = True
Case 4
Me.Filter = "[DelegatedTo] Is Not Null"
Me.FilterOn = True
End Select

However, when a option is selected, it doesnt appear to update the
custom navigation count. I even tried placing Dev's code in the the
AfterUpdate code of the option box, with no luck.

Any suggestions?

Why not just use the Navigation buttons? It shows the Record X of Y.

--
MGFoster:::mgf0 0 <at> earthlink <decimal-point> net
Oakland, CA (USA)

[jorpemar]

Sorry for my english.
I think that the problem of the recordcount and absolutepositio n is that
they are properties of the recordset asociated with the form, so if you
filter it, you are not changing the recordset. My solution will be that when
you change the option box you will do the filter as an SQL statement
changing the Recordsource property of the form. It will do that the
recorcount and absolute position will be OK.

Select Case Me.optSortRecor ds.Value
Case 1
Me.RecordSource = "SELECT * FROM YourTable"
Case 2
Me.RecordSource = "SELECT * FROM YourTable WHERE DelegatedTo IS NULL"
............... .........

Another suggestion is that you have to be carefull with the AbsolutePositio n
property because it will not return any good value depending on the type of
recordset (dynamic and forwardonly will fail) and if you use it with a DAO
it is base 0 and if you use it with an ADO it is base 1.

"BerkshireG uy" <bd*****@yahoo. com> escribió en el mensaje
news:11******** *************@g 44g2000cwa.goog legroups.com...

I am trying to make a custom navigation label to display record Y of X.
Dev Ashish's code placed in the OnCurrent Event:

Private Sub Form_Current()
If Me.NewRecord Then
Me!lblNavigate. Caption = "New Record"
Else
With Me.RecordsetClo ne
.Bookmark = Me.Bookmark
Me!lblNavigate. Caption = "Record " & _
.AbsolutePositi on + 1 _
& " of " & .RecordCount
End With
End If
End Sub

I have a Sort Option Box that allows the user to select custom sorts.
I placed the following code in the AfterUpdate Event of the option box:
Select Case Me.optSortRecor ds.Value
Case 1
Me.FilterOn = False
Case 2
Me.Filter = "[DelegatedTo] Is Null"
Me.FilterOn = True
Case 3
Me.Filter = "[DelegatedTo] Is Not Null"
Me.FilterOn = True
Case 4
Me.Filter = "[DelegatedTo] Is Not Null"
Me.FilterOn = True
End Select

However, when a option is selected, it doesnt appear to update the
custom navigation count. I even tried placing Dev's code in the the
AfterUpdate code of the option box, with no luck.

Any suggestions?