OpenOffice.info

Sub SelectLkzShowAll
if not thiscomponent.currentcontroller.isFormDesignMode then
  rem alle 240 Datensätze bereitstellen
  oForm = thisComponent.drawpage.forms.MainForm
  oForm.fetchSize = 240
  rem nach dem Laden den OK-Button freigeben
  btn = oForm.getByName("btnOK")
  btn.Label = "Land übernehmen"
  btn.Enabled = true
end if
End Sub

In der Tat, das ist noch eine Verbesserung: Es verzichtet auf das Hin- und Herspringen der aktuellen Zeile bzw. unlockControllers() und scheint auch etwas schneller zu gehen. Abschließend gehört jetzt zum [b]Ereignis "Beim Laden" [/b]des Hauptformulars folgende Routine:
[code]Sub SelectLkzShowAll
if not thiscomponent.currentcontroller.isFormDesignMode then
rem alle 240 Datensätze bereitstellen
oForm = thisComponent.drawpage.forms.MainForm
oForm.fetchSize = 240
rem nach dem Laden den OK-Button freigeben
btn = oForm.getByName("btnOK")
btn.Label = "Land übernehmen"
btn.Enabled = true
end if
End Sub[/code]
Danke nochmals für deine hilfreiche Mitwirkung! Jürgen

oForm.FetchSize

Hi,
vielleicht hiflt Dir auch
[code]oForm.FetchSize[/code]

In der API steht dazu:
FetchSize: retrieves the number of result set rows that is the default fetch size for result sets generated from this Statement object.
If this Statement object has not set a fetch size, the return value is implementation-specific.

Gruß R

Danke, das passt noch am ehesten. Es blieb nur das Problem aus meiner anderen Frage "Ladezeit eines Formulars beobachten/melden". Mit der MessageBox konnte ich hier nicht arbeiten; die passte nicht in die Reihenfolge der Befehle. Stattdessen habe ich den Auswahl-Button provisorisch mit "Bitte warten" beschriftet und ihn erst nach first() auf Enabled = true gesetzt. Das bringt zwar nach wie vor etwas Wartezeit, ist aber alles in allem in Ordnung. Gruß Jürgen

Hi,
versuch es mal mit dem Ereignis "Beim Laden" von MainForm.

Gruß R

    lkzForms = thisDatabaseDocument.FormDocuments.getByName("fibu.selectLkz").open
    lkzForm = lkzForms.drawpage.forms.MainForm
    ' lkzForm.reload        ' zunächst ohne, dann in einem weiteren Versuch mit reload
    lkzForm.last
    lkzForm.first

Sub SelectLkzShowAll
oForm = thisComponent.drawpage.forms.MainForm
oForm.last
oForm.first
End Sub

Schöner Trick, genügt aber noch nicht; es liefert bei last() die Fehlermeldung mit der maximalen Ungenauigkeit:
[quote]SQLException
Message:Fehler in der Funktionsfolge[/quote]
Ich habe mehrere Varianten versucht: zunächst innerhalb des Makros, das das Hilfsformular aufruft:
[code] lkzForms = thisDatabaseDocument.FormDocuments.getByName("fibu.selectLkz").open
lkzForm = lkzForms.drawpage.forms.MainForm
' lkzForm.reload ' zunächst ohne, dann in einem weiteren Versuch mit reload
lkzForm.last
lkzForm.first[/code]
Danach über das Ereignis "Ansicht wurde erzeugt" direkt im Hilfsformular:
[code]Sub SelectLkzShowAll
oForm = thisComponent.drawpage.forms.MainForm
oForm.last
oForm.first
End Sub[/code]
Schließlich habe ich diese Routine dem Ereignis "Dokument aktivieren" zugewiesen. (Dieses Ereignis passt eigentlich überhaupt nicht, denn es wird auch nach der Fehlermeldung erneut ausgelöst.) Dabei wurde das Makro einmal ausgeführt (natürlich mit der nötigen Pause), bei jedem späteren Aufruf folgt derselbe Fehler.

Ich habe den Verdacht, dass der Aufruf der Methode last() "zu schnell" kommt und der Befehl zum Laden der Daten innerhalb des Formulars noch nicht abgeschlossen ist. Ich vermute sehr stark, dass dein Trick trotzdem funktioniert, aber dass ich ihn in einen anderen Zusammenhang einbinden muss. Hast du auch dafür einen Tipp? Gruß Jürgen

...
oForm.last
oForm.first
...

Hi,
per Makro:

[code]...
oForm.last
oForm.first
...[/code]

Gruß R

In einem Hilfsformular werden die Daten einer MySQL-Tabelle (ca. 200 Datensätze) zur Auswahl angeboten. Wenn das Formular aufgerufen wird, werden zunächst etwa 50 Datensätze angezeigt; erst während man im Tabellenkontrollfeld nach unten blättert, kommen nach und nach (relativ langsam) die weiteren Datensätze. Beim "normalen" Arbeitsablauf ist dieses Verhalten zwar nützlich, aber wenn eine Auswahl angeboten wird, möchte man von Anfang an eine vollständige Übersicht erhalten (zumal 200 Zeilen nicht übermäßig viel sind).

Gibt es irgendwo eine Einstellung, mit der ich das vollständige Einlesen erzwingen kann, bevor die Daten im Kontrollfeld angezeigt werden? Danke! Jürgen