Schleife in Detailbereich

[YvS]

Hallo zusammen,
ich komme einfach nicht mehr weiter.
Ich möchte die Umrechnung eines Betrages von einer Währung in eine Andere umsetzen.
Dafür habe ich in einem Formular im Detailbereich die verschiedenen Stückstaffelungen ("Me.txtMengeBis"). Jetzt möchte ich, dass der Benutzer die Staffelungen in dieses Feld eingeben und anschliesend durch das drücken des Berechnungs-Buttons ALLE zeilen im Detailbereich umgerechnet werden. Es klappt nur in so fern, dass ich die jeweils angewählte Zeile umrechnen kann, aber nicht alles zeilen mit einem Klick!!
Vlt kann mit jemand mit der Schleife weiterhelfen!!

Code (vb) [Auswählen] Erweitern

For Each ctl In Me.txtMengeBis

Do While Not IsNull(Me.txtMengeBis)


If Me.GruppenID = 1 Or Me.GruppenID = 3 Then
'### Für Eingabe von Euro ###
    If Me.txtEuroPreis > 0 Then
        Me.txtPreis = Round((Me.txtEuroPreis * Me.txtUmrEuroinCHF), 2)
'### Für Eingabe von Dollar ###
    ElseIf Me.txtDollarPreis > 0 Then
        Me.txtPreis = Round((Me.txtDollarPreis * Me.txtUmrDollarinCHF), 2)
'### Für Eingabe von Franken ###
    ElseIf Me.txtFrankenPreis > 0 Then
        Me.txtPreis = Me.txtFrankenPreis
    End If

Exit Do
Me.cmbArtikel.SetFocus

Loop
Next ctl

[MaggieMay]

Hi,

wie wäre es mit einer Aktualisierungsabfrage:

Code [Auswählen] Erweitern

Update tabelle Set txtPreis = IIF(txtEuroPreis > 0, Round((txtEuroPreis * txtUmrEuroinCHF), 2), IIF(txtDollarPreis > 0, Round((txtDollarPreis * txtUmrDollarinCHF), 2), IIF(txtFrankenPreis > 0, txtFrankenPreis, 0)))
WHERE (GruppenID = 1 Or GruppenID = 3) AND
ArtikelNr = Forms!formname!cmbArtikel