![](/forum/profile/get-photo.asp?memberid=27&type=profile&rnd=376) Elite Veteran
Beiträge: 860
![500](http://www.donkarl.com/forum/images/decorations/multiple/500.gif) ![100](http://www.donkarl.com/forum/images/decorations/multiple/100.gif) ![100](http://www.donkarl.com/forum/images/decorations/multiple/100.gif) ![100](http://www.donkarl.com/forum/images/decorations/multiple/100.gif) ![25](http://www.donkarl.com/forum/images/decorations/multiple/25.gif) ![25](http://www.donkarl.com/forum/images/decorations/multiple/25.gif) 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... |