ник: Анатолий (Киев)
Что бы что-то подсказать, надо сначала понять, что вы хотите. 
Какой тайный смысл в этой проверке?
If res.Transactions = False Then
|
Здесь вы добавляете к значению таймера от 0(!) до 9 секунд. Почему не конкретное значение?
a = Timer + Mid(Timer, 4, 1)
|
После того, как вы "быстренько" внесли 1501 номеров, каждый следующий добавляется раз в минуту. Смысл?
Какой смысл в обнулении поля, если процедура продолжается и ему тут же подставляется следующее значение счетчика.
If Me.TimerInterval = 60000 Then
Me.№_заказа = 0
End Ifd If
|