[Risolto] Macro: limita a 50 i record visibili in un form

[charlie]

Ciao a tutti, in un formulario, basato su una semplice Tabella, utilizzo questa macro (trovata in questo forum) per posizionarmi sull'ultimo record all'apertura:

Codice: Seleziona tutto

Sub InitializeForm 'Form > Event > When Loading 
   Dim oForm As Object 
   oForm = ThisComponent.DrawPage.Forms.GetByName("MainForm") '.GetByIndex(0) 
   IF oForm.isloaded = false THEN Wait 100 'allows faster CPUs to continue while waiting for slower ones 
'  oForm.Last 
'  oForm.First 'this line along with .Last above leaves the total number of records in nav bar 
   oForm.MoveToInsertRow 
End Sub

La macro è assegnata all'evento "Durante il caricamento" del formulario.
Mi sono accorto che quando raggiungo il record n. 51 (primo record n. 0), alla prima riapertura del formulario, questo mi compare vuoto.
Se disabilito la macro, il funzionamento è regolare.
Lascio la parola ai Guru delle macro di questo forum, grazie.

[charlie]

"Smanettando" ho risolto abilitando le due righe di codice precedute dall'apice che le trasformavano in commenti.

Codice: Seleziona tutto

'  oForm.Last 
'  oForm.First 'this line along with .Last above leaves the total number of records in nav bar 

Codice: Seleziona tutto

 oForm.Last 
 oForm.First 'this line along with .Last above leaves the total number of records in nav bar 

Ma da assoluto ignorante non ho capito perché.

[ndrini]

Ma da assoluto ignorante non ho capito perché.

Figurati quanto ho capito io...


Bene che hai risolto.

Andrea