von VolkerH » Do, 06.05.2021 09:55
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
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