[AccessD] File Not Found

Nicholson, Karen cyx5 at cdc.gov
Mon Jan 10 10:42:29 CST 2005


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...



More information about the AccessD mailing list