Developing.ru

НЕТ ПРОБЛЕМА НЕ РЕШЕНА! Рано обрадовался. Оказывается при компиляции и последующем автоматическом открытии откомпилированного клиента все работает. Но стоит закрыть и открыть откомпилированное приложение и диалог не работает!

Разобрался. Подправил код и заработало в accde.

Dim FName, FPath, GPath As String
Dim result As Integer
Dim intPos%
Dim GPos%
GPath = DLookup("config.path", "config", "(config.config_id=1)") ' путь по умолчанию из таблицы
Set MyDial = Application.FileDialog(1)
With MyDial
.Title = "Выбор документа"
.InitialFileName = GPath
.AllowMultiSelect = False
.Filters.Clear
.Filters.Add "files", "*.pdf; *.tif; *.tiff", 1
result = .Show
Set MyDial = Nothing

Простой код открытия диалогового окна выбора файла прекрасно работает из формы на клиенте (accdb). Но стоит мне откомпилировать приложение (сохранить как accde), как форма перестает работать. Никаких ошибок при компиляции и выполнении не возникает. Форма просто никак не реагирует при попытке вызвать диалог открытия файла.
Помогите дельным советом.

Dim FName, FPath, GPath As String
Dim result As Integer
Dim intPos%
Dim GPos%
GPath = DLookup("config.path", "config", "(config.config_id=1)") ' путь по умолчанию из таблицы
With Application.FileDialog(1)
.Title = "Выбор документа"
.InitialFileName = GPath
.AllowMultiSelect = False
.Filters.Clear
.Filters.Add "files", "*.pdf; *.tif; *.tiff", 1
result = .Show