|
Member
Beiträge: 8
| So, hab tatsächlich mal ein bisl was alleine geschafft.
Die Parameterabfrage macht er bei mir jetzt nicht mehr, habe folgendes geändert:
DoCmd.OpenReport strReport, acViewPreview, , _
"Plan = " & Chr(34) & strKey & Chr(34)
---
Ein letztes Problem, dann geb ich Ruhe:
Ein paar wenige Pläne hat leider nen Backshlash ( " B117_ENT\Abbruchbed_FW1 ") mit drin, was auch nicht zu ändern ist ( Tabellen werden automatisch generiert ). Ich denke mal da macht er Probleme bei der Pfadangabe im Zusammenhang mit der Exportierung.
Hat dazu jemand evtl. eine Lösung?
---
Update: Einfach über die Replace-Funktion. Bin nun erstmal wunschlos glücklich. Danke
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, "\", "_")
Path = "D:\Datenbankgefummel\Doku\" & strKey2 & ".pdf"
'der Pfad mit dem Plan als Dateinamen.
Edited by steffn84 28.08.14 10:28
| |
|
PDF Erstellung