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

Guten Abend,

ich verwende eine Schleife um Zertifikate für meine Produkte zu erstellen.
Momentan habe ich nur ein Kriterium und das ist das Feld Bericht (Kontrollkästchen). Wenn dieses aktiv ist soll er ein Zertifikat erstellen und zum nächsten gehen. Nun möchte ich aber auch prüfen ob das Wort "Versand" in meinem "Kombinationsfeld22" (2te Spalte) vorkommt. Wenn dies der Fall sein sollte möchte ich zum nächsten Datensatz springen.
Ich habe schon so einiges probiert, aber ohne Erfolg. Ich bitte um eure Hilfe

Code:

:)

 

Du kannst das via Column Property abfragen.

Siehe: https://docs.microsoft.com/de-de/off...%3D-2147217396

Wenn die erste Spalte den Index des Wertes führt, wäre es natürlich besser über den Index zuzugreifen.

 

Hallo,

dass habe ich schon probiert, aber ohne Erfolg

So sah mein Versuch aus:
Code:

 

Wie soll das funktionieren, da passt doch gar nichts!
Außerdem ist der Code völlig aus dem Zusammenhang.
Die zugehörige With Anweisung fehlt.

Code:

Da fehlt ein Vergleich - der erste Teil der Anweisung ist unvollständig.

Code:

Column ist eine Property der Combobox und nicht von Field.

 

Hallo schohcs,

- der Vergleich sollte mit dem Steuerelement und nicht mit dem Feld gemacht werden
- die Spalte "2" entspricht dem Column-Index 1 (siehe Doku, lesen ist von Vorteil)
- der Vergleich sollte auf Gleichheit (=) gemacht werden und nicht mit Like

Ulrich

 

Hallo schohcs,

die Fields-Auflistung ist auch nicht notwendig.
Code:

Gruß
Josef

 

Ich denke ich habe eure Kritiken verstanden. Leider hapert es an der Umsetzung. Ich bin absoluter Anfänger.

An welcher Stelle mache ich das? Muss ich da eine gesonderte If-Abfrage machen?

So in der Art?
Code:

Wobei aber "Versand" immer nur ein Wortfragment des zu prüfenden Textes ist.

Vielen Dank

 

Hallo Josef,

ich habe deinen Vorschlag getestet mit dem selben Ergebnis. Er versucht den Datensatz zu erstellen und bleibt hängen.

Code:

 

Hallo schohcs,

du solltest eventuell anstatt .Recordset besser .RecordsetClone verwenden.

Ulrich

 

> du solltest eventuell anstatt .Recordset besser .RecordsetClone verwenden.

Dann funktioniert das mit der ComboBox aber auf keinen Fall mehr. *Smilie

Am Besten wäre es wohl, ein neues Recordset zu öffnen,
das nur die benötigten Felder beinhaltet und bereits gefiltert ist.
Ob er das hinbekommt... *biggrin.gif*

Was auffällt: Das Kombinationsfeld befindet sich doch wohl auch im Unterformular. Me ist dann aber falsch.
Code:

 

Hallo und vielen Dank erstmal.

Ich habe wie folgt getestet:

Code:

Allerdings erhalte ich einen Fehler beim Kompilieren
End If ohne If-Block an dieser Stelle:

Code:

 

Die Compilermeldung darfst du nicht ganz 1:1 nehmen.
Ich rücke den Code noch ein wenig zurecht, dann wirst du selbst schnell das fehlende "End ..." erkennen.
Code:

Schau genau! *wink.gif*

Josef

 

Du meinst ein End with fehlt for dem End If?

Das hatte ich bereits getestet, dann hat die Schleife kein Ende. Also sie wiederholt sich und lässt sich nicht beenden.

 

Genau, es fehlt End With.

Die Code-Logik muss natürlich auch passen.

Kommt es hier zu gar keinem Fehler?
Hast du eventuell irgendwo ein On Error resume next im Code stehen?
(Die Form-Schnittstelle kennt keine MoveFirst- bzw. MoveNext-Methode.)

mfg
Josef

 

Moin,

ergänzend zu Josef's Anmerkung - es fehlt das End With für das With Recordset ...