АлексейК, я тебе кране признателен за советы, материализовавшиеся, в частности, в готовом коде. И за предложение пояснить этот код не меньше. Не сомневаюсь, что через некоторое время воспользуюсь твоей любезностью. Наверное, уже по мэйлу, чтобы остальным не надоедать. Или лучше здесь?

А до сих пор не воспользовался советом я по самым стандартным для непрофессионального программиста причинам: врожденный консерватизм, страшный перегруз остатков мозга (трудно резко перескочить на новый подход когда свободной оперативки остался 1 Кб), необходимость срочного решения проблемы. По привычным рельсам всегда проще ехать, хотя это далеко не всегда правильно.

Но сегодня выяснил, что, по всей видимости, получу "добро" на перевод всего и вся в ADP. Тогда всех здесь замучаю:))

Еще раз спасибо всем, кто принял участие в обсуждении проблемы!

И почему это запрос не отрабатывает полностью за положенное время, а продолжает "держать" таблицу...

MoveFirst сейчас попробую, хотя меня терзают смутные сомненья. Ожидаю, что этот фокус не пройдет. Я так понял, что серверу хочется, чтобы кто-ниубудь на весь запрос полюбовался прежде чем "отпускать" записи. Хотя я пробовал без "MoveLast-а" руками прокручивать записи в форме. "Отпускает" где-то на второй половине набора, т.е. до самого "ласта" добираться не надо. Понять бы в какой момент это происходит...

И еще есть опасность развития шизофрении. Когда одной рукой на одном ПК одного пользователя изображаешь, а второй рукой на соседнем - второго:)...

Сделал окончательную ерунду. Заменил rs.MoveLast на

rs.FindFirst ("ID_записи=") & DMax("ID_записи", "ОсновнаяТаблицаПоиска")

Эффект замечательный. Скорость выборок повысилась раз в 5-6. Причем с выборками работают одновремнно 5 человек (больше не удалось собрать). А двое в максимально быстром режиме вводят и редактируют. Все происходит без заметных задержек.

Пришел к таким выводам. При поиске максимального идентификатора происходит "прокурчивание" рекордсета. Так же, как и при MoveLast, но поскольку ID - PK числового формата, то прокрутка происходит несоразмеримо быстрее.

Бред какой-то... Но ведь работает!

Dim rs as DAO.Recordset

Set rs = CurrentDb.OpenRecordset(strSql, dbOpenSnapshot)

(Дальше та самая строчка с поиском максимального ИД)

А потом:

Set Me.Recordset = rs

-------------------

strSql - это собранная по кусочкам строка запроса: "Select ... "

dbOpenSnapshot - для перестраховки. Само по себе не помогало.

-------------------