Office: (Office 2016) Schleife mit zwei/drei Kriterien

schohcs · 8. Oktober 2019

Kommt es hier zu gar keinem Fehler?
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Nein

Hast du eventuell irgendwo ein On Error resume next im Code stehen?
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Auch nicht.

Wie gesagt er durchläuft die Schleife dauerhaft und beendet sie nicht. In sich gefangen.

knobbi38 · 9. Oktober 2019

Hallo schohcs,
Wenn es zu keinem Fehler kommt, dann stimmt der gepostete Code nicht mit dem von dir verwendeten überein.

Ulrich

Joss · 7. Januar 2021

Hallo schohcs,

von schohcs

Er versucht den Datensatz zu erstellen und bleibt hängen.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Was bedeutet das?
Wie weit läuft der Code?
An welcher Stelle bleibt der Code hängen?

Lese doch mal den Inhalt des Kombifeldes im Direktfenster aus, ob Column(1) überhaupt den richtigen Wert bringt.

Code:

' ...
Debug.Print Me!Kombinationsfeld22.Column(1)
If .Bericht And Not Me!Kombinationsfeld22.Column(1) Like "*Versand*" Then
' ...
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Gruß
Josef

schohcs · 9. Oktober 2019

Ich habe es nochmal probiert und es kommt nun doch zum Fehler bei .MoveFirst. Keine Ahnung warum es gestern Abend noch nicht so war?!

So sieht der aktuelle Code aus:
Code:

With Me.[frmfertAuftrag Unterformular].Form
If .Recordset.Fields("Bericht") And Not .Kombinationsfeld22.Column(1) Like "*Versand*" Then
With .Recordset
strKrit = "[SubSTDAufID] = " & .Fields("SubSTDAufID")
DoCmd.OpenReport "BrcZertifikate_en_Logo", acViewPreview, , strKrit
DoCmd.OutputTo acOutputReport, "BrcZertifikate_en_Logo", acFormatPDF, "\192.168.178.57DateienZERTIFIKATE" & pfad & "" & .Fields("AnzeigeBez") & "-" & .Fields("Name") & " (" & .Fields("Lot") & ") " & ".pdf"
DoCmd.OutputTo acOutputReport, "BrcZertifikate_en_Logo", acFormatPDF, "\192.168.178.57DateienBüroWebsitecoa" & .Fields("AnzeigeBez") & "-" & .Fields("Lot") & ".pdf"
DoCmd.Close acReport, "BrcZertifikate_en_Logo"
End With
End If
End With
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Allerdings hängt sich die Datenbank sobald der Datensatz mit "Versand" kommt. Bis dahin läuft die Schleife korrekt ohne Fehler durch.

schohcs · 9. Oktober 2019

Lese doch mal den Inhalt des Kombifeldes im Direktfenster aus, ob Column(1) überhaupt den richtigen Wert bringt.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ja, Ergebnis ist: "Versandkosten Slowakei"

schohcs · 9. Oktober 2019

Wenn ich die Schleif so durchlaufen lasse hängt er sich auch auf:

Code:

With Me.[frmfertAuftrag Unterformular].Form
If .Recordset.Fields("Bericht") Then
With .Recordset
strKrit = "[SubSTDAufID] = " & .Fields("SubSTDAufID")
DoCmd.OpenReport "BrcZertifikate_en_Logo", acViewPreview, , strKrit
DoCmd.OutputTo acOutputReport, "BrcZertifikate_en_Logo", acFormatPDF, "192.168.178.57DateienZERTIFIKATE" & pfad & "" & .Fields("AnzeigeBez") & "-" & .Fields("Name") & " (" & .Fields("Lot") & ") " & ".pdf"
DoCmd.OutputTo acOutputReport, "BrcZertifikate_en_Logo", acFormatPDF, "192.168.178.57DateienBüroWebsitecoa" & .Fields("AnzeigeBez") & "-" & .Fields("Lot") & ".pdf"
DoCmd.Close acReport, "BrcZertifikate_en_Logo"
End With
End If
End With
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Joss · 7. Januar 2021

Hallo schohcs,

von schohcs

Ja, Ergebnis ist: "Versandkosten Slowakei"
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

ist das Kombifeld nun im Haupformular oder im Unterformular?

Gruß
Josef

schohcs · 9. Oktober 2019

Im Unterformular

Joss · 9. Oktober 2019

Hallo schohcs,

hier dein Code aus Beitrag#1 mit Ergänzung.
Schau mal, ob das funktioniert:
Code:

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

If .Fields("Bericht") And Not _
Me.[frmfertAuftrag Unterformular].Form.Kombinationsfeld22.Column(1) Like "*Versand*" Then
strKrit = "[SubSTDAufID] = " & .Fields("SubSTDAufID")

DoCmd.OpenReport "BrcZertifikate_de_Logo", acViewPreview, , strKrit
DoCmd.OutputTo acOutputReport, "BrcZertifikate_de_Logo", acFormatPDF, "192.168.178.57DateienZERTIFIKATE" & pfad & "" & .Fields("AnzeigeBez") & "-" & .Fields("Name") & " (" & .Fields("Lot") & ") " & ".pdf"
DoCmd.OutputTo acOutputReport, "BrcZertifikate_de_Logo", acFormatPDF, "192.168.178.57DateienBüroWebsitecoa" & .Fields("AnzeigeBez") & "-" & .Fields("Lot") & ".pdf"
DoCmd.Close acReport, "BrcZertifikate_de_Logo"
End If

.MoveNext
Loop
End With
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Gruß
Josef

Office: (Office 2016) Schleife mit zwei/drei Kriterien

Schleife mit zwei/drei Kriterien

Schleife mit zwei/drei Kriterien

Schleife mit zwei/drei Kriterien

Schleife mit zwei/drei Kriterien

Schleife mit zwei/drei Kriterien - Similar Threads - Schleife Kriterien

Verkettung von Zellen - Schleife

While-Schleife wird nicht beendet

For Next Schleife

VBA Schleife kopieren und einfügen von Spalten

Eine Schleife mit zwei tebellen vba Access

Bestimmte Daten zwischen innerhalb eines Datumsbereichs einer Tabelle Anfügen

VBA Loop : Werte suchen und löschen