Dim db As Database, Tabelle As Recordset
Set db = DBEngine.Workspaces(0).Databases(0)
Set rs = db.OpenRecordset("SELECT * FROM Tabelle")
 
while not rs.EOF
     rs("ergebnis") = rs("Menge") * rs("EK-Preis")
     rs.movenext
wend

Zitat:

4. Wenn bei einem Feld entweder die Menge Minusbestand hat, oder der EK-Preis unter Null ist (aus welchen Gründen auch immer) kommt da aber vor, soll bei der Menge auch der Minus Wert angezeigt werden