How do I let Base jump to the last record of a table in a form?

geogre · August 8, 2019, 4:08pm

Hello,

I am using a database form displaying a table to enter data. When I open that form it takes a second until it’s opened and then the first record is selected (the oldest entry).

I would absolutely love it to jump automatically to the LAST line (the newest record) instead!

The way it is now, I always have to click the “jump to last entry” icon…

Thank you for any help!

Villeroy · July 19, 2024, 6:51pm

WIthout macro, just sort the form in descending order, so the latest records appear on top. This can be preset by a form property. This can be enforced by a simple query like "SELECT * FROM "Table" ORDER BY "ID" DESC

EasyTrieve · August 15, 2019, 1:43pm

If you just want to move to the last record, without moving to the insert record (the one after the last record), then hook this to Form’s When Loading event:

Option Explicit

Private Sub WhenLoadingNew(oEvent As Object)
   REM Clone allows record motion independent of record updating

   Dim oForm   	  As Object :oForm		= oEvent.Source
   Dim oDoc		  As Object :oDoc		= ThisComponent
   oDoc.lockControllers
       oForm.moveToInsertRow  ' Pushes windows down to allow this to easily show later'
       oForm.Last
   oDoc.unlockControllers
End Sub

Ratslinger · August 15, 2019, 6:13pm

@EasyTrieve,

Tried replacing my routine with yours. I get nothing. Just opens on first record.

EasyTrieve · August 16, 2019, 5:03am

@Ratslinger, Sorry, I forgot to extract the 2’nd half w/ the moveToInsertRow, then Last. Now it should work.

Ratslinger · August 16, 2019, 5:46am

Yeah, it works now. More lines of code but doesn’t need to set fetch size.

Just a note - only need Last or moveToInsertRow. Not both, only one or the other.

EasyTrieve · August 16, 2019, 1:33pm

@Ratslinger, also chopped out the clone line and it still works. Then added comment for the reason moveToInsertRow is needed. (For data sets larger than one page.)

Ratslinger · August 16, 2019, 4:18pm

Interesting, if you leave in this line:

Dim oRS_clone  As Object :oRS_clone  = oForm.createResultSet() : oRS_clone.Last()

you don’t need both Last and moveToInsertRow. Remove the line and you need both.

geogre · August 4, 2020, 3:37pm

Thanks for your comments and help! I will try these out asap. Just discovered these today because I had not been notified. Sorry for incorrectly posting this as an “answer” in the first place.

TonyW · November 14, 2020, 10:42am

Thank you. I’ve been trying to find out how to do this for quite a while.

Ratslinger · August 15, 2019, 1:59am

Hello,

If you always want to enter new records only, this is a property of the form.

If you also want existing records displayed, you need to use a macro:

Sub SetFetch
	oForm2 = ThisComponent.Drawpage.Forms.getByName("YOUR_INTERNAL_FORM_NAME")
  REM set this to something higher than existing # of records
    oForm2.FetchSize = 5000
    oForm2.Reload()
    oForm2.last
End Sub

Set the Open Document event of the form to this macro.

Quaresma · July 19, 2024, 5:09pm

Hello,
When the “Open Document” event is empty the form’s first record opens almost instantly. With your macro it takes exacty 6 seconds to open the form’s last record. Is this normal? In my opinion it’s quicker if you don’t use the macro and click the goto last record button in the form’s navigation bar. Wouldn’t you agree?
EasyTrieve’ solution is much faster, as is.