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.