Hallo LO-User,der Fall ist gelöst und ich möchte mich bei euch für die Mühe, die ich euch gemacht habe gleich mal entschuldigen.
Das u.a. Makro funktioniert so wie es da steht ohne Probleme von einem Button im geöffneten Formular aus, wenn man die Aktion nur in das richtige Feld einträgt. Ich hatte nämlich die Funktion versehentlich in das Feld "Taste gedrückt" eingetragen!
Wenn ich die Funktion in das Feld "Maustaste gedrückt" eintrage funktioniert alles einwandfrei.
Vielen Dank noch mal für die Hilfe. MfG L-H
Sub Fuett_anfuegen DIM oForm AS OBJECT DIM oDatasource AS OBJECT DIM oConnection AS OBJECT DIM oSQL_Statement AS OBJECT ' das Objekt, das den SQL-Befehl ausführt DIM stSql AS STRING ' Text des eigentlichen SQL-Befehls DIM oResult AS OBJECT ' Ergebnis für executeQuery DIM iResult AS INTEGER ' Ergebnis für executeUpdate oForm = thisComponent.Drawpage.Forms.getByName("MainForm") oConnection = oForm.ActiveConnection() oSQL_Statement = oConnection.createStatement() 'Statementobjekt erzeugenstSql = "INSERT INTO ""tbl_Fuetterung_Uebergabe"" ( ""StockNr"", ""Datum"", ""Jahr_ID"", ""Futterart_ID"" ) SELECT ""tbl_StockGrunddaten"".""StockNr"", ""tab_Vorg_Fuet"".""Datum"", ""tab_Vorg_Fuet"".""Jahr_ID"", ""tab_Vorg_Fuet"".""Futterart_ID"" FROM ""tab_Vorg_Fuet"", ""tbl_Vorg_Jahr"", ""tbl_Vorg_Futterart"", ""tbl_StockGrunddaten"" WHERE ""tab_Vorg_Fuet"".""Jahr_ID"" = ""tbl_Vorg_Jahr"".""ID"" AND ""tab_Vorg_Fuet"".""Futterart_ID"" = ""tbl_Vorg_Futterart"".""ID"" AND ""tbl_StockGrunddaten"".""Marke"" = TRUE AND ""tbl_StockGrunddaten"".""Abgangsjahr"" = 0;"iResult = oSQL_Statement.executeUpdate(stSql) 'Anfügeabfrage ausführen. End Sub
-- Liste abmelden mit E-Mail an: discuss+unsubscribe@de.libreoffice.org Probleme? https://de.libreoffice.org/hilfe-kontakt/mailing-listen/abmeldung-liste/ Tipps zu Listenmails: https://wiki.documentfoundation.org/Netiquette/de Listenarchiv: https://listarchives.libreoffice.org/de/discuss/ Datenschutzerklärung: https://www.documentfoundation.org/privacy