Pannello di Controllo Moderatore ]

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

Discussioni sulle caratteristiche di database

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

Messaggioda charlie » giovedì 6 marzo 2014, 17:49

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   Espandi visualeStringi visuale
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.
Allegati
Schermata 03-2456723 alle 16.46.28.png
charlie
macOS 10.12 Sierra: Open Office 4.1.5 - LibreOffice 6.0.7
Windows 7 pro (VirtualBox): Open Office 4.1.5 - LibreOffice 5.4.4.2
Ubuntu 17.04 LTE (VirtualBox): LibreOffice 5.1.6.2
http://www.charlieopenoffice.altervista.org
Avatar utente
charlie
Site Admin
Site Admin
 
Messaggi: 5879
Iscritto il: mercoledì 19 dicembre 2012, 11:50

Re: Problema macro: limita a 50 i record visibili in un form

Messaggioda charlie » giovedì 6 marzo 2014, 18:21

"Smanettando" ho risolto abilitando le due righe di codice precedute dall'apice che le trasformavano in commenti.
Codice: Seleziona tutto   Espandi visualeStringi visuale
'  oForm.Last
'  oForm.First 'this line along with .Last above leaves the total number of records in nav bar

Codice: Seleziona tutto   Espandi visualeStringi visuale
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é.
charlie
macOS 10.12 Sierra: Open Office 4.1.5 - LibreOffice 6.0.7
Windows 7 pro (VirtualBox): Open Office 4.1.5 - LibreOffice 5.4.4.2
Ubuntu 17.04 LTE (VirtualBox): LibreOffice 5.1.6.2
http://www.charlieopenoffice.altervista.org
Avatar utente
charlie
Site Admin
Site Admin
 
Messaggi: 5879
Iscritto il: mercoledì 19 dicembre 2012, 11:50

Re: Problema macro: limita a 50 i record visibili in un form

Messaggioda ndrini » venerdì 7 marzo 2014, 8:26

Ma da assoluto ignorante non ho capito perché.

Figurati quanto ho capito io...
:D

Bene che hai risolto.

Andrea
LibreOffice 5.1.4.2 su Ubuntu 16.04
ndrini
 
Messaggi: 93
Iscritto il: lunedì 8 agosto 2011, 23:28


Torna a Base

Chi c’è in linea

Visitano il forum: Nessuno e 2 ospiti