Set db2 = CurrentDb
 Set rs2 = db2.OpenRecordset("select * from Lager where ArtikelID='" & _
   Me!ArtikelID & "'")
 
Dim RestMenge As Integer
RestMenge = Me!Menge
 
Do While RestMenge > 0
   rs2.Edit
   If rs2!Bestand > RestMenge Then
      rs2!Bestand = rs2!Bestand - RestMenge
      rs2.Update
      Exit Do
   Else
      RestMenge = RestMenge - rs2!Bestand
      rs2!Bestand = 0
      rs2.Update
   End If
   rs2.MoveNext 'sorry vergessen
Loop