Bericht speichern mit Pfadvorauswahl und Speichern Dialog

[Sam]

Hallo zusammen
Ich komme hier nicht weiter. Ich möchte einen Bericht abspeichern und dabei den Dateinamen anpassen und den Pfad entweder offen lassen oder eine Vorauswahl anzeigen, aber das Dialogfeld "Speichern unter" soll angezeigt werden.
Automatisch speichern ohne Dialog und mit gewähltem Pfad geht. Aber ohne Pfad oder, dass das Dialogfenster angezeigt wird bringe ich nicht hin. Ich habe lange gesucht aber keine Lösung für Access 2013 gefunden. Mein aktueller Code speichert automatisch.

Code (vb) [Auswählen] Erweitern

Private Sub savereport_Click()
DoCmd.OpenReport "Bericht", acViewPreview, , , acHidden

DoCmd.OutputTo acOutputReport, "Bericht", acFormatPDF, "\\...\...\0_Work\02_Planing\" & Reports![Bericht].Caption & ".pdf"
DoCmd.Close acReport, "Bericht"

End Sub

Weiss da jemand eine einfache Lösung?   Perfekt wäre, wenn der Speicherort ein Sharelaufwerk wäre, aber das lässt Access nicht zu, da dies nur über eine URL geht.

LG

[MaggieMay]

Hallo,

die Suche nach "Datei-Speichern-Dialog" (evtl. noch mit dem Zusatz "VBA" und "Access") sollte dir eigentlich weiterhelfen können.

[Sam]

Ich habe einiges gefunden, aber nicht für Access. Nur diesen Code, aber bei diesem stürzt mir Access immer ab:

Code (vb) [Auswählen] Erweitern

Private Sub savereport_Click()
Dim sB As FileDialog

Set sB = Application.FileDialog(2)
With sB
.InitialView = msoFileDialogViewList
.InitialFileName = "\\Pfad\" & Reports![Bericht].Caption & ".pdf"
'.FilterIndex = 2  / Funktioniert nicht
.Show
.Execute
End With
End Sub

[DF6GL]

Hallo,

vermutlich fehlt der Verweis auf die Microsoft-Office xx Library

(VBA-Editor/Extras/Verweise)

[MaggieMay]

Und wobei stürzt Access ab (komplett?!) und mit welcher Fehlermeldung?

Schau dir doch einfach mal die Methoden des FileDialog-Objekts und deren Syntax in der Hilfe an, ehe du blind herumprobierst.

Beispiel:

'Add a filter that includes GIF and JPEG images and make it the second item in the list.
        .Filters.Add "Images", "*.gif; *.jpg; *.jpeg", 2

        'Sets the initial file filter to number 2.
        .FilterIndex = 2

-->> ohne Filter gibt's auch keinen gültigen Index!

[Sam]

Ja, Access stürzt komplett ab, mit der angehängten Meldung. Der Verweis auf die Office 15 Library ist gesetzt.
Den Filter habe ich jetzt weggelassen, da mit der Vorauswahl sowieso nur im PDF Format gespeichert wird.

[MaggieMay]

Den Filter habe ich jetzt weggelassen,

Und dann läuft's?

Und naja, du hattest ja wie gesagt gar keinen gesetzt...

[Sam]

Nein, dann stürzt es auch ab, sobald ich auf den Button "Speichern" klicke.

[MaggieMay]

Wie steht's denn mit deinem Office, ist das auf dem neuesten Stand?

Und lässt sich der Code fehlerfrei kompilieren?

An welcher Stelle genau erfolgt denn der Absturz? Teste das mal im Unterbrechungsmodus.

[Sam]

Es ist das Office der Firma, ich denke es ist aktuell...  Es scheitert beim .Execute. Beim Kompilieren gibt es keine Fehler.

[MaggieMay]

Ich habe das bislang übersehen, was denkst du denn, was beim "Execute" ausgeführt werden soll? Der Dateiauswahldialog sollte durch "Show" gestartet werden, aber davon hast du gar nichts erwähnt.

Normalerweise sieht das folgendermaßen aus:

Code [Auswählen] Erweitern

    If .Show = -1 Then
        MsgBox "Dateipfad: " & .SelectedItems(1)
    Else
        MsgBox "Keine Auswahl!"
    End If


[Sam]

Ich habe gedacht mit Execute wird die Datei gespeichert. Das Speichern Dialogfenster mit dem vorgewählten Pfad und dem vorgeschlagenen Dateinamen erscheint. Es fragt mich auch, ob es die Datei überschreiben soll, wenn ich eine Datei wähle, die schon vorhanden ist.

[DF6GL]

Hallo,

vermutlich suchst Du nur eine Verzeichnisauswahl.  Der Filename ergibt sich ja aus Deinem Berichtsnamen.

Code [Auswählen] Erweitern

Dim sB As FileDialog, strPath As String

Set sB = Application.FileDialog(msoFileDialogFolderPicker)
With sB
.InitialFileName = "\\...\...\0_Work\02_Planing\"
If .Show = -1 Then strPath = .SelectedItems(1)
End With


.....    acFormatPDF, strPath & "\" & Reports![Bericht].Caption & ".pdf"


[Sam]

Jein. Also ich möchte einen Bericht als PDF abspeichern. Dabei wird der Name der pdf Datei angepasst und ein Pfad vorgeschlagen. Ich möchte aber mit einem Dialog speichern, da jeder Nutzer vielleicht den Pfad oder den Namen noch anpassen möchte.

[MaggieMay]

Ich habe gedacht mit Execute wird die Datei gespeichert.

Wie sollte das gehen, denn zu dem Zeitpunkt ist doch völlig unbekannt, WAS überhaupt gespeichert werden soll.
Dies geschieht mit der OutputTo-Methode. Der FileDialog dient lediglich der Auswahl des Zieles.