Dirk Goldgar or someone familiar with dev-ashish

[misschanda via AccessMonster.com]

thanks for your response to my earlier post:

http://www.accessmonster.com/Uwe/Fo...iliar-with-Dev-Ashish-search#8337047de6654uwe


I am still not able to use the export option command on this dev-ashish
search form..

so, how exactly do i get it to show me an error message..

thanks
misschanda

 

[Steve Sanford]

In "Private Sub cmdExport_Click()", find this section of the code:

'----<snip>-------
Label16.Caption = "Search Results"
cmdExport.Tag = "Choose"
lstResult.ColumnWidths = ""
If Me.chkAutoBuildSQL = True Then Call sBuildSQL
End Select
ExitHere:
Exit Sub
ErrHandler:
If Err = 2448 Then Resume Next
Resume ExitHere
End Sub


Change the ErrHandler to:
'-----<snip>------
ErrHandler:

' ------ display errors ------
MsgBox Err.Number & " - " & Err.Description
'------------------------------

If Err = 2448 Then Resume Next
Resume ExitHere
End Sub


NOTE: this will display all errors for *this Sub only*

Note2: <snip> shows I cut code because I didn't need all of it


HTH

 

[misschanda via AccessMonster.com]

Thanks Steve for your reply.. However, I am still not able to see the file. I
ran a search on my computer and the file name showed as test4.xls, size: 1kb,
type: shortcut. when i then click on the file it says: Windows is searching
for "test4.xls" To locate click browse.. And after the searching it says
"The item test4.xls that this shortcut refers to has been changed or moved so
this shortcut will no longer work properly. Do you want to delete this
shortcut?"

Steve, where than is the file?

Thanks,
misschanda

In "Private Sub cmdExport_Click()", find this section of the code:

'----<snip>-------
Label16.Caption = "Search Results"
cmdExport.Tag = "Choose"
lstResult.ColumnWidths = ""
If Me.chkAutoBuildSQL = True Then Call sBuildSQL
End Select
ExitHere:
Exit Sub
ErrHandler:
If Err = 2448 Then Resume Next
Resume ExitHere
End Sub

Change the ErrHandler to:
'-----<snip>------
ErrHandler:

' ------ display errors ------
MsgBox Err.Number & " - " & Err.Description
'------------------------------

If Err = 2448 Then Resume Next
Resume ExitHere
End Sub

NOTE: this will display all errors for *this Sub only*

Note2: <snip> shows I cut code because I didn't need all of it

HTH

thanks for your response to my earlier post:

[quoted text clipped - 7 lines]

thanks
misschanda

 

[Steve Sanford]

I downloaded the zip file from "The Access Web" and added a table. I used the
search form to create a query, then clicked the EXPORT button.

It first wanted to know what format to save the query data. I selected
EXCEL4 then clicked EXPORT again (the only button enabled).

I clicked YES for "Are you sure" dialog box.

A selected a folder to save the excel file in and clicked SAVE.

I closed the Access mdb, opened the folder (My Documents) where the excel
file was saved. There it was!! And it opened in Excel2K...

Next I copied you posted code and compared it to the code I downloaded. It
is the same.


I don't know why you are not finding the file.....

Try it again; when the SAVE dialog box appears, select DESKTOP from the
dropdown as the location to save the file.

HTH
--
Steve S
--------------------------------
"Veni, Vidi, Velcro"
(I came; I saw; I stuck around.)

Thanks Steve for your reply.. However, I am still not able to see the file. I
ran a search on my computer and the file name showed as test4.xls, size: 1kb,
type: shortcut. when i then click on the file it says: Windows is searching
for "test4.xls" To locate click browse.. And after the searching it says
"The item test4.xls that this shortcut refers to has been changed or moved so
this shortcut will no longer work properly. Do you want to delete this
shortcut?"

Steve, where than is the file?

Thanks,
misschanda

In "Private Sub cmdExport_Click()", find this section of the code:

'----<snip>-------
Label16.Caption = "Search Results"
cmdExport.Tag = "Choose"
lstResult.ColumnWidths = ""
If Me.chkAutoBuildSQL = True Then Call sBuildSQL
End Select
ExitHere:
Exit Sub
ErrHandler:
If Err = 2448 Then Resume Next
Resume ExitHere
End Sub

Change the ErrHandler to:
'-----<snip>------
ErrHandler:

' ------ display errors ------
MsgBox Err.Number & " - " & Err.Description
'------------------------------

If Err = 2448 Then Resume Next
Resume ExitHere
End Sub

NOTE: this will display all errors for *this Sub only*

Note2: <snip> shows I cut code because I didn't need all of it

HTH

thanks for your response to my earlier post:

[quoted text clipped - 7 lines]

thanks
misschanda