Open Form Move to last record

[MarkA70]

SOLVED: Open Form Move to last record

I am trying to open a form and move to the last record. I am using this code:


Private Sub Form_Load()
If Me.RecordsetClone.RecordCount > 0 Then
Me.RecordsetClone.MoveLast
End If
End Sub

It does not move me to last record, how might it be modified?

 

[sneuberg]

Why not just

DoCmd.GoToRecord , , acLast

?

 

[arnelgp]

Private Sub Form_Load()
dim rs As Dao.Recordset
set rs = Me.RecordSetClone
with rs
If Not (.BOF and .EOF) Then
.MoveLast
Me.BookMark = rs.Bookmark
End If
.Close
End With
End Sub

 

[MarkA70]

THANKS!!!!! Both work PERFECTLY!

 

[Houcine_JS]

Why not just

DoCmd.GoToRecord , , acLast

?

Perfect, Thank You

 

[isladogs]

another method is just to sort the form records in revere order so the first record is the latest entered.

 

[Pat Hartman]

"Last" has meaning only in flat files. If you always want to see the most recent entry when you open a form, sort the form's RecordSource query, descending on the Autonumber.

PS, I never bind my forms to tables or to queries without criteria but as long as you never need to upsize this application to SQL Server, you'll probably be OK.