Sumar a un campo una cantidad

[DOS]

jajaja, ok, pasa
el asunto es que ahora no tira ningun error, pero no actualiza la informacion directamente, osea cargo el numero aprieto el boton y nad. salgo e ingreso nuevamente y sas aparece el cambio, ademas ademas si el producto la cantidad esta vacio no realiza nada. probare cargando por defecto 0, a ver que pasa. Gracias.

Muestro como esta la codificacion final del boton.

Código Delphi [-]
procedure TForm5.Button6Click(Sender: TObject);
var
   a : Double;

begin
   if not TryStrToFloat(Edit1.Text,a) then
    raise Exception.Create('El valor ingresado no es válido');
  if table3.Locate('Cod_producto',table1Cod_prod.Value,[loCaseInsensitive]) then
     begin
      table3.Edit;
      table3.FieldByName('Cantidad').AsFloat:= table3.FieldByName('cantidad').AsFloat+a;
      table3.Post;
      table3.Next;
      end;
end;

[ecfisa]

Hola DOS.

Hice un ejemplo muy simple que te adjunto para que puedas mirarlo con tranquilidad, las tablas _PRODUCTOS y _STOCK están incluídas con algunos datos de muestra.

Crea una carpeta, descomprimí archivos fuentes y datos allí y no deberías tener problemas para ejecutarlo, cualquier dificultad no dudes en consultar.

Saludos.

[DOS]

creo que el problema es mayor, la relacion en las tablas es el problema para mi, creo que voy a terminar poniendo una sola tabla como dijo Casimiro. no se que hacer.
Respondi antes de ver lo que hicistes, voy a probarlo y te cuento, saludos.

[DOS]

Gracias ecfisa, excelente ayuda.