Access 2007 Split Form

Tech Tip: Click here to run a free scan for Windows Errors and optimize PC performance



Hi. Using the following code to emulate the record count
on the navigation buttons.

Dim RecClone As Recordset
Dim intCount As Integer
Dim intPosition As Integer

Set RecClone = Me.RecordsetClone()

If IsNull(Me.DvdMovieID) Then

Else

RecClone.MoveLast
intCount = RecClone.RecordCount
RecClone.Bookmark = Me.Bookmark
intPosition = RecClone.AbsolutePosition + 1
lblCount.Caption = intPosition & " of " & intCount

End If

RecClone.Close

When I click on the "Record Selector" on the Data*** nothing
happens. The records indicators on the forms Navigation Buttons
seem to work but I can't get the label to display the record number
when selecting a record.

Before you ask, I don't particularly like the form's Navigation Buttons.\
Their too small and I'd like to create my own Nav Bar.


.


Quantcast