ник: luj
If res.Transactions = False Then
проверяет не открыта ли запись для изменения. в таблице , в которой регистрируется последний использовавшийся номер.
т.е. ведется таблица. а рекордсер для получения номера отправляется в другую таблицу, которая имеет всего одну запись. там все рекордсеты берут свободный номер и отмечабт его занятым. т.е. т.к там всегь одна запись то рекордсеты идут на +. и после получения номера добавляет запись в общую таблицу записей с правильным номером.
кстати вот всетаки на 10000 записей встречался один глюк. таблица открыта и другой пользователь не может выполнить.Update вся эта канитель висла наглухо. Тут как раз бы использовать перехват run-time для рекордсетов. КАК не знаю :-(
a = Timer + Mid(Timer, 4, 1)
тут для уверености. рекордсет освобождает таблицу но реально она освобождается в течении 2-3 секунд. для захвата другим пользователем. тут ГСЧ.
If Me.TimerInterval = 60000 Then
Me.№_заказа = 0
End Ifd If
эти формы сделаны для проверки на наличие глюков. реально же все будет работать то нажатию клавиши. т.е. ак максимум 1 раз в 30 секунд (зависит от скорости набора диспетчера :-) )
так вот это один из моментов старого кода (забыл выкинуть) точка останова для выхода из процедуры при тестировании.
Я запускал с разных баз две формы с одинаковым кодом (таблици были прилинкованы из независимой БД) и проверял как это все отработает