Office: (Office 2007) Aktuelles Formular als PDF per Email Anhang versenden

Wie müsste der Code für den Filter aussehen?

mfg. Johannes

 

Das hört sich wiederum nach Bericht an.
Vielleicht stellst Du uns mal die Datenbank vor?

 

Hallo!

Denn sie wissen nicht was sie tun!

Wolfgang

 

Hallo,

so jetzt hat es endlich geklappt, sodass nur ein Datensatz aus dem Formular versendet wird. Hier der Code:
Private Sub Befehl108_Click()
On Error GoTo Err_Befehl108_Click
Dim stDocName As String

stDocName = "Bestellformular"
DoCmd.OpenForm stDocName, acViewForm, , "ID-Nr =" & Me!ID - Nr
DoCmd.SendObject acSendForm, "Bestellformular", "PDF", mail_to, , , "Bestellung", "Bestellung, siehe Anhang."



Exit_Befehl108_Click:
Exit Sub

Err_Befehl108_Click:
MsgBox Err.Description
Resume Exit_Befehl108_Click

End Sub

Allerdings muß ich im Fenster Parameter angeben eine "Null" eingeben, damit
der aktuell geöffnete Datensatz gesendet wird.
Vielen Dank an alle für die Guten Tipps.
Und Guten Rutsch ins neue Jahr.
mfg. Johannes *Smilie

 

Das dürfte in der Tat nicht funktionieren

Code:

eher wohl: (eckige Klammern beachten) :

Code:

Sonderzeichen in Feldnamen sollten vermieden werden...

 

Hallo,

ich habe den Code so angepasst:
DoCmd.OpenForm stDocName, acViewForm, , "[ID-Nr] =" & Me![ID - Nr]
und ausprobiert.
Dann kommt die Meldung: Microsoft Office Access kann das in Ihrem Ausdruck angesprochene Feld ´ID-Nr´ nicht finden.

Ohne Klammer funktioniert es.
DoCmd.OpenForm stDocName, acViewForm, , "ID-Nr =" & Me!ID - Nr

mfg. Johannes

 

Die Feldnamen sollten schon zu den Gegebenheiten passen

Heißt das Feld vielleicht nur ID und der Parameter fragt nach Nr ?

 

Hallo Johannes!

"[ID-Nr] =" & Me![ID - Nr]

Daß der Ausdruck **ohne** eckige Klammern im Gegensatz zu jenem **mit** den Klammern funktioniert kann ich mir nicht vorstellen. Das Umgekehrte schon.

Die beiden Feldnamen unterscheiden sich in der Anzahl der Blanks:
[ID-Nr]
versus
[ID - Nr]
Hast Du das bemerkt?

Vielleicht ist [ID-Nr] kein Feldname des Forms sonden einer der Datenquelle des Forms.

Jedenfalls sind Sonderzeichen und Leerstellen in Feldnamen tunlichst zu vermeiden.

Wolfgang

 

Wie Wolfgang schon sagte, kann das nicht ohne Fehler funktionieren.

Du hast im Kopf Deines Modules mit Sicherheit kein

Code:

stehen (Variablendeklaration erforderlich)

Wenn Dein Feld wirklich ID-Nr heißt:

Code:

Die Blanks bei Dir (ohne Klammern) wird Access eigenständig hinzugefügt haben, weil er den Ausdruck falsch interpretiert

weil es

 

Stimmt das ID - Nr mit der leer Zeile hat Access wohl selber formatiert.
Das hat Access schon beim Kopieren von "ID-Nr" in "ID - Nr" umgewandelt.
Habe es gerade so:
DoCmd.OpenForm stDocName, acViewForm, , "[ID-Nr] =" & Me![ID-Nr]
ausprobiert, und es klappt.
Aber wie kann ich im folgenden Satz:
DoCmd.SendObject acSendForm, "Bestellformular", "PDF", mail_to, , , "Bestellung", "Bestellung, Siehe Anhang."

Unter "Bestellung, siehe Anhang."
noch eine Zeile tiefer zusätzlichen Standard Text einfügen.
Das sollte dann in der email so aussehen:
Bestellung, siehe Anhang.
mit freundlichem Gruss
Firma
Adresse
Tel.

usw.

Johannes

 

Hallo,
so habe ich den Code jetzt angepasst:
DoCmd.OpenForm stDocName, acViewForm, , "ID-Nr=" & Me![ID-Nr]
und läuft.
Ich darf nicht beide "ID-Nr" in eckige Klammer setzen, sonst wird das "PDF" ohne Beschriftung erstellt, und als weißes Blatt in den Anhang übernommen.
Aber so wie oben dargestellt läuft es.

mfg. Johannes *Smilie

 

Hallo,

du kannst Strings und Variablen mit & miteinander verketten, als Vorschubsteuerzeichen setzt du die VBA-Konstante vbCrLf ein.

 

Hallo,
so funktioniert es:
DoCmd.OpenForm stDocName, acViewForm, , "ID-Nr=" & Me![ID-Nr]
DoCmd.SendObject acSendForm, "Bestellformular", "PDF", mail_to, , , "Bestellung", "Bestellung siehe Anhang." _
& vbCrLf & " " _
& vbCrLf & "Text" _
& vbCrLf & "Text" _
& vbCrLf & "Text"
Vielen Dank!
Wenn ich auf die Schaltfläche klicke und damit den Code auslöse, erscheint ein Fenster in dem ich aufgefordert werde: Parameterwert eingeben.
Wenn ich dann eine null eingebe, wird der aktuelle Datensatz in PDF formatiert und kann gesendet werden. Bei Eingabe "minus 1" wird der vorherige und bei Eingabe "1" der nächste Datensatz verwendet.
Wie kann ich den Code so anpassen, das keine Parameterabfrage kommt, sondern die "null" automatisch gesetzt wird, und somit immer der aktuelle Datensatz in PDF umgewandelt und gesendet wird?

mfg. Johannes

 

Was steht denn in der Titelzeile des Parameterfensters?

 

Hallo,
Im Parameterfenster steht oben: Parameterwert eingeben
Dann: Nr

Hier der komplette Code:

Private Sub Befehl108_Click()
On Error GoTo Err_Befehl108_Click
Dim stDocName As String


stDocName = "Bestellformular"
DoCmd.OpenForm stDocName, acViewForm, , "ID-Nr=" & Me![ID-Nr]
DoCmd.SendObject acSendForm, "Bestellformular", "PDF", mail_to, , , "Bestellung", "Bestellung siehe Anhang." _
& vbCrLf & " " _
& vbCrLf & "Präzisionstechnik Hilter GmbH" _
& vbCrLf & "49176 Hilter" _
& vbCrLf & "Dyckerhoffstraße 1"

Exit_Befehl108_Click:
Exit Sub

Err_Befehl108_Click:
MsgBox Err.Description
Resume Exit_Befehl108_Click

End Sub


mfg. Johannes