!!!!Guardar un codigo que esta en otro form

[ecfisa]

Hola Ledwin_v.

No está muy detallada la situación, pero como para darte alguna idea te pongo dos ejemplos.

Manualmente usando un TButton:

Código Delphi [-]
procedure TForm1.BotonGuardar(Sender: TObject);
begin
  Table1.Post; // Guardar en Tabla1
  Table2.Edit; // Editar Tabla2
  // Asignar el campo  de Tabla1 al campo en Tabla2 
  Table2.FieldByName('OTROCAMPO').AsString:=  Table1.FieldByName('CODIGO').AsString;
  Table2.Post;  // guardar

En forma automática usando el evento AfterPost de la Tabla1:

Código Delphi [-]
procedure TForm1.Table1AfterPost(DataSet: TDataSet);
begin
  Table2.Edit;   
  // Asignar el campo  de Tabla1 al campo en Tabla2   
  Table2.FieldByName('OTROCAMPO').AsString:= Table1.FieldByName('CODIGO').AsString;
  Table2.Post; // guardar
end;

Pero claro todo depende de la lógica que emplees en tu aplicación...

Un saludo.