PDF Erstellung
Karl Donaubauer
Gesendet: 28.08.14 11:17
Betreff: RE: PDF Erstellung



Elite Veteran

Beiträge: 847
50010010010025
Ort: Wien
Hallo!

Nur noch ein paar Anmerkungen:

steffn84 -
...
Dim rs As Recordset
Dim strReport As String
Dim strKey, strKey2 As String

strReport = "bAbfr"

Set rs = CurrentDb.OpenRecordset("qPlan", dbOpenDynaset)

With rs
Do While Not .EOF
strKey = !Plan
strKey2 = Replace(strKey, "\", "_")
...

Bei den Deklarationen solltest du die DAO-Bibliothek explizit angeben, um Verwechslungen zu vermeiden. Außerdem hast du strKey als Variant deklariert, weil das "As String" dabei fehlt. Aber es geht ja auch ohne Extra-Variable:

Dim rs As DAO.Recordset
Dim strReport As String, strKey As String

strReport = "bAbfr"

Set rs = CurrentDb.OpenRecordset("qPlan", dbOpenDynaset)

With rs
Do While Not .EOF
strKey = Replace(!Plan, "\", "_")

-----
Servus
Karl
*********
https://www.donkarl.com/devcon Access-Online-Konferenz 18.+19.4.
Access Forever: https://www.accessforever.org
Access News: https://www.youtube.com/playlist?list=PLVCeBbJIMDvdJ8ghMbEakJ6_EQyvy...
Access-Entwickler-Konferenz: https://www.donkarl.com/?aek
Top of the page Bottom of the page