Actualizar registros de dos tablas

[[eduarcol]]

de nuevo a lo mismo??, vistes la diferencia entre el codigo que te postee al principio y lo que tu escribistes, te lo coloco de nuevo para que sepas y veas el error:

En este codigo se graban los valores en la tabla1 y luego se busca por ese valor:

Código Delphi [-]
table1.edit;
table1.fieldvalues['campo1']:=edit1.text;
table1.post;
if table2.locate('CodigoCliente', table1.fieldvalues['codigocliente'], []) then
begin
   table2.edit;
   table2.fieldvalues['campo1']:=edit1.text;
   table2.post;
end
else
   ShowMessage('Error grave de referencialidad, ayudaaaaaaaaaa');

Tu lo tienes de esta manera, haces la busqueda antes de grabar los codigos en la tabla

Código Delphi [-]
if table2.locate('CodigoCliente', table1.fieldvalues['codigocliente'], []) then
begin

   table1.edit;
   table1.fieldvalues['campo1']:=edit1.text;
   table1.post;

   table2.edit;
   table2.fieldvalues['campo1']:=edit1.text;
   table2.post;
end
else
   ShowMessage('Error grave de referencialidad, ayudaaaaaaaaaa');

Si lo quieres como lo tienes, lo que debes es cambiar el origen de la busqueda.

Código Delphi [-]
if table2.locate('CodigoCliente', edit1.Text, []) then
begin

   table1.edit;
   table1.fieldvalues['campo1']:=edit1.text;
   table1.post;

   table2.edit;
   table2.fieldvalues['campo1']:=edit1.text;
   table2.post;
end
else
   ShowMessage('Error grave de referencialidad, ayudaaaaaaaaaa');