не может создать доступ 2013 из кода доступа 2010 - PullRequest
Новая
       10

не может создать доступ 2013 из кода доступа 2010

0 голосов
/ 19 февраля 2019

У меня есть приложение, созданное в Access 2010 64 бит.С тех пор я заменил 64-битный Access 2010 на 32-битный Access 2013 на одном компьютереПриложение отлично работает в обеих версиях доступа в виде файла accdb, но когда я пытаюсь создать файл accde, я получаю сообщение об ошибке «Доступ не в состоянии создать файл accde» - этого не произошло в версии Access 2010 accde.

Я планирую распространять приложение, используя Access 2013 Runtime.В одном случае я подумал, что проблема может быть связана с поздним связыванием, но теперь это нелогично.

В приведенном ниже коде компиляция останавливается на «Dim fldr as Office.FileDialogue» с сообщением «пользовательский тип неопределен "(аналогичная ошибка есть и в других местах). 

 Public Function GetFolderName(Optional OpenAt As String) As String

 Dim lCount As Long
 Dim fldr As Office.FileDialog
 Set fldr = Application.FileDialog(msoFileDialogFolderPicker)
 GetFolderName = vbNullString

With fldr

.InitialFileName = OpenAt
.Show
For lCount = 1 To .SelectedItems.Count
    GetFolderName = .SelectedItems(lCount)
Next lCount
End With
End Function

1 Ответ

0 голосов
/ 20 февраля 2019

Попробуйте это 

Public Function GetFolderName(Optional OpenAt As String) As String

 Dim lCount As Long
 Dim fldr As Object
 Set fldr = Application.FileDialog(4)
 GetFolderName = vbNullString

With fldr

.InitialFileName = OpenAt
.Show
For lCount = 1 To .SelectedItems.Count
    GetFolderName = .SelectedItems(lCount)
Next lCount
End With
End Function

См. Эту ссылку для перечисления MsoFileDialogType: https://docs.microsoft.com/en-us/office/vba/api/office.msofiledialogtype

...