Hello,
From my database I open a lot of documents using the following code:
Private Sub OPEN_FILE_Click()
Dim stAppName, stApp, stPath, stVersion, stFile, stExt As String
stFile = Me.DOCUMENT_CODE.Value
stPath = Me.DOCUMENT_FILE_LOCATIE.Value
stVersion = Me.DOCUMENT_VERSION.Value
stApp = Me.APP.Value
stExt = Me.APP_EXTENSION.Value
stAppName = stApp & " " & stPath & stFile & "" & stVersion & stExt
Call Shell(stAppName, 1)
End Sub
The Me.APP.Value come from an other table with the following
C:\Program Files (x86)\Microsoft Office\Office14\EXCEL.exe
C:\Program Files\Microsoft Office\Office14\WINWORD.exe
C:\Program Files (x86)\Adobe\Acrobat 10.0\Acrobat\Acrobat.exe
The problem is that I now have a new version of Office and the links do not work anymore, but because other in the company also use the database and still have the old version I need an alternative.
For Word the problem is solved by removing the path and put only WINWORD.exe instead.
Is there something simular for Excel and PDF files?
From my database I open a lot of documents using the following code:
Private Sub OPEN_FILE_Click()
Dim stAppName, stApp, stPath, stVersion, stFile, stExt As String
stFile = Me.DOCUMENT_CODE.Value
stPath = Me.DOCUMENT_FILE_LOCATIE.Value
stVersion = Me.DOCUMENT_VERSION.Value
stApp = Me.APP.Value
stExt = Me.APP_EXTENSION.Value
stAppName = stApp & " " & stPath & stFile & "" & stVersion & stExt
Call Shell(stAppName, 1)
End Sub
The Me.APP.Value come from an other table with the following
C:\Program Files (x86)\Microsoft Office\Office14\EXCEL.exe
C:\Program Files\Microsoft Office\Office14\WINWORD.exe
C:\Program Files (x86)\Adobe\Acrobat 10.0\Acrobat\Acrobat.exe
The problem is that I now have a new version of Office and the links do not work anymore, but because other in the company also use the database and still have the old version I need an alternative.
For Word the problem is solved by removing the path and put only WINWORD.exe instead.
Is there something simular for Excel and PDF files?