Hallo Access´ler!
Stehe wieder mal auf dem Schlauch und suche Hilfe!
Folgende Situation (Legende: frm = Formular, sfrm = Sub-Formular, rpt = Bericht):
1) 'frmStart' klick auf Button 'Tätigkeitsbericht'
2) öffnet 'frmJahr' mit 'sfrmJahr', darin ein Kombifeld 'Jahr_Kombinationsfeld', ein Button 'ÖffneRptTaetigkeitsbericht' und ein Button 'schließen'
3) im Kombifeld 'Jahr_Kombinationsfeld' Auswahl einer Jahreszahl und klick auf Button 'ÖffneRptTaetigkeitsbericht'
4) öffnet Bericht 'rptTätigkeitsbericht'
...soweit alles OK!
Wenn jetzt 'Druckvorschau schließen' oder auf 'x' geklickt wird zum Schließen des Berichts, dann soll eine MsgBox nachfragen, ob der Bericht gespeichert werden soll in einem bestimmten Ordner oder nicht. Wenn 'Ja', dann speichern und schließen, sonst nur schließen ohne speichern!
Meine derzeitige Code:
Private Sub Report_Close()
Dim Report As String
Dim i As Integer
Dim dateipfad As String
dateipfad = CurrentProject.Path & "\Tätigkeitsberichte\" & Left(Format(Date, "yyyy.mm.dd"), 4) & "_Tätigkeitsbericht.pdf"
Report = "ZS Sarntal - Tätigkeitsbericht " & Left(Format(Date, "yyyy.mm.dd"), 4)
i = MsgBox("Soll der Bericht '" & Report & "' als PDF im Ordner Tätigkeitsberichte gespeichert werden?", _
vbYesNo, "Bericht als PDF speichern")
If i = vbYes Then
DoCmd.OutputTo acOutputReport, "rptTätigkeitsbericht", acFormatPDF, dateipfad, True
Else
Exit Sub
End If
End Sub
In der Zeile
DoCmd.OutputTo acOutputReport, "rptTätigkeitsbericht", acFormatPDF, dateipfad, True
tritt der Laufzeitfehler '2585' auf mit der Meldung: Diese Aktion kann nicht ausgeführt werden, solange ein Formular- oder Berichtsereignis ausgeführt wird.
Außer dem Bericht habe ich keine weitere Aktionen laufen, muss der Bericht vorher geschlossen werden?
Habe es schon mit
DoCmd.Close acReport, Report
versucht, mit dem gleichen Ergebnis.
Wer weiß wie sowas gelöst werden könnte?
Danke im Voraus
Pergus
Hallo,
erstell doch mal ein leeres Formular und schreibe dein acOutputReport -Code in das Ereignis Beim Öffnen.
Das Formular rufst du dann einfach beim Schließen des Berichtes auf.
Andreas
Hallo Andreas,
danke für Deine Antwort. Deine Lösung funktioniert, habe aber ein anderes Problem entdeckt!
Überarbeite meine Lösung und melde mich dann!
Inzwischen bedanke ich mich für Deine Hilfe!
Pergus