Nummerierung von gefilterten Datensätzen

[DF6GL]

Hallo,

1) z. B. so im Steuerlementinhalt eines Textfeldes im Bericht:

Code [Auswählen] Erweitern

=[Artikel] & ", Zg. " & [Zeichnungsnr]



2) Eingabe-Textfelder sind NUR im FORMULAR brauchbar. Dort haben die Dinger von Haus aus eine Format-Eigenschaft "Rahmenart"...
Gedruckt wird NUR über BERICHTE  (die letztendlich aber auch die gleiche Eigenschaft besitzen)

[MarkusR]

Funktioniert wunderbar! Vielen Dank

Und ich hab schon wieder ein Problem
In meinem Formular habe ich jetzt Buttons erstellt. Mit einem Button drucke ich den Bericht, was wunderbar funktioniert. Mit dem anderen Button soll der Bericht als pdf gespeichert werden. Wie das funktionert, hab ich schon heraus gefunden. Allerdings würde ich gerne den Namen vorgeben, unter dem gespeichert werden soll.
Der Name soll sich aus der Rechnungsnummer und der Lieferscheinnummer zusammen setzen. Als Beispiel "R 12345 L 56842 - R.pdf"

Bisher habe ich folgenden VBA Code:

Code [Auswählen] Erweitern

    DoCmd.OutputTo acOutputReport, "Rechnung HSP", "PDF-Format(*.pdf)", _
    "G:\Rechn.-LS-Bestell\HSP\" & Format(Date, "yyyy") & "\" & Format(Date, "mm mmmm yyyy") & "\R " & Me!Rechnungsnr & " L " & Me!Lieferscheinnr " -R.pdf"

Damit speichert er mir die PDF unter dem Pfad G:\Rechn.-LS-Bestell\HSP\2012\03 März 2012\. Worauf ich schon ziemlich stolz bin, das alleine geschafft zu haben
Aber jetzt würde ich ja gerne für den Dateinnamen auf die Rechnungs- und Lieferscheinnummer zugreifen. Nur das will mir noch so ganz gelingen.

Hat da wieder jemand einen Tipp für mich?

Vielen Dank im Voraus und Gruß,
Markus

[DF6GL]

Hallo,


bei dieser Methode, den Bericht als PDF zu drucken (speichern), ist es nötig ihn vorher in der Entwurfsansicht zu öffnen, die Eigenschaft "Beschriftung" ( "Caption") mit dem gewünschten Namen einzustellen, ihn zu speichernd und zu schliessen.

[MarkusR]

Hm, versteh ich grad nicht so ganz.

Also, Bericht ist in Entwurfsansicht geöffnet, Eigenschaften von Bericht -> Format -> Beschriftung. Das ist gemeint, oder?
Und was trag ich dann da ein?

[DF6GL]

Hallo,

na, den Text, den die PDF-Datei  als Name bekommen soll...


Wenn Du jetzt den Bericht als PDF ausgibst, erhältst Du doch auch eine Datei mit dem Namen des Berichtes...

[MarkusR]

Ach so...ja nee

Das wäre ja zu einfach...ich erklärs mal anders:

Ich habe ein Hauptformular, mit dem wir arbeiten. Da werden Aufträge etc. eingegeben mit allen zugehörigen Daten (unter anderem Rechnungs- und Lieferscheinnummer). Jetzt habe ich einen Bericht erstellt, mit dem wir Rechnungen ausdrucken können. Heißt wir nehmen im Formular einen Datensatz, klicken auf einen Button und er öffnet den Bericht mit eben diesem Datensatz. Der Bericht wird gedruckt, soll aber auch als PDF gespeichert werden. Der Dateiname ist aber bei jedem Datensatz unterschiedlich, da er sich aus der Rechnungsnummer und der Lieferscheinnummer zusammen setzt.
Also will ich es dem Nutzer einfacher machen, so dass er den Dateinamen nicht von Hand eingeben muss mit der richtigen Rechnungsnummer und der richtigen Lieferscheinnummer, sondern das Access sich die Daten aus dem Datensatz nimmt (also aus den Feldern [Rechnungsnr] und [Lieferscheinnr]) und damit dann den Dateinamen bildet (z.B. "R 1234 L 1234.pdf").

[DF6GL]

Hallo,

ich hab das schon verstanden, was Du machen willst...

Andererseits sehe ich gerade, dass Du den Dateinamen im "Ausgabedatei"-Parameter von outputto ja schon angibst und es auch so funktionieren sollte wie gewünscht, wobei dort ein "&" fehlt, was vielleicht das eigentliche Problem ist:


....& Me!Lieferscheinnr &    " -R.pdf"



btw:  Auch wenn hier kein Problem mit den verwendeten Sonder- und Leerzeichen im Dateinamen auftauchen sollte, würde ich mich nicht darauf verlassen, dass eine solche Namensgebung  nicht doch einmal einem um die Ohren fliegt....

[MarkusR]

Guten Morgen,

ich bin grade ein bisschen verwundert über das fehlende "&". Hab immer wieder an dem Code rumgespielt und das vlt irgendwann vergessen.

Auf jeden Fall funktioniert es jetzt...ausgezeichnet!

Vielen Dank!

Gruß,
Markus