Hola he intentando el codigo que me has puesto, y funciona de maravilla (lo he intentado con el campo (ULTMO_PROPIETARIO) el problema es que al guardar ese valor en el campo parametro, me salta un error pidiendome que le agregue un valor a los demas campos (ULTIMO_INSPECTOR, ULTIMO_VETERINARIO, etc.), me he fijado en la BD de Access y existe una propiedad que dice 'Requerido' (Hacer obligatoria la entrada de este campo') le he puesto que no, pero aun asi, me pide que le ingrese valor a los demas campos.
Código Delphi
[-]procedure TForm5.FormCreate(Sender: TObject);
begin
parametro.conectaBD;
parametro.conectatabla;
if (ADOTable4.FieldByName('ULTIMO_TITULAR').Value <> null) then
codigo.Text := (IntToStr((ADOTable4.FieldByName('ULTIMO_TITULAR').Value)+1))
else
codigo.Text:= IntToStr(1);
fecha.Text := DateToStr(Now);
end;
if bandera then
begin
propietario.conectaBD;
propietario.ConectaTabla(1);
if (propietario.busqueda(dni.Text,0,2)=True)then
begin
ShowMessage('Esta persona ya se encuentra cargada en el sistema');
dni.SetFocus;
dni.SelectAll;
end
else
begin
ADOTable4.Last;
ADOTable4.Edit;
ADOTable4.FieldByName('ULTIMO_TITULAR').AsInteger := StrToInt(codigo.Text);
ADOTable4.Post;
propietario.Desconectar;
propietario.grabardatos;
propietario.Free;
validacion.Free;
if MessageDlg('Continuar ingresando datos?', mtConfirmation, [mbYes, mbNo], 0) = mrYes
then
begin
if (ADOTable4.FieldByName('ULTIMO_TITULAR').Value <> null) then
codigo.Text := (IntToStr((ADOTable4.FieldByName('ULTIMO_TITULAR').Value)+1))
else
codigo.Text:= IntToStr(1);
Limpiar;
end
else
begin
Close;
parametro.desconectar;
end;
end;
end;
en donde bandera es una que utilizo para manejar las validaciones (si esta es verdadera significa que las validaciones son correctas), propietario es una clase y el ADOTABLE4 pertenece al AdoTable asociado con la tabla parametros.