open/save box question

[Guest]

Hi,
I'm using Access 97 and the ahtCommonFileOpenSave command to bring up the
Open/Save box.
I need to set two file locations - the first is the file I want to import
and the second is the file name I want to save the output file as.
The problem I'm having is the second Open/Save box doesn't appear when I
call it the second time. Here's my code:

strXLS = ahtCommonFileOpenSave(InitialDir:="H:\Data\", Filter:="Excel Files
(*.xls)", FilterIndex:=1, DialogTitle:="Locate the data file to import...",
FileName:=conDefXLSName, OpenFile:=True)
If IsNull(strXLS) Or strXLS = "" Then
GoTo CleanExit
End If

strSaveAs = ahtCommonFileOpenSave(InitialDir:="H:\Data\", Filter:="Excel
Files (*.xls)", FilterIndex:=1, DialogTitle:="Save output file as...",
FileName:=strDiffName, OpenFile:=False)
If IsNull(strSaveAs) Or strSaveAs = "" Then
GoTo CleanExit
End If

Can anyone suggest what might be happening and a solution?

Thanks
Dave

 

[Stefan Hoffmann]

hi Dave,

I'm using Access 97 and the ahtCommonFileOpenSave command to bring up the
Open/Save box.
Can anyone suggest what might be happening and a solution?

Debug your third party module, where your function is declared.

mfG
--> stefan <--