Hallo LOUser,
jetzt habe ich aus Versehen gerade einen Antwort-Post aus diesem Thread
gelöscht. Das tut mir Leid, wollte nur einen Teil des Inhalts löschen..
Jetzt ein nuer Versuch:
Wenn ich dieses Makro bei geöffnetem Forular über den Menüpunkt =>
Makros => ausführen starte, dann werden die Daten richtig übertragen,
wenn ich das Makro allerdings über einen Button, der sich auf dem
Formular befindet starte, dann passiert nichts.
Wo liegt denn da der Fehler?
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 erzeugen
stSql = "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: [email protected]
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
