Incremental en red

[marcoszorrilla]

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.

[jgmarduel]

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

 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)"