saludos a todos,estoy terminado un pequeña aplicacion que tendra el fin de registrar todas las mercancia que la empresa compre y venda,tendo dos tablas hechas en access y tengo el siguiente problema,pense que lograr descontar la mercancia vendida en una tabla de otra era algo parecido a una calculadora y asi lo hice,despues de calcular se graba y no me da ningun error,pero la mercancia en la otra tabla no se reduce,alguien me explica cual es mi error
Código Delphi
[-]procedure TFRMCLIENTES.ToolButton4Click(Sender: TObject);
var
valor1,valor2,resultado:integer;
begin
inherited;
begin
valor1:=strtoint(dbedit9.text);
valor2:=strtoint(dbedit10.text);
resultado:=valor1-valor2;
dbedit9.text:=inttostr(resultado);
end ;
if dm.adocliente.State=dsinsert then
begin
dm.adocliente.Post;
dm.adocliente.Refresh;
dm.ADOPRODUCTO.Open;
dm.ADOPRODUCTO.Refresh;
dm.adoproducto.Close;
end
else
IF DM.ADOcliente.State=DSEDIT THEN
BEGIN
DM.ADOcliente.Post;
DM.ADOcliente.Refresh;
dm.adoproducto.Open;
dm.adoproducto.refresh;
dm.adoproducto.close;
END
ELSE
begin
showmessage('no se encuentra en estado de insercion')
end;
las tablas tablas adoproducto tube que abrirla y cerrarla manualmente porque tengo un codigo en el evento onclose para que se cierre,espero que alguien pueda ayudarme