Access: скрытая предзагрузка форм без мелькания?

Question

[Владислав Созин]

Добрый день.
В ERP-системе на Microsoft Access есть несколько форм, которые открываются очень долго (связанные таблицы, сложные подчинённые формы, объёмные данные). Я хочу предзагружать эти формы при запуске приложения, чтобы в дальнейшем они открывались мгновенно. Пользователь один раз подождёт при запуске — и всё.
Проблема: при предзагрузке окна форм мелькают на экране (появляются и исчезают), причём довольно долго (10–15 секунд). Это выглядит некрасиво и раздражает.
Что пробовал:
DoCmd.OpenForm "Форма", acNormal, , , , acHidden — формы всё равно мелькают, так как окно физически создаётся, прежде чем скрыться.
Application.Echo = False — не помогает, окна всё равно создаются.
Сворачивание главного окна Access через API (ShowWindow) — формы всё равно мелькают в свёрнутом окне, а форма входа становится невидимой.
Форма-заставка с acDialog — блокирует выполнение кода, предзагрузка не происходит.
Нужно:
При запуске Access предзагрузить несколько форм в память.
Пользователь не должен видеть процесс их загрузки (никакого мелькания).
После предзагрузки открывается рабочая форма (видимая).
Предзагруженные формы остаются в памяти и открываются мгновенно.
Подскажите, есть ли способ реализовать такое? Может быть, есть обходной путь через API Windows, скрытые окна, другой подход?
Заранее спасибо.

Comments

[Zerg89]

Так может наоборот, через Lazy Loading настроить чтобы не грузить все сразу, а только необходимое, а остальное при переходе к этим данным(оптимизация со стороны того что нужно всегда, и что нужно раз в год)

Либо еще оптимизация запросов к базе нужна, так как при открытии формы идет запрос к базе что тормозит открытие форм, так как много всего сразу запрашивается сервер захлебывается

[rPman]

как именно ведется подсчет на этих формах? это сложная view? это метод на vb?

с методом на vb проще всего, вызывай его по своей логике а не в конструкторе формы, со view чуть сложнее, например можно заменить его своей временной таблицей, которую наполняй по своим правилам из той же view или раскидай формулы по тригерам (как они там у access называются) на модификацию данных

[Василий Банников]

Zerg89,

так как много всего сразу запрашивается сервер захлебывается

Какой такой сервер?)

[Zerg89]

Василий Банников, предологал что там интеграция с субд, а если все в файлах то совсем печально

[Василий Банников]

Zerg89, а access умеет подключаться по сети к нормальным субд?

[Zerg89]

Василий Банников, ODBC-подключение: Используется для подключения к внешним SQL-источникам (MySQL, PostgreSQL, Oracle)

Answer 1

[rPman]

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

Answer 2

[Пума Тайланд]

LockWindowUpdate через WinAPI — один из рабочих хаков для этого:

Private Declare PtrSafe Function LockWindowUpdate Lib "user32" _
    (ByVal hwndLock As LongPtr) As Long

Sub PreloadForms()
    On Error GoTo Cleanup
    LockWindowUpdate Application.hWndAccessApp
    DoCmd.OpenForm "Form1", acNormal, , , , acHidden
    DoCmd.OpenForm "Form2", acNormal, , , , acHidden
Cleanup:
    LockWindowUpdate 0
End Sub

Экран замораживается на время загрузки — мелькания нет. PtrSafe нужен для 64-бит Office; на 32-бит убери его и замени LongPtr на Long. On Error GoTo Cleanup обязателен — иначе при ошибке UI зависнет намертво.

p.s. если формы тормозят именно из-за данных — кста проще грузить с WHERE "1=0" (0 записей, мгновенно) и подменять RecordSource уже когда юзер реально откроет форму.