OpenOffice.info

Hallo Robert, vielen Dank! Ich hatte Den Text 1:1 übernommen , jetzt passt es.

beste Grüße

Volker

Ist der Zeilenumbruch, den Du in dem Post hast, auch in dem Original vorhanden?

Ansonsten müsste die Zeile so passen.

Hallo,
ich komme mit einer Synax Fehlermeldung nicht weiter und brauche Hilfe!

ich möchte aus einem Formular "ZugFml" einen Bericht drucken.
Entsprechend dem angezeigten Datensatz "ZugID".

im Base Handbuch habe ich nun folgendes Makro gefunden, und lediglich die nötigen Formular, Feld und Berichtbezeichnung geändert .
in der SQL Anweisung gibt es dann die Basic Synaxfehlermeldung : Erwarte " an der Pos vor dem ' WHERE, das Anführungszeichen ist blau hinterlegt.

SUB Filtern_und_Drucken
DIM oDoc AS OBJECT
DIM oDrawpage AS OBJECT
DIM oForm AS OBJECT
DIM oFeld AS OBJECT
DIM oDatenquelle AS OBJECT
DIM oVerbindung AS OBJECT
DIM oSQL_Anweisung AS OBJECT
DIM stSQL AS STRING
oDoc = thisComponent
oDrawpage = oDoc.Drawpage
oForm = oDrawpage.Forms.getByName("ZugFml")
oFeld = oForm.getByName("fmtZugID")
oDatenquelle = ThisComponent.Parent.CurrentController
If NOT (oDatenquelle.isConnected()) THEN
oDatenquelle.connect()
END IF
oVerbindung = oDatenquelle.ActiveConnection()
oSQL_Anweisung = oVerbindung.createStatement()
stSql = "UPDATE ""FilterBerichtTbl"" SET ""Integer"" = '"+oFeld.GetCurrentValue()+"' WHERE
""ID"" = TRUE"

oSQL_Anweisung.executeUpdate(stSql)
ThisDatabaseDocument.ReportDocuments.getByName("Zugzusammenstellung").open
END SUB


Vielen Dank
Volker