Base-Handbuch - The Document Foundation Wiki

oForm2 = oDrawpage.forms.getByName("Anzeige")
Das Array wird von seiner Untergrenze ('Lbound()') bis zu seiner Obergrenze ('Ubound()') in
einer Schleife durchlaufen. Alle Werte, die in den Zusatzinformationen durch Komma getrennt
erschienen, werden jetzt nacheinander weitergegeben.
FOR i = LBound(aList()) TO UBound(aList())
IF i = 0 THEN
Das auslösende Listenfeld muss abgespeichert werden. Es hat die Variable 'aList(0)' .Zuerst
wird die Information des Listenfeldes auf die zugrundeliegende Tabelle übertragen, dann wird der
Datensatz gespeichert.
oForm1.getByName(aList(i)).commit()
oForm1.updateRow()
ELSE
Die anderen Listenfelder müssen neu eingelesen werden, da sie ja in Abhängigkeit vom ersten
Listenfeld jetzt andere Werte abbilden.
oForm1.getByName(aList(i)).refresh()
END IF
NEXT
oForm2.reload()
END SUB
Die Abfragen für dieses besser nutzbare Makro sind natürlich die gleichen wie in diesem Abschnitt
zuvor bereits vorgestellt.
Suchen von Datensätzen
Ebenfalls ohne Makro funktioniert auch das Suchen von Datensätzen. Hier ist aber die
entsprechende Abfrage äußerst unübersichtlich zu erstellen. Da könnte eine Schleife mittels Makro
Abhilfe schaffen.
Die folgende Variante liest die Felder einer Tabelle aus, gründet dann intern eine Abfrage und
schreibt daraus schließlich eine Liste der Primärschlüsselnummern der durchsuchten Tabelle auf,
auf der der Suchbegriff zutrifft. Für die folgende Beschreibung existiert eine Tabelle "Suchtmp", die
aus einem per Autowert erstellten Primärschlüsselfeld "ID" und einem Feld "Nr." besteht, in das die
aus der zu durchsuchenden Tabelle gefundenen Primärschlüssel eingetragen werden. Der
Tabellenname wird dabei der Prozedur am Anfang als Variable mitgegeben.
Um ein entsprechendes Ergebnis zu bekommen, muss die Tabelle natürlich nicht die
Fremdschlüssel sondern entsprechende Feldinhalte in Textform enthalten. Dafür ist
gegebenenfalls ein 'VIEW' zu erstellen, auf den das Makro auch zugreifen kann.
SUB Suche(stTabelle AS STRING)
DIM oDatenquelle AS OBJECT
DIM oVerbindung AS OBJECT
DIM oSQL_Anweisung AS OBJECT
DIM stSql AS STRING
DIM oAbfrageergebnis AS OBJECT
DIM oDoc AS OBJECT
DIM oDrawpage AS OBJECT
DIM oForm AS OBJECT
DIM oForm2 AS OBJECT
DIM oFeld AS OBJECT
DIM stInhalt AS STRING
DIM arInhalt() AS STRING
DIM inI AS INTEGER
DIM inK AS INTEGER
oDoc = thisComponent
oDrawpage = oDoc.drawpage
oForm = oDrawpage.forms.getByName("Suchform")
oFeld = oForm.getByName("Suchtext")
stInhalt = oFeld.getCurrentValue()
stInhalt = LCase(stInhalt)
Makros: Bedienbarkeit verbessern 237