无法从access 2010代码创建access 2013 access

Question

我有一个在access 2010 64位创建的应用程序。自那以后，我在同一台PC上用access 2013 32位替换了access 2010 64位。这个应用程序作为accdb文件在两个版本的access中都能正常工作，但是当我尝试创建一个accde文件时，我收到了一个错误消息"access unable to create an accde file“-这在access 2010 accde版本中是不会发生的。

我计划使用access 2013运行时来分发应用程序。在一个案例中，我认为问题可能与后期绑定有关，但我认为现在这是不合逻辑的。

在下面的代码中，编译在"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

Answer 1

尝尝这个

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