Создание уникального ID для новой записи

[puma]

Доброго время суток. Необходимо создать электронный каталог, в котором нужно чтобы при записи пользователя номер присваивался автоматически.

Пробую способ с помощью создания ID-таблицы.

Имеется база данных в Access, где используется таблица Data- Данные пользователя. Создала дополнительную таблицу, ID-таблицу с двумя полями:
Table Name (первичный ключ)
Last Id N

в обработчике события таблицы BeforePost таблицы Data , поместила следующий код

var
  Id: Integer;
begin
  with TData  do
  begin
    {проверяем, существует ли ID для этой записи}
    if Field[0].AsInteger = 0 then
    begin
     
       {ищем имя таблицы в ID-Таблице}
      IDTable.FindKey([Name]);
        {извлекаем последний Id - подразумеваем блокировку записи}
      Id := IDTable.FieldByName['Last Id'].AsInteger;
      Inc(Id);
      {записываем новый Id в ID-таблицу - подразумеваем разблокировку таблицы}
      IDTable.FieldByName['Last Id'].AsInteger := Id;
      IDTable.Post;
      {записываем извлеченный ID в таблицу}
      Field[0].AsInteger := Id;
    end;
  end;
end;

В строке IDTable.FindKey([Name]); выдает ошибку – undeclared identifier FindKey. В чем проблема?
Может кто - то подскажет другой способ создания уникального номера для записи. Буду благодарна за помощь.

[xoodoo]

другой способ создания уникального номера для записи

Сделай поле ID автоинкрементным и укажи Access'у что это поле является первичным ключем.

[puma]

Сделала, дополнительное поле id автоинкрементным, с первичным ключем все равно ругается, та же ошибка...

[Аватар]

Для автоинкремента и не надо программно ключ формировать, он автоматически создается при вставке новой записи.

[puma]

Я понимаю, что автоинкрементное поле создает автоматически новую запись с номером. Может я неправильно объяснила поставленную задачу.

Суть задачи в чем: каждый новый год в электронный каталог нужно вносить читателя, запись читателя должна вносится автоматически, 1, 2.... 15. и т.д.

Со следующего года приходят новые читатели и остаются старые, следовательно должна быть перерегистрация старых и внесение в электронный каталог новых.
Автоинкрементное поля для этого не подходит, т. к при удалении записи нарушается счет, поэтому и пробовала создавать новую таблицу для занесения уникального номера под которым можно вставить запись читателя в таблицу.
Аналог моего примера - http://www.sd-company.su/sd_base_xp/.../delphi_id.php.

[Аватар]

IDTable.FindKey([Name])
IDTable какого типа? Не у всех таких компонент есть метод FindKey
Name - где определено, какое значение? Вообще-то здесь по вашей логике должно быть имя таблицы, что-нибудь наподобие 'Table1'

[puma]

IDTable - это дополнительная таблица а Name - это поле в таблице

[Аватар]

дополнительная таблица

Такого типа не знаю. Есть TTable, TADOTable и другие

Name - это поле в таблице

При каких делах? Должно быть значение поля, по которому FindKey ищет запись

[puma]

Не могу понять.... Подскажите, пожалуйста как правильно реализовать поиск и внести запись с уникальным id....

[xoodoo]

нарушается счет

Первичный ключ он не для "счета" нужен, а для однозначной идентификации записи.
А для идентификации совершенно неважно по порядку ли идут идентификационные номера - главное чтобы они были уникальны в пределах таблицы. Именно за это и будет отвечать поле ID, созданное как первичный ключ. Автоинкремент лишь облегчит генерацию уникального значения ключа, ибо он осуществляется вне контекста транзакций.