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

Question

I have an app created in access 2010 64 bit. I have since replaced access 2010 64 bit with access 2013 32 bit on the same PC. The app works fine in both versions of access as an accdb file but when I attempt to create an accde file I receive an error "access unable to create an accde file" - this didn't happen in the access 2010 accde version.

I plan to distribute the app using access 2013 runtime. In one case I thought the problem might be related to late binding but I think that's illogical now.

In the below code the compilation stops at "Dim fldr as Office.FileDialogue" with the message "user defined type not defined" (there is a similar error elsewhere too).

 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

Try this

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

See this link for the MsoFileDialogType enumeration: https://docs.microsoft.com/en-us/office/vba/api/office.msofiledialogtype