[AccessD] Need Open File Dialog Box

[Rocky Smolin]

Don:

That's what I ended up using - found it on the internets. 

Thanks

Rocky


-----Original Message-----
From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
McGillivray, Don
Sent: Tuesday, August 07, 2018 3:41 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Need Open File Dialog Box

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

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