Bestimmte ID aus Bericht als PDF per E-mail senden

[itaflo]

Ich möchte aus 2 Berichten eine bestimmte ID als PDF per E-mail (Outlook) versenden.

es muss kein bestimmter Adressempfänger sein mans sollte die E-mail vorher noch bearbeiten können.

ich komme hier leider nicht weiter 

[MaggieMay]

Hallo,

es wäre wohl nicht verkehrt, wenn du uns sagst wie weit du damit schon gekommen bist.
Welchen Ansatz hast du verfolgt, welchen Befehl dazu gefunden und ausprobiert?

Zwei Berichte mit einer Mail zu verschicken ist nicht so einfach, da böte es sich wohl an, Haupt- und Unterbericht anzulegen. Das wollte ich dir auch schon in deinem anderen Thema vorschlagen. Und damit hätte man auch das Problem mit den mehrfachen Datensätzen lösen können (-> Stichwort: Gruppierung).

[itaflo]

hmm so ein richtigen ansatz hab ich leider nicht außer das aber das ist nicht so toll

Private Sub Befehl62()
Me.FilterOn = True
DoCmd.OpenReport "Fehlerbericht", acViewReport, , "ID = '" & Me.Kombinationsfeld60 & "'"
DoCmd.SendObject acSendReport, "Fehlerbericht", acFormatPDF, False

End Sub

[MaggieMay]

Hi,

das Einschalten des Filters dürfte hier keine Rolle spielen. Der Bericht sollte in der Vorschau geöffnet werden, sonst wird er sofort gedruckt und ist für den folgenden Befehl nicht mehr verfügbar.

Die Syntax der SendObject-Methode kannst du in der Access-Hilfe nachlesen, da werden wohl noch ein paar Parameter mehr benötigt.

Anschließend muss dann der Bericht auch wieder geschlossen werden. Man kann ihn übrigens verborgen anzeigen (-> s. Syntax der OpenReport-Methode), damit der Anwender nicht dazwischen funken kann.

[itaflo]

Hallo Maggie,

das hier funktioniert:

Private Sub Liste90_Click()
Me.FilterOn = True
DoCmd.OpenReport "qry_ReviewTime-Unterbericht", acViewReport, , "Customer = '" & Me.Liste90 & "'"
DoCmd.SendObject acSendReport, "qry_ReviewTIme-Unterbericht", acFormatPDF, , , , , , , True

End Sub

aber nur wenn ich es als Listenfeld habe und selber werte als Datensatzherkunft reinschreibe.

ich hätte gern das da die ID's aus meiner Tabelle drinstehen nur geht das leider nicht

es sollte eigentlich so aussehen:

Private Sub Befehl62_Click()
Me.FilterOn = True
DoCmd.OpenReport "Fehlerbericht", acViewReport, , "ID = '" & Me.Kombinationsfeld60 & "'"
End Sub


dann bekomm ich folgende fehlermeldung:

Laufzeitfehler '3464'
Datentypenkonflikt in Kriterienausdruck

[DF6GL]

Hallo,

dann lass doch die Hochkommata weg....

....acViewReport, , "ID = " & Me!Kombinationsfeld60

[itaflo]

Hallo,

super vielen dank es funktioniert