Traer un valor de un campo de la Tabla (Access) incluso si esta vacia

[ecfisa]

Hola nefore.

Por lo que entiendo tenes una tabla de un solo registro donde se almacenan los últimos identificadores que corresponden a cada tabla, algo como:

Código SQL [-]
CREATE TABLE PARAMETROS(
  ULTIMO_PROPIETARIO INTEGER,
  ULTIMO_VETERINARIO INTEGER,
  etc,
  ...
);

Como se escribe una sentencia que permita traerme un dato de una tabla y pasarlo a una variable a partir de un ADOTable?

Te pongo un ejemplo de ingreso, para él mismo, agrega otro TADOTable vinculado a la tabla PARAMETROS.

Suponiendo que el ADOTable vinculado a veterinarios se llama tbVeterinario, el vinculado a parámetros se llama tbParametros y sus campos fueron iniciados a cero, las acciónes básicas a seguir serían:

Código Delphi [-]
...
var
  Ultimo : Integer;
begin
  // Obtener el último ID de veterinario de la tabla "Parametros"
  // incrementarlo en uno y almacenarlo en la variable Ultimo
  Ultimo :=  tbParametros.FieldByName('ULTIMO_VETERINARIO').Value + 1;

  // Agregar un registro en tabla "Veterinarios"
  tbVeterinarios.Insert;
  // Asignarle el ID (Codigo) de veterinario
  tbVeterinarios.FieldByName('Codigo_Veterinario').Value := Ultimo;
  { Asignar los demás valores del veterinario
  ...
  ...
  }
  tbVeterinarios.Post;  // Guardar

  // Actualizar ultimo veterinario en tabla "Parametros"
  tbParametros.Edit;
  tbParametros.FieldByName('ULTIMO_VETERINARIO').Value := Ultimo;
  tbParametros.Post; // Guardar
  ...
end;

Saludos.