Office: (Office 2016) Laufzeitfehler 3048: Mehr Datenbanken können nicht geöffnet werden

jabra1307 · 26. Juli 2017

Guten Morgen *Smilie

Meine VBA-Kenntnisse sind weiterhin leider rudimentär und ich habe mit viel hin- und her probieren ansatzweise hinbekommen, was ich erreichen möchte, nur leider bekomme ich diesen Fehler nicht weg und google hat mir leider auch nicht wirklich geholfen...

Ich habe in Access einen Bericht (Rechnungen_single), der mir Rechnungen ausspuckt. Dieser Bericht bezieht sich auf eine Abfrage (RE_BASE_va), in der alle Datensätze angezeigt werden.

Ich möchte nun erreichen, dass auf Knopfdruck Rechnungen mit einem bestimmten Abrechnungsmonat als PDF exportiert und einzeln abgelegt werden. Dazu habe ich folgenden Code in ein Formular mit Button und Kombinationsfeld für den Abrechnungsmonat gefummelt:

Code:

Dim strSQL As String
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim ZielPfad As String, strWhere As String

ZielPfad = "Shari-DC1Leitung1 - Finanzen10 - Steuerberater"

Set db = CurrentDb
Set rs = CurrentDb.OpenRecordset("select ReNr, Code, Abrechnungsmonat from RE_BASE_va")
Do Until rs.EOF
DoCmd.OpenReport "Rechnungen_single ", acViewReport, , "[Abrechnungsmonat]= '" & Me.Kombinationsfeld4 & "' " & "AND ReNr = " & rs!ReNr & "", acHidden
DoCmd.OutputTo acOutputReport, "Rechnungen_single", acFormatPDF, ZielPfad & rs(2) & "VALUATIONAUSGANG" & rs(0) & "_" & rs(1) & ".pdf", False
DoCmd.Close acReport, "Rechnungen_single"
rs.MoveNext
Loop
rs.Close
Set rs = Nothing

Set db = Nothing
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Das funktioniert soweit auch ganz gut, nur leider kommt nach etwa 36 exportierten PDFs die Fehlermeldung "Laufzeitfehler 3048: Mehr Datenbanken können nicht geöffnet werden".

Ich würde mich sehr über Hilfe freuen *rolleyes.gif*

:)

hcscherzer · 28. Juli 2017

Das aktuelle Recordset durchläuft ja alle Datensätze aus RE_BASE_va
Ich würde ja mal den Filter mit dem Abrechnungsmonat nicht in den OpenReport Aufruf sondern in die Select Anweisung von OpenRecordset legen ...
Code:

strSQL = "select ReNr, Code, Abrechnungsmonat from RE_BASE_va Where "[Abrechnungsmonat] = '" & Me.Kombinationsfeld4 & "'"
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Wenn Du rs mit CurrentDb öffnest: wozu dann die Variable db ???

Dann also Recordset öffnen mit Code:

Set rs = CurrentDb.OpenRecordset(strSQL)
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Und dann den OpenReport mit kürzerem Filter Code:

DoCmd.OpenReport "Rechnungen_single ", acViewReport, , "ReNr = " & rs!ReNr, acHidden
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

jabra1307 · 28. Juli 2017

Hallo! Danke für die Antwort - ich habe es direkt ausprobobiert, bekomme aber leider weiterhin den gleichen Fehler *frown.gif* Diesmal nach 27 PDFs.

drambeldier · 28. Juli 2017

Moin,

warum für jeden Satz einen eigenen Report? Jeder Bericht lässt sich so einstellen, dass er an der passenden Stelle umbricht.

Schreib den Bericht für einen Datensatz und gib als Quelle eine Abfrage an, die alle Sätze ausliefert.

Nebenbei, obwohl es bei meinem Vorschlag eh nicht nötig ist:
Code:

Set db = CurrentDb
Set rs = CurrentDb.OpenRecordset("select ReNr, Code, Abrechnungsmonat from RE_BASE_va")
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

ist nicht sinnvoll, schreib
Code:

Set db = CurrentDb
Set rs = db.OpenRecordset("select ReNr, Code, Abrechnungsmonat from RE_BASE_va"
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Marsu65 · 28. Juli 2017

Moin zusammen,

eine Lösung ist z.B. hier zu finden
http://www.ms-office-forum.net/forum...d.php?t=279029

jabra1307 · 31. Juli 2017

Guten Morgen!

Danke für die Tipps und vor allem den Link!

Nach viel hin und her probieren hab ich es hinbekommen und der Button macht endlich genau das was er soll, ohne Fehlermeldung:

Code:

Const ZielPfad = "\Shari-DC1Leitung1 - Finanzen10 - Steuerberater"

DoCmd.OpenReport "Rechnungen_valuation_single", acViewReport, , _
"Abrechnungsmonat = '" & Me.Kombinationsfeld4 & "'"

DoCmd.Close acReport, "Rechnungen_valuation_single", acSaveYes

Set rs = CurrentDb.OpenRecordset("SELECT ReNr, Code, Abrechnungsmonat FROM RE_BASE_va WHERE Abrechnungsmonat = '" & Me.Kombinationsfeld4 & "")

While Not rs.EOF
DoCmd.OpenReport "Rechnungen_valuation_single", acViewReport, , "ReNr = " & rs!ReNr, acHidden
DoCmd.OutputTo acOutputReport, "Rechnungen_valuation_single", acFormatPDF, ZielPfad & rs(2) & "VALUATIONAUSGANG" & rs(0) & "_" & rs(1) & ".pdf", False
DoCmd.Close acReport, "Rechnungen_valuation_single"
rs.MoveNext
Wend
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ob das der eleganteste und beste Weg ist, weiß ich leider nciht, aber dadurch, dass es funktioniert, bin ich super zufrieden *grins

Office: (Office 2016) Laufzeitfehler 3048: Mehr Datenbanken können nicht geöffnet werden

Laufzeitfehler 3048: Mehr Datenbanken können nicht geöffnet werden

Laufzeitfehler 3048: Mehr Datenbanken können nicht geöffnet werden

Laufzeitfehler 3048: Mehr Datenbanken können nicht geöffnet werden

Laufzeitfehler 3048: Mehr Datenbanken können nicht geöffnet werden - Similar Threads - Laufzeitfehler 3048 Datenbanken

VBA:Laufzeitfehler beim Einlesen in Variable

Datenbank bleibt gesperrt - laccdb wird nicht gelöscht

Access Laufzeitfehler 3048

Laufzeitfehler 9 VBA

VBA Laufzeitfehler 9

[VBA] .Documents.Open -> Laufzeitfehler 91

MS Access Lauftzeitfehler "2501"