[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