[AccessD] File Not Found

"just go into the flailing of the arms and the head spinning like Robot on 
Lost in Space.  Warning Will Robinson
Warning!!!" Karen

..sooooooooo ...you've met JC in person, eh?

William Hindman


----- Original Message ----- 
From: "Nicholson, Karen" <cyx5 at cdc.gov>
To: "Access Developers discussion and problem solving" 
<accessd at databaseadvisors.com>
Sent: Monday, January 10, 2005 12:08 PM
Subject: RE: [AccessD] File Not Found


> Well, what more about me do you think your little computerized brain
> could take?  Most humans just go into the flailing of the arms and the
> head spinning like Robot on Lost in Space.  Warning Will Robinson
> Warning!!!
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Colby, John
> Sent: Monday, January 10, 2005 11:56 AM
> To: 'Access Developers discussion and problem solving'
> Subject: RE: [AccessD] File Not Found
>
>
>>Inherited database, not my fault.
>
> We hear this a LOT from you.  Are you sure you're telling us everything?
>
> ;-)
>
> John W. Colby
> The DIS Database Guy
>
>
> -----Original Message-----
> From: Nicholson, Karen [mailto:cyx5 at cdc.gov]
> Sent: Monday, January 10, 2005 11:42 AM
> To: accessd at databaseadvisors.com
> Subject: [AccessD] File Not Found
>
>
> Inherited database, not my fault.
>
> This code is executed in the onclick event of a subform.  It is to
> evaluate the extension (in this case it is a .wpd) and go to the correct
> case, which it does, and then open up the strDocLoc.
>
> The shell is properly defined as:
> Const MSWord = "C:\cqabapps\viewers\word\wordview.exe"
>
> (The application is sitting there looking at me)
>
>
>
> Dim strDocType As String, strDocLoc As String
> Dim strMsgText As String, strMsgTitle As String
> Dim MyAppID As Integer
>
> strDocType = Forms![frmDoc_TD]![frmDoc_TDSUB].Form![Extension]
> strDocLoc = Forms![frmDoc_TD]![frmDoc_TDSUB].Form![Path]
>
> Select Case strDocType
>            Case "doc", "wpd", "txt"
>            MyAppID = Shell(MSWord & " " & strDocLoc, vbMaximizedFocus)
>
> Q:\PROJECTS\CAB\Approved\TN009734\09734REP.WPD
>
> Run-time Error 53
> File not found
>
> If I go to the FIND feature from the start menu and put in the
> Q:\PROJECTS\CAB\Approved\TN009734\09734REP.WPD it goes right to it.  If
> I tell it to open it with the wordview.exe it works.
>
> Now why in the world would it think it can not find this or any file
> that is selected?
>
> Happy Monday.... Happy Monday...
> -- 
> 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
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>