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