Home | Contact Us | FAQ | Search & Site Map | Link to Us
Sign In | Join | Other 45 Sites in Network
Home
Discussion GroupsFormsForms ProgrammingQueriesModules / DAO / VBAReports / PrintingMacrosDatabase DesignSecurityConversionImporting / LinkingSQL Server / ADPMultiuser / NetworkingReplicationSetup / ConfigurationDeveloper ToolkitsActiveX ControlsNew UsersGeneral 1General 2
Access DirectoryToolsTutorialsUser Groups
Related Topics
SQL ServerOther DB ProductsMS OfficeMore Topics ...

MS Access Forum / Forms / May 2008

Tip: Looking for answers? Try searching our database.

Dirk Goldgar or someone familiar with dev-ashish

Thread view: 
Enable EMail Alerts  Start New Thread
Thread rating: 
misschanda - 06 May 2008 15:02 GMT
thanks for your response to my earlier post:

http://www.accessmonster.com/Uwe/Forum.aspx/access/102015/help-dirk-goldgar-or-s
omeone-familiar-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 - 07 May 2008 16:52 GMT
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
Signature

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

> thanks for your response to my earlier post:
>
[quoted text clipped - 7 lines]
> thanks
> misschanda
misschanda - 07 May 2008 18:11 GMT
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:
>
[quoted text clipped - 33 lines]
>> thanks
>> misschanda
Steve Sanford - 10 May 2008 03:58 GMT
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
Signature

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,
[quoted text clipped - 46 lines]
> >> thanks
> >> misschanda
 
Sign In
Join
My Latest Posts
My Monitored Threads
My Blog
My Photo Gallery
My Profile
My Homepage

Start New Thread
Enable EMail Alerts
Rate this Thread



©2008 Advenet LLC   Privacy Policy - Terms of Use
This website includes both content owned or controlled by Advenet as well as content owned or controlled by third parties.