Drucken aus dem Formular über einen Filter

Datenbanklösungen mit AOO/LO

Moderator: Moderatoren

VolkerH
*
Beiträge: 15
Registriert: So, 22.05.2016 16:01

Drucken aus dem Formular über einen Filter

Beitrag von VolkerH »

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
RobertG
********
Beiträge: 2033
Registriert: Fr, 13.04.2012 19:28
Kontaktdaten:

Re: Drucken aus dem Formular über einen Filter

Beitrag von RobertG »

Code: Alles auswählen

stSql = "UPDATE ""FilterBerichtTbl"" SET ""Integer"" = '"+oFeld.GetCurrentValue()+"' WHERE ""ID"" = TRUE"
Ist der Zeilenumbruch, den Du in dem Post hast, auch in dem Original vorhanden?

Ansonsten müsste die Zeile so passen.
VolkerH
*
Beiträge: 15
Registriert: So, 22.05.2016 16:01

Re: Drucken aus dem Formular über einen Filter

Beitrag von VolkerH »

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

beste Grüße

Volker
Antworten