Elite Veteran
Beiträge: 922
 
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
*********
Access-Entwickler-Konferenz: https://www.donkarl.com/?aek
Access DevCon Vienna: https://www.donkarl.com/devcon
Access Forever: https://www.accessforever.org
Access News: https://www.youtube.com/playlist?list=PLVCeBbJIMDvdJ8ghMbEakJ6_EQyvy... |
PDF Erstellung