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!! ;)
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
Hi,
wie wäre es mit einer Aktualisierungsabfrage: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