Buttons on form to navigate through records

[emilyrogers]

I have this code

Private Sub Form_Current()
 Dim rst As DAO.Recordset
 Dim lngCount As Long
 Set rst = Me.RecordsetClone
 With rst
 lngCount = RecordsetClone
 If lngCount > 0 Then
 .MoveFirst
 .MoveLast
 lngCount = .RecordCount
 End If
 End With
 Me.Text241 = "Record " & Me.CurrentRecord & " of " & lngCount

End Sub

And The idea is that "Text241" is a textbox at the bottom of the form with 2 buttons either side of it eg Go to first, go to prev, go to next , go to last.
and what i want displayed in the textbox is " Record X of Y" X being the record number and Y being the total number of records.
what am I doing wrong?

Thank You In Advance!

[ajetrumpet]

try:

Private Sub Form_Current()
 Dim rst As DAO.Recordset
 Dim lngCount As Long
 Set rst = Me.RecordsetClone
 With rst
.movelast
.movefirst
 lngCount = rst.recordcount
 End With
 Me.Text241 = "Record " & Me.CurrentRecord & " of " & lngCount

End Sub

you might also be better off setting a private variable for the entire form's module, setting it with recordcount on form OPEN and then referring to that on the "current" event. that way code doesn't have to open a data set on everyrecord.

[emilyrogers]

Thank You so much! I have sorted it!

try:

Private Sub Form_Current()
 Dim rst As DAO.Recordset
 Dim lngCount As Long
 Set rst = Me.RecordsetClone
 With rst
.movelast
.movefirst
 lngCount = rst.recordcount
 End With
 Me.Text241 = "Record " & Me.CurrentRecord & " of " & lngCount

End Sub

you might also be better off setting a private variable for the entire form's module, setting it with recordcount on form OPEN and then referring to that on the "current" event. that way code doesn't have to open a data set on everyrecord.