The Open File Dialog Box not working in MS Access 2010

[cliftonx]

The following "Open file dialog box" code allows a user to browse through the folder and save a file at the user specifed location. It works perfectly in MS Access 2003:

Dim strInputFileName As String
Dim strfilter As String
strfilter = ahtAddFilterItem(strfilter, _
"Portable Doument Format (*.pdf)", "*.PDF")
strInputFileName = ahtCommonFileOpenSave(Filter:=strfilter, OpenFile:=False, _
DialogTitle:="Please select a Directory location for your report. Filename is
not require.", _
FileName:="Filename is not required. Click Save to continue", _
Flags:=ahtOFN_HIDEREADONLY)

However, after upgrading to MS Access 2010. The Open File dialog Box stop working. While in the debugger, every line executes without encountering any errors, but the dialog box will not open. Has anyone experienced a similar problem after upgrading to MS Access 2010. This problem occurrs on a Windows 7, 64bit PC only. Please Advise...

Thanks.

 

[boblarson]

You need to use

PtrSafe

as noted here:
http://msdn.microsoft.com/en-us/library/ee691831.aspx

 

[Guus2005]

... or you can use the build in Application.FileDialog method.

HTH

 

[penguino29]

Hi Cliftonx,

Sorry to hijack the thread - I've just answered a similar question in a thread with sample code which might come in handy for you.

http://www.access-programmers.co.uk/forums/showthread.php?t=217340

Greetings to Bob.

 

[antonio.manoj.derose]

I am having the same issue, can someone save me, the code goes through without throwing any error, but the save dialog window does not prompt.

Other comments were useful, but not at this instance, as I am trying to save, but not to file pick and load.

The following "Open file dialog box" code allows a user to browse through the folder and save a file at the user specifed location. It works perfectly in MS Access 2003:

Dim strInputFileName As String
Dim strfilter As String
strfilter = ahtAddFilterItem(strfilter, _
"Portable Doument Format (*.pdf)", "*.PDF")
strInputFileName = ahtCommonFileOpenSave(Filter:=strfilter, OpenFile:=False, _
DialogTitle:="Please select a Directory location for your report. Filename is
not require.", _
FileName:="Filename is not required. Click Save to continue", _
Flags:=ahtOFN_HIDEREADONLY)

However, after upgrading to MS Access 2010. The Open File dialog Box stop working. While in the debugger, every line executes without encountering any errors, but the dialog box will not open. Has anyone experienced a similar problem after upgrading to MS Access 2010. This problem occurrs on a Windows 7, 64bit PC only. Please Advise...

Thanks.

 

[pr2-eugin]

antonio.manoj.derose, best to start your own thread, if problem is similar to your's refer to the thread in the New Post.

It would also help if you could post your code.