[lKinGl]

Cierto lo que acabo de aportar es una copia fiel y exacta del código del Botón Guardar de mi Módulo Modificar

y necesito que funcione con esos anidamientos porsupuesto que nadie va a usar mis validaciones solo doy un código 100% Funcionando como yo necesitaba se los aseguro que a mas de uno le servirá

en fin el código que se necesita es solo este lo demás es pura zapateria

Código Delphi [-]
begin
         if Table2.locate('campo1', edit#.Text, []) then
              begin
                 if Table1.Locate('campo1',edit#.Text,[]) then
                     begin
                            Table1.Edit;
                            Table1.FieldValues['campo1']:=trim(edit#.Text);
                            Table1.post;
                            Table2.Edit;
                            Table2.FieldValues['campo1']:=trim(edit#.Text);
                            Table2.Post;
                            ShowMessage('Datos Modificados con Éxito');
                        end
                        else
                        begin
                          ShowMessage('Error al Modificar Datos');
                        end
                     end
              end
end