Простой код открытия диалогового окна выбора файла прекрасно работает из формы на клиенте (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
Access 2013 + Application.FileDialog(1) перестает работать после компиляции (accde)
Модератор: Naeel Maqsudov
Разобрался. Подправил код и заработало в 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
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
НЕТ ПРОБЛЕМА НЕ РЕШЕНА! Рано обрадовался. Оказывается при компиляции и последующем автоматическом открытии откомпилированного клиента все работает. Но стоит закрыть и открыть откомпилированное приложение и диалог не работает!