|
General |
| 6.183 Aprire un qualsiasi file (di formato txt, pdf, tif ecc.) direttamente da un db access (2) |
| Roberto |
|
Nella Sezione General di questo sito è già presente la FAQ di Carmelo Campanella intitolata "6.123 Aprire un qualsiasi file (di formato txt, pdf, tif ecc.) direttamente da un db access" che indica come sia possibile aprire un file esterno al database da codice VBA. Esistono però almeno altre 3 soluzioni che risolvono quel problema forse in maniera più lineare e meno complessa. Prima soluzione Questa soluzione è la più adatta nel caso in cui il file deve essere aperto con un clic del mouse su un pulsante di comando; per farlo è sufficiente impostare la proprietà Indirizzo coll. Ipertestuale del pulsante con il path completo del file che si vuole aprire; insomma, se il pulsante di comando si chiama MioPulsante, va eseguta una riga di codice tipo questa: Me!MioPulsante.HyperlinkAddress = "C:\MiaDirectory\MioFile.pdf"Da quel momento ogni volta che verrà pigiato quel pulsante di comando Access aprirà il file MioFile.pdf tramite l'editor di default di quel tipo di file (propbabilmente, per l'esempio che viene qui trattato, Acrobat Reader) Seconda soluzione Se l'apertura del file va effettuata a prescindere da cliccare su un pulsante di comando, si può usare un codice VBA di questo tipo: Dim oWshShell
Set oWshShell = CreateObject("WScript.Shell")
oWshShell.Run Chr$(34) & "C:\MiaDirectory\MioFile.pdf" & Chr$(34)
Set oWshShell = Nothing Racchiudere tra doppi apici (Chr$(34)) la stringa che contiene il path del file da aprire evita una segnalazione di errore nel caso in cui il nome della directory e/o il nome del file contengano degli spazi.Terza soluzione Questa terza soluzione è un'alternativa alla precedente soluzione. Dim ret As Integer
ret = Shell("rundll32.exe url.dll,FileProtocolHandler " & "C:\MiaDirectory\MioFile.pdf", vbMaximizedFocus)
|