Блокировка при определении кол-ва записей.

[oif]

Народ помогите.
Есть база mdb.
С нескольких компов делается запрос к ней.Допустим добавление записи с номером=Кол-во записей в базе +1.
Как сделать так чтобы при одновременном нажатии "Добавить" не создавались 2 записи с одинаковым номером,а у них были разные номера.
Т.е сделать блокировку пока не будут введены данные одним пользователям 2 пользователь не мог сделать запрос на кол-во записей.
Повторяю срабатывание происходит одновременно.
Вот код.

Код: Выделить всё

Dim conn As ADODB.Connection
Set conn = New ADODB.Connection
connString = "Provider= Microsoft.Jet.OLEDB.4.0;Data Source= " & putfile & ";Jet OLEDB:Database Password=7777777"
conn.Open connString
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
With rs
.ActiveConnection = conn
.Source = "dan"
.CursorType = adOpenDynamic
.LockType = adLockOptimistic
.Open "SELECT * FROM dan"
End With
IDz = rs.RecordCount + 1
rs.AddNew
rs.Fields(0) = Str(IDz)
rs.Fields(1) = Text1.Text
....
rs.Update
rs.Close

[alibek]

Никак.
Меняй логику.
Пусть номер присваивает сама СУБД.

[Twister]

Да, тут надо бы сделать что-то вроде сиквенса.
Создай таблицу, в ней одна запись и столько полей, сколько таких псевдо-сиквенсов ты хочешь юзать.
В самом Access'е на VBA напиши функцию, которая будет выдавать новый номер отталкиваясь от того, что записано в этой таблице. И тут же обновлять значение в ней. Т.е. два одинаковых запроса типа

select GenUniqId()
from <тут чуть не написал dual >

никогда не вернут одинаковых значений.

[oif]

Меняй логику.
Пусть номер присваивает сама СУБД.

Я пробывал ставить счетчик,но при удаленнии записи,счетчик продолжает считать дальше.Мне это не удобно.

Да, тут надо бы сделать что-то вроде сиквенса.
Создай таблицу, в ней одна запись и столько полей, сколько таких псевдо-сиквенсов ты хочешь юзать.
В самом Access'е на VBA напиши функцию, которая будет выдавать новый номер отталкиваясь от того, что записано в этой таблице. И тут же обновлять значение в ней. Т.е. два одинаковых запроса типа

Как я понял хранить кол-во записей в новой таблице?А если опять одновременно два запроса будет?

[VVitafresh]

Что мы знаем про каунтеры (aka счетчики)