Private Sub Taken_AfterUpdate() Dim db As Database Dim rst As Recordset Dim strSearchName As String Dim varSearch Dim varTaken Dim varHowMany Set db = CurrentDb Set rst = Me.RecordsetClone strSearchName = Str(Me!ID) rst.FindFirst "ID = " & strSearchName If rst.NoMatch Then MsgBox "Record not found" Else Me.Bookmark = rst.Bookmark varHowMany = rst!HowMany 'Debug.Print varHowMany & " VarHowMany" 'Debug.Print rst!HowMany varTaken = rst!Taken 'Debug.Print rst!Taken & " rst!Taken" 'Debug.Print varTaken varHowMany = CDbl(varHowMany) - CDbl(varTaken) 'Debug.Print varTaken & " taken" 'Debug.Print varHowMany & " HowMany" rst.Edit rst!HowMany = varHowMany Debug.Print rst!HowMany & " HowMany" rst!Taken = 0 rst.Update End If rst.Close End Sub
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)