UPDATE Iterm SET Iterm.Charges = (SELECT Sum (Nz(BooksExpenses.Buyout)*(1+Nz(BooksExpenses.TaxtoBuy)/100)-Nz(BooksExpenses.SellRate)) FROM BooksExpenses Where BooksExpenses.ItermOrder = [Forms]![BooksExpenses]![ItermOrder])
WHERE Iterm.Order=Forms!BooksExpenses!ItermOrder;
UPDATE Iterm SET Iterm.Charges = (SELECT Sum (Nz(BooksExpenses.Buyout)*(1+Nz(BooksExpenses.TaxtoBuy)/100)-Nz(BooksExpenses.SellRate)) FROM BooksExpenses Where BooksExpenses.ItermOrder = [Forms]![BooksExpenses]![ItermOrder])
WHERE Iterm.Order=Forms!BooksExpenses!ItermOrder;