[AccessD] Need Open File Dialog Box

[McGillivray, Don]

Hi Rocky,

If setting a reference to the MS Office Object Library is an option, you can use the FileDialog object.  

This may get you started, and I'm sure you can find plenty of references online for other features and functionality:

    Dim objDialog As Object
    Dim strUserPath As String 

    Set objDialog = Application.FileDialog(msoFileDialogFilePicker)
    
    With objDialog
        .Filters.Add "Excel Workbook Files", "*.xlsx", 1
        .ButtonName = "Select"
        .FilterIndex = 0
        .InitialView = msoFileDialogViewDetails
        .Title = "Select a Excel spreadsheet for import"
        .AllowMultiSelect = False
        If .Show = -1 Then strUserPath = .SelectedItems(1)
    End With


-----Original Message-----
From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin
Sent: Tuesday, August 07, 2018 2:48 PM
To: 'Access Developers discussion and problem solving' <accessd at databaseadvisors.com>
Subject: [AccessD] Need Open File Dialog Box

Dear List:

 

A client has me adding some functions to a legacy app that was written in 32 bit Access. So it has trouble running on the 64 bit Access he has on his machine.  Switching to 32 bit is not an option. 

 

The adh common open file dialog function which has been working so nicely no longer works - it uses comdlg32.dll.  

 

Declare PtrSafe Function adh_apiGetOpenFileName Lib "comdlg32.dll" _

Alias "GetOpenFileNameA" (ofn As tagOPENFILENAME) As Boolean

 

I added the PtrSafe and changed the declarations of Long to LongPtr.  But no cigar.

 

So I'm looking for a replacement open file dialog box function that might work on both 232 and 64 bit boxes.

 

Any help greatly appreciated by me and my client who HAS to get a report out this week. L

 

MTIA

 

 

Rocky Smolin

Beach Access Software

760-683-5777

 <http://www.bchacc.com> www.bchacc.com

 <http://www.e-z-mrp.com> www.e-z-mrp.com

Skype: rocky.smolin

 

 

--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com