[de-discuss] SQL mittels Makro auf Schaltfläche legen

Hallo User,

ich hab hier ein Problem, bei dem ich nicht weiterkomme.

Ich habe einen funktionierenden SQL-Befehl, den ich mit Hilfe eines 
Makros auf eine Schaltfläche in einem Formular legen möchte.

Hier mein Code hierzu:


Sub Fuett_anfuegen
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
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.executeQuery(stSql)
End Sub

Bei der Zeile: iResult ... erscheint die Fehlermeldung: 
BASIC-Laufzeitfehler. Objektvariable nicht belegt.

Kann mir jemand sagen, was hier falsch ist?


MfG Leo-Hubert



--
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