Foros Club Delphi - Incremental en red

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Conexión con bases de datos (https://www.clubdelphi.com/foros/forumdisplay.php?f=2)

- - Incremental en red (https://www.clubdelphi.com/foros/showthread.php?t=28048)

Incremental en red

Hola y gracias desde ya.
Estoy haciendo un programita que va a ser utilizado en dos pc conectado a una bd access en un servidor
Que riesgos se corre por usarlo así ????
Se utilizan Locks ???
la idea es informar el número de "Trámite" luego de cargar la info así lo asientan en el sello correspondiente.
Gracias por aportar su experiencia.

José

No puedo levantar el campo id que es autonumerico para ponerlo en un label de una ventanita que sale despues de agregar el registro. Como se hace ??
Como nadie me ha contestado, ahora es URGENTE.
Gracias desde ya.

El autoincremental, no lo podrás acceder hasta que se inserte algo, es decir hasta que escriban cualquier cosa en alguno de los campos del registro.

Código Delphi [-] MiLabel.Caption:=AdoTable1MiCampo.AsString;
 //o
 MiLabel.Caption:=IntToStr(AdoTable1Micampo.Value);

Un Saludo.

gracias. antes del post ??? Yo hago esto y me tira error:

Código:

 procedure TForm2.BitBtn2Click(Sender: TObject);

begin

Form1.DSMesa.DataSet.Open;

Form1.DSMesa.DataSet.Append;

Form1.DSMesa.DataSet.FieldByName('fecha').AsDateTime := now();

Form1.DSMesa.DataSet.FieldByName('iniapel').AsString := Form2.Edit1.Text;

Form1.DSMesa.DataSet.FieldByName('ininom').AsString := Form2.Edit2.Text;

Form1.DSMesa.DataSet.FieldByName('tomo').AsInteger :=  StrToInt(Form2.Edit3.Text);

Form1.DSMesa.DataSet.FieldByName('folio').AsInteger := StrToInt(Form2.Edit4.Text);

Form1.DSMesa.DataSet.FieldByName('asunto').AsString := Form2.Edit5.Text;

FormNumero.Label2.Caption := IntToStr(Form1.DSMesa.DataSet.FieldByName('id').Value);

//Form1.DSMesa.DataSet.FieldByName('asunto').AsString := Form2.Edit5.Text;

Form1.DSMesa.DataSet.Post;

Form1.DSMesa.DataSet.Close;

FormNumero.ShowModal;

//Form1.DataSource1.DataSet.FieldByName('Iniciante').Value := Form2.



//Form1.Database1.Connected :=False;

end;

El error es "Could not convert variant of type (null) into typr (Integer)"