David Emerson
newsgrps at dalyn.co.nz
Mon Nov 7 17:03:21 CST 2005
Thanks Andy, Do you have the code for ShellExecute? David At 8/11/2005, you wrote: >Hi David >Sounds like you want RunApp. See fn below. I'm afraid I don't recall who to >credit. Just call RunApp passing it the filename. Don't recall when you need >the 2nd param but I alwys pass a value of 1 and it works fine. > >Function RunApp(strFile As String, bytSize) As Boolean > Dim lngRet As Long > Dim varTaskID As Variant > Dim strRet As String > > lngRet = ShellExecute(hWndAccessApp, vbNullString, strFile, > vbNullString, vbNullString, bytSize) > If lngRet > Success Then > strRet = vbNullString > lngRet = -1 > RunApp = True > Else > RunApp = False > Select Case lngRet > Case NotRegistered > varTaskID = Shell("rundll32.exe > shell32.dll,OpenAs_RunDLL " & strFile, bytSize) > lngRet = (varTaskID <> 0) > Case InadequateMemory > MsgBox "Error: Out of Memory/Resources!" > Case FileNotFound > MsgBox "Error: File not found!" > Case PathNotFound > MsgBox "Error: Path not found!" > Case BadFormat > MsgBox "Error: Bad File Format!" > Case 5 > MsgBox "Error: Unauthorized due to Security restrictions!" > End Select > End If >End Function > > >HTH >-- Andy Lacey >http://www.minstersystems.co.uk > > > -----Original Message----- > > From: accessd-bounces at databaseadvisors.com > > [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of David Emerson > > Sent: 07 November 2005 22:17 > > To: accessd at databaseadvisors.com > > Subject: [AccessD] Opening Other Program Files > > > > > > I have a field that has the full path to a file. The file may be a > > pdf or word doc. My user would like to be able to doubleclick the > > field and have the correct application open with the file (eg double > > click on a pdf will open Acrobat with the file showing). > > > > Any pointers on how this can be done?