Dim iMenge As Long
 
    Set db2 = CurrentDb
    Set rs2 = db2.OpenRecordset("select * from Lager where ArtikelID='" & _
    Me!ArtikelID & "'")
 
    If Not(rs2.Eof) Then
        iMenge = Me!Menge
 
        Do While (iMenge > 0) And (Not(rs2.EOF))
            rs2.Edit
            If rs2!Bestand < iMenge
                iMenge = iMenge - rs2!Bestand
                rs2!Bestand = 0
            Else
                rs2!Bestand = rs2!Bestand - iMenge
                iMenge = 0
            End If
            rs2.Update
            rs2.MoveNext
        Loop
    End If