Seite 1 von 1

Tabellenspalte über Macro bei Öffnen/Schließen des Formulars löschen

Verfasst: Fr 20. Jul 2018, 23:06
von jot-zet
Hallo, ich komme bei folgenden Problem nicht weiter...
in meiner Datenbank werden Datensätze an Writerdokumente zum Ausdruck übergeben. Dafür gibt es die Spalte "Marker", über welche sich bestimmen lässt, welche Datensätze. So weit so schön - diese Spalte muss natürlich regelmäßig gelehrt werden, damit nicht die falschen Datensätze übergeben werden. Auch dies habe ich nach Recherche über folgendes Macro geschafft:
Sub update_false(event)
oForm = event.source.model.parent
oConnection = oForm.activeconnection
SQL_Statement = oConnection.CreateStatement
sSQL = "UPDATE ""Eingang NAM"" SET ""Marker"" = FALSE"
SQL_Statement.executeUpdate(sSQL)
oForm.reload
end Sub
Das funktioniert über den Ereignissaufruf eines Buttons auch einwandfrei. Dies möchte ich jedoch automatisch beim Aufruf oder beenden eines Fomulars ausführen lassen. Dazu habe ich es versucht über das Ereigniss "Beim Laden" ausführen zu lassen. Jeder Versuch schlug jedoch fehl. Es kommt:
Objektvariable nicht belegt.
Leider reichen meine Kenntnisse nicht aus, um das Macro anzupassen. Hat jemand eine Idee?

Vielen Dank schon mal!
Jan

Re: Tabellenspalte über Macro bei Öffnen/Schließen des Formulars löschen

Verfasst: Sa 21. Jul 2018, 08:38
von RobertG
Hallo Jan,

das Makro funktioniert über einen Button, weil Du von dem auslösenden Ereignis (Buttondruck) ausgehst:
oEvent.Source.Model gibt den Button wieder.
Davon das höhere Element parent gibt das Formular wieder.

Wenn Du jetzt das Makro an das Formular anbinden willst, dann landest Du mit parent im Nirgendwo.

Ich lasse mir bei Unklarheiten die zur Verfügung stehenden Möglichkeiten immer mit xray anzeigen.

Eine andere Möglichkeit ohne das Ereignis zu arbeiten ist das Formular direkt anzusteuern:

Code: Alles auswählen

oDoc = thisComponent
oDrawpage = oDoc.drawpage
oForm = oDrawpage.forms.getByName("MainForm")
Hier hat das im Formularnavigator auf der höchsten Ebene liegende Formular den Namen "MainForm".

Gruß

Robert