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
Drucken aus dem Formular über einen Filter
Moderator: Moderatoren
Re: Drucken aus dem Formular über einen Filter
Code: Alles auswählen
stSql = "UPDATE ""FilterBerichtTbl"" SET ""Integer"" = '"+oFeld.GetCurrentValue()+"' WHERE ""ID"" = TRUE"
Ansonsten müsste die Zeile so passen.
Re: Drucken aus dem Formular über einen Filter
Hallo Robert, vielen Dank! Ich hatte Den Text 1:1 übernommen , jetzt passt es.
beste Grüße
Volker
beste Grüße
Volker