无法从访问2010年代码创建访问2013年accde

Question

我有一个在访问2010 64位创建的应用程序。此后，我在同一台PC上使用访问2013 32位替换了访问2010 64位。该应用程序在两个版本的访问中都可以正常工作作为accdb文件但是当我尝试创建一个accde文件时，我收到一个错误“访问无法创建一个accde文件” - 这在访问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