Нужно генери-ть ключевое поле в случайной последовательности при добавлении в таблицу списка. Если поставить счетчик на случайную последовательность, то начинает с минусов. Ключевое поле в виде отрицательного числа - это уж слишком. Если писать свою rand-функцию, то процесс добавления большого кол-ва строк станет вечным, пока функция там проверяет уникальность новопридуманного числа.

Может можно определить начальное значение для счетчика?

Так ведь если говорить о счетчике, то разве можно на него наложить условия в таблице. Он генерится самостоятельно, а через процедуры - конечно, можно сделать но... загнется, бедолага, от проверки предыдущих ключей уже на 100000.

Вероятно можно поставить начальное значение для счетчика?

Нужно второе - случайные уникальные значения.

Поскольку таблицы в Акцессе толком защитить нельзя, хочу сделать так, чтобы инормация, предоставляемая в них не была бы актуальной. В таблице детали есть коды деталей с наименованиями. В другой таблице всяческая инфа оных и те же самые коды, но только чуть преобразованные по формуле. Программа преобразует эти коды и увязывает наименования с остальной инфой. Ведь сами модули при конвертировании в MDE прочитать нельзя! Для человека, который не может увязать наименования с характкристиками деталей, эти таблицы будут бесполезны. ПЛЮС есть возожность время от времени менять эти коды, ну может еще и саму формулу в исходниках. Измененные коды запоминаются вместе со старыми в таблице соответствия и после внесения изменений на рабочем компьютере по этой таблице, она удаляется.

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

Ну да, в принципе они не помешают. Хотя, возможно, в формуле они дадут глюк...

Последний id имеет почти максимальный размер Long-а, так что не получится прибавлять константу.

2 VIG: С Guid-ами никогда не работал и не знаю как они помогут разрешить вопрос. Да еще к тому же они размером 16 байт, что-то как-то...

2 Владимиир Саныч: При замене кодов можно и подождать пол часика. Могу объяснить, что идут мудреные процессы супер-защиты :) Но вот трабла. НАписал следующее:

INSERT INTO Детали2( Код, Деталь)
SELECT rand_kod([Код]) AS Выражение1, Детали.Деталь
FROM Детали;

Function rand_kode(kod As String) As Long
Static q As Long, w As Long, e As Long, mas() As Long
q = q + 1
If q = 1 Then Randomize (Timer): ReDim mas(60000)
''''Stop
repe:
w = 1 + Int(999998 * Rnd)
For e = 1 To q - 1
If w = mas(e) Then GoTo repe
Next e
mas(q) = w
rand_kode = w
End Function

mas 60000 в полне хватает (там записей на 45000 слишним.
Долго, конечно, тормозит, но потом выдает Subscript out of Range. q на этот момент уже 60000, ну и массив лопается.

Недоумеваю - ведь записей всего на сорок тысяч! Он что, на каждую строчку функцию по нескольку раз запускает. Как этого избежать?

А где ставить обработчик ошибок? Так же в какой-нить функции, или на это есть специальное место в конструкторе запроса?

Обработчик должен выглядеть как on error goto?

:) И это будет проще, чем функция, которая генерит уже уникальные числа для запроса? :)

Написал:

Sub codes()
Dim rec As DAO.Recordset
Set rec = CurrentDb.OpenRecordset("Соответст")
On Error Resume Next
rec.MoveFirst
Randomize Timer
Do
ifer:
rec.Edit
rec![Текущие коды] = 1 + Int(Rnd * 999999)
If Err.number Then Err.Clear: GoTo ifer
rec.Update
rec.MoveNext
Loop Until rec.EOF
On Error GoTo 0
Set rec = Nothing
End Sub

А он часть (малую, но все же) записей пропускает!!! Почему?

Таким макаром?

Sub codes()
Dim rec As DAO.Recordset
Set rec = CurrentDb.OpenRecordset("Соответст")
On Error Resume Next
rec.MoveFirst
Randomize Timer
Do
rec.Edit
ifer:
rec![Текущие коды] = 1 + Int(Rnd * 999999)
rec.Update
If Err.number Then Err.Clear: GoTo ifer
rec.MoveNext
Loop Until rec.EOF
On Error GoTo 0
Set rec = Nothing
End Sub

или в этом случае Edit уже нужно опустить ниже?