MS-Office-Forum

Zurück   MS-Office-Forum > Microsoft Access & Datenbanken > Microsoft Access
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

Antworten
Ads
Themen-Optionen Ansicht
Alt 04.07.2018, 19:04   #16
gloe
Threadstarter Threadstarter
MOF User
MOF User
Standard

Es will iwie nicht, ich habe dir mal meine Datei angehängt vll hilft das
Angehängte Dateien
Dateityp: rar be.rar (71,6 KB, 6x aufgerufen)
gloe ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 04.07.2018, 19:56   #17
elmar
MOF Guru
MOF Guru
Standard

Bitte setze VBA-Code in Codetags. Siehe dazu das Bildchen.
Angehängte Grafiken
Dateityp: jpg snap1363.jpg (4,9 KB, 3x aufgerufen)

__________________

WIN 7 PROF 64, ACCESS 2003 Wissenswertes: ACCESS-FAQ *** Habe mit ACC2007/10/13 nichts am Hut...
Hilfreiche Antworten kann es nur bei verständlichen Fragen geben! Anleitung dazu: Hier klicken | Auch hilfreich: Einführung in die Datenbank Microsoft Access. | Die Nachteile von Nachschlagefeldern
elmar ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 05.07.2018, 07:54   #18
gloe
Threadstarter Threadstarter
MOF User
MOF User
Standard

Danke für den Hinweis
gloe ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 05.07.2018, 10:33   #19
drambeldier
MOF Koryphäe
MOF Koryphäe
Standard

Moin,

mit dem folgenden Code werden 3 PDFs erzeugt, mir scheint allerdings, das Feld AUF_ID_F ist nicht das Gelbe vom Ei.

Code:

Private Sub Befehl176_Click()

    With Me.[frmfertAuftrag Unterformular].Form.Recordset
       .MoveFirst
       Do Until .EOF
    Debug.Print Me!Auf_ID
          DoCmd.OpenReport "BrcZertifikate", acViewPreview, , "Auf_ID_f = " & Me!Auf_ID
          DoCmd.OutputTo acOutputReport, "BrcZertifikate", acFormatPDF, "D:\brc\" & "_" & Me!Auf_ID & ".pdf"
          DoCmd.Close acReport, "BrcZertifikate"
          .MoveNext
       Loop
    End With
End Sub

__________________

Gruß
Ralf

Geändert von drambeldier (05.07.2018 um 10:40 Uhr). Grund: Backslash-Monster hat zugeschalgen
drambeldier ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 05.07.2018, 11:38   #20
gloe
Threadstarter Threadstarter
MOF User
MOF User
Standard

Vielen Dank für deinen Code Ralf,

jetzt verstehe ich das mit dem Steuerelement auch

Aber leider funktioniert es nicht wie gewünscht. Bei mir erstellt er nur eine PDF mit allen Seiten, aber nicht wie gewünscht einzelne PDFs nach Gruppe.

Was genau hast du an meinem Feld AUF_ID_f auszusetzen?

Vielen Dank
gloe ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 05.07.2018, 11:40   #21
maikek
MOF Guru
MOF Guru
Standard

Vermutlich das gleiche wie ich, die Auf_ID kennzeichnet nicht die einzelnen Gruppen.
maike

__________________

Bitte dein Thema auf erledigt setzen, wenn's durch ist!
MOF Access Stammtisch in Bremen

Geändert von maikek (05.07.2018 um 11:50 Uhr).
maikek ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 05.07.2018, 13:29   #22
gloe
Threadstarter Threadstarter
MOF User
MOF User
Standard

Ok, verstehe ich aber es hapert an meiner Umsetzung.
Ich habs mit meiner SubSTDAufID versucht bekomme aber folgende Fehlermeldung "Datenbank kann das in Ihrem Ausdruck angesprochen Feld "SubSTDAufID" nicht finden."
gloe ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 05.07.2018, 13:55   #23
maikek
MOF Guru
MOF Guru
Standard

Zitat:

"Datenbank kann das in Ihrem Ausdruck angesprochen Feld "SubSTDAufID" nicht finden."

Einen Tippfehler schließe ich jetzt mal aus.
Das Feld ist vermutlich nicht in der Datenherkunft des Berichts (Tabelle oder Abfrage) enthalten.
maike

__________________

Bitte dein Thema auf erledigt setzen, wenn's durch ist!
MOF Access Stammtisch in Bremen
maikek ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 05.07.2018, 14:03   #24
gloe
Threadstarter Threadstarter
MOF User
MOF User
Standard

Ich habs mehrmals geprüft, dass Feld ist in der Datenherkunft enthalten.

Hast du dir meine Datenbank angesehen?
gloe ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 05.07.2018, 14:21   #25
maikek
MOF Guru
MOF Guru
Standard

Ja, jetzt. Da wär ich nie drauf gekommen.

Code:

Private Sub Befehl176_Click()

 With Me.SubSTDAufID.Recordset
 With Me.[frmfertAuftrag Unterformular].Form.Recordset
   .MoveFirst
   Do Until .EOF
      DoCmd.OpenReport "BrcZertifikate", acViewPreview, , "[SubSTDAufID] = " & .fields("SubSTDAufID")
      DoCmd.OutputTo acOutputReport, "BrcZertifikate", acFormatPDF, "C:UsersPublicDesktop" & "_" & .fields("SubSTDAufID") & ".pdf"
      DoCmd.Close acReport, "BrcZertifikate"
      .MoveNext
   Loop
End With

End Sub
Ein Recordset ist ein Haufen Datensätze.
Der kommt aus einer Tabelle, oder kann auch die Datenherkunft eines Formulars sein - aber nicht eines einzelnen ID-Feldes.
SubSTDAufID solltest du statt Auf_ID_f als Kriterium angeben, das meinte ich doch deutlich geschrieben zu haben.

maike

__________________

Bitte dein Thema auf erledigt setzen, wenn's durch ist!
MOF Access Stammtisch in Bremen
maikek ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 05.07.2018, 14:52   #26
gloe
Threadstarter Threadstarter
MOF User
MOF User
Standard

Ich danke dir vielmals Meike, es funktioniert.
Genau das habe ich auch probiert nur ohne .fields("...

Wenn du mir kurz erklären könntest warum .fields...?

Zum einen damit ich es verstehe und zum anderen weil ich die PDF wie folgt speichern möchte:
Code:

      DoCmd.OutputTo acOutputReport, "BrcZertifikate", acFormatPDF, "C:UsersStephanieDesktop" & .Fields("AnzeigeBez") & "-" & .Fields("fertBezeichnung") & " (" & .Fields("Lot") & ") " & ".pdf"
Das Feld "Lot" erkennt er nicht. Hierbei handelt es sich um ein im Abfrage Generator errechnetes Feld.
gloe ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 05.07.2018, 15:53   #27
maikek
MOF Guru
MOF Guru
Standard

Die Felder aus dem Recordset des Unterformulars sind in der Auflistung .fields enthalten. Wenn Lot nicht dabei ist, musst du es entweder mit aufnehmen oder dir den Wert anderweitig ermitteln (z.B. DLookup, Variante 1 ist aber besser).

Zitat:

Wenn du mir kurz erklären könntest warum .fields...?

Du beziehst dich hier auf die Felder im Recordset und nicht auf die Formularfelder.
maike

__________________

Bitte dein Thema auf erledigt setzen, wenn's durch ist!
MOF Access Stammtisch in Bremen
maikek ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 05.07.2018, 16:05   #28
gloe
Threadstarter Threadstarter
MOF User
MOF User
Standard

Danke für deine Erklärung, wieder was gelernt und umgesetzt.

Da wir schon dabei sind könntest du dir nochmal mein zweites Problem anschauen (du hattest es bereits kommentiert)?

https://www.ms-office-forum.net/foru....php?p=1876513
gloe ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 10.08.2018, 15:41   #29
gloe
Threadstarter Threadstarter
MOF User
MOF User
Standard

Ich habe ein kleines Problem mit dem Code, bzw. eine kleine Erweiterung:

With Me.[frmfertAuftrag Unterformular].Form.Recordset
.MoveFirst
Do Until .EOF

DoCmd.OpenReport "BrcZertifikate_de_Logo", acViewPreview, , "[SubSTDAufID] = " & .Fields("SubSTDAufID")
DoCmd.OutputTo acOutputReport, "BrcZertifikate_de_Logo", acFormatPDF, "\192.168.178.57DateienZERTIFIKATE" & pfad & "" & .Fields("AnzeigeBez") & "-" & .Fields("Name") & " (" & .Fields("Lot") & ") " & ".pdf"
'DoCmd.PrintOut
DoCmd.Close acReport, "BrcZertifikate_de_Logo"
.MoveNext
Loop
End With


Soweit funktiniert das ganze, nun möcht ich aber das zusätzlich abgefragt wird ob das JA/Nein Feld WAHR ist, nur dann soll auch die PDF erzeugt werden. Ich dachte dan evtl an folgenden Code (funktioniert leider nicht):

With Me.[frmfertAuftrag Unterformular].Form.Recordset
.MoveFirst
Do Until .EOF

DoCmd.OpenReport "BrcZertifikate_de_Logo", acViewPreview, , "[SubSTDAufID] = " & .Fields("SubSTDAufID") & .Fields("Bericht") = "-1"
DoCmd.OutputTo acOutputReport, "BrcZertifikate_de_Logo", acFormatPDF, "\192.168.178.57DateienZERTIFIKATE" & pfad & "" & .Fields("AnzeigeBez") & "-" & .Fields("Name") & " (" & .Fields("Lot") & ") " & ".pdf"
'DoCmd.PrintOut
DoCmd.Close acReport, "BrcZertifikate_de_Logo"
.MoveNext
Loop
End With


Hat da jemand eine Idee?
gloe ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 10.08.2018, 17:46   #30
drambeldier
MOF Koryphäe
MOF Koryphäe
Standard

Moin,
Code:

"[SubSTDAufID] = " & .Fields("SubSTDAufID") & .Fields("Bericht") = "-1"
mir scheint, da fehlt ein " AND ".

__________________

Gruß
Ralf
drambeldier ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Ads
Antworten


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Besucher: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge anzufügen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

vB Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist An.
Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 02:20 Uhr.


Partner und Co.
Access-Paradies -Alles rund um die Datenbank Microsoft Access -Code -Programme-Tools -Tipps   Kostenlose Tipps & Tricks, Downloads und Programme   www.kulpa-online.com - Tipps - Tricks - Tutorials - Meinungen - Downloads uvm...   vb@rchiv · Willkommen in der Welt der VB Programmierung   Access-Garhammer - Hier finden Sie jede Menge Beispiel-Datenbanken zu Access und mehr ...   mcseboard.de   Die Top Seite für Excel-VBA-Makros uvm.

Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

Copyright ©2000-2018 MS-Office-Forum. Alle Rechte vorbehalten.
Copyright ©Design: Manuela Kulpa ©Rechte: Günter Kramer
Eine Verwendung der Inhalte in anderen Publikationen, auch auszugsweise,
ist ohne ausdrückliche Zustimmung der Autoren nicht gestattet.