Syntax für For Each...Next Schleife

Hallo,

ich benötige eine VBA-Prozedur, um in jeder Zeile eines Datensatzes (tblRechnung) den Wert eines Boolean-Feldes (bolRgDruck) in ein anderes Boolean-Feld (bolRgGedruckt) zu kopieren und in der Folge alle Werte im ursprünglichen Feld auf Falsch zu setzen. Von der Idee her wäre mein Vorschlag für die Prozedur so:

Für jede Zeile in tblRechnung
Wenn bolRgDruck=Wahr Dann
bolRgGedruckt=Wahr
Nächste Zeile

Für jede Zeile in tblRechnung
bolRgDruck=Falsch
Nächste Zeile

Am Ende wären also die ehemaligen Werte von bolRgDruck jeder Zeile in bolRgGedruckt kopiert worden und bolRgDruck wäre überall Falsch.

Soweit ich das verstanden habe wäre zu diesem Zweck ein For Each…Next Schleife geeignet, aber ich komme mit der Syntax nicht klar.

Danke wie immer für die Hilfe!

LG

Benjamin

Hallo,

ich benötige eine VBA-Prozedur

wozu VBA-Schleife?

um in jeder Zeile eines
Datensatzes (tblRechnung) den Wert eines Boolean-Feldes
(bolRgDruck) in ein anderes Boolean-Feld (bolRgGedruckt) zu
kopieren und in der Folge alle Werte im ursprünglichen Feld
auf Falsch zu setzen.

Currentdb.Execute „Update tblRechnung Set bolRgGedruckt = bolRgDruck,bolRgDruck=0“

Viele Grüße vom Bodensee
Franz , DF6GL

PS: Feedback erwünscht!

Ok, das war einfach…

Danke für die Hilfe!