Sumar campo cuando este asi actualizado

[rufo]

Que tal amigos espero que me echen la mano en esto que no se por donde empezar resulta que tengo un campo en mi BD que es no. de piezas en el cual le ingreso datos ahora cuando me llegan de nuevo piezas tengo que actualizar la informacion pero lo que en si yo quiero que cuando yo actualize me sume las piezas ya existentes con las que acabo de ingresar, la verdad nose como hacerle, ya que esto lo quiero hacer cuando actualizo este campo. Que se vaya sumando por medio de una consulta o que se yo pero al momento de agregar nuevas entradas, bueno espero me echen la mano y de antemano gracias.

[Casimiro Notevi]

update tabla
set piezas = piezas + new.piezas

¿Es eso lo que quieres?, con más información se te puede ayudar mejor.

[rufo]

Gracias amigo por responder pero me he quedado igual, en si quiero hacer algo parecido asi:

PIEZAS
10

PIEZAS (ingresadas)
5

PIEZAS
15

En si es lo que quiero hacer es que en mi tabla ya tengo el campo PIEZAS con datos entonces cuando ingreso en un edit las PIEZAS que acaban de llegar que cuando almacene esta actualizacion me sume con las que ya tengo mas con las que acabo de introducir para que mas adelante me sirvan para ver sus existencias reales, de antemano gracias.

[Casimiro Notevi]

Es como te he mostrado antes. ¿Qué parte es la que no sabes hacer?, ¿qué llevas hecho y cómo?

[rufo]

Gracias amigo de nuevo por responder, te pongo mi codigo que tengo

Código Delphi [-]
procedure TENTRADAS.sButton4Click(Sender: TObject);
begin
 if messagedlg('Los datos son correctos?',mtconfirmation,[mbok,mbcancel],0)=mrok then
   begin
      with dm1.T_productos do
      begin
         active:=true;
         SetKey;
         FieldByName('id_productos').Asinteger := strtoint(slabel9.Caption);
         GotoNearest;
         edit;
         fieldbyname('id_productos').asinteger:=strtoint(slabel9.Caption);
         fieldbyname('fecha_entrada').asstring:=sedit2.Text;
         fieldbyname('piezas).asstring:=sedit1.Text;
         fieldbyname('id_proveedor').asinteger:=v_idproveedor;
         post;
         refresh;
      end;
      begin
       update;
       dm1.T_productos;
       set dm1.T_productos.FieldByName('piezas')= dm1.T_productos.FieldByName('piezas') + dm1.T_productos.FieldByName('new.piezas');
      end;
   end;

Te pongo todo este codigo por que es en el boton que actualiza mi informacion, ahora asi como me lo pusiste anteriormente me marcaba error de codigo entonces lo puse asi como te lo muestro pero me marcar igual el error ya que mi tabla la tengo en Datamodule por esa razon es como yo llamo a la tabla bueno espero que me ayudes o me comentes en donde esta mi error y gracias de nuevo.

[Lenny]

Primero, Eliges la Tabla a editar:

Código Delphi [-]
Table1.Edit;

Luego Seleccionas de donde y con que editaras la Info:
Si apuntas a un DBEdit, con un Edit donde ingresaras la cantidad a ingresar:

Código Delphi [-]
DBEdit1.Text:= FloatToStr (StrToFloat(DBEdit1.Text) + StrToFloat (Edit1.Text));

Directo a la Tabla:

Código Delphi [-]
Table1.FieldbyName('PIEZAS').AsFloat := StrToFloat (Edit1.Text);

Luego Ingresas el Registro:

Código Delphi [-]
Table1.Post;

O sea quedaria algo asi:

Código Delphi [-]
 
Table1.Edit;
DBEdit1.Text:= FloatToStr (StrToFloat(DBEdit1.Text) + StrToFloat (Edit1.Text));
Table1.Post;

Al menos asi lo hago yop, y me resulta impecable sin errores.

Saludos!!!