Open Form Move to last record (1 Viewer)

MarkA70 · Feb 16, 2016

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 · Feb 16, 2016

Why not just

DoCmd.GoToRecord , , acLast

?

arnelgp · Feb 16, 2016

Code:

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 · Feb 16, 2016

THANKS!!!!! Both work PERFECTLY!

Houcine_JS · Sep 20, 2019

sneuberg said:
Why not just

DoCmd.GoToRecord , , acLast

?

Perfect, Thank You

isladogs · Sep 20, 2019

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

Pat Hartman · Sep 21, 2019

"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.

Open Form Move to last record (1 Viewer)

MarkA70

Registered User.

sneuberg

AWF VIP

arnelgp

..forever waiting... waiting for jellybean!

MarkA70

Registered User.

Houcine_JS

New member

isladogs

MVP / VIP

Pat Hartman

Super Moderator

Similar threads

Users who are viewing this thread