[AccessD] File Not Found

What if you change

 MyAppID = Shell(MSWord & " " & strDocLoc, vbMaximizedFocus)

to

 MyAppID = Shell(MSWord & " " & Quote(strDocLoc), vbMaximizedFocus)

And have the Quote function defined as

Function Quote(aString) As String
    Quote = """" & aString & """"
End Function

Or, better yet, use the ShellExecute API to load registered file types in
the appropriate application. See http://www.mvps.org/access/api/api0018.htm

Lambert

> -----Original Message-----
> From:	accessd-bounces at databaseadvisors.com
> [SMTP:accessd-bounces at databaseadvisors.com] On Behalf Of Nicholson, Karen
> 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