Office: (Office 2007) pdf-Datei via FollowHyperlink öffnen

Hallo,

hatte vor einigen Tagen schon einmal im Forum nach Rat gefragt... Nun brauche ich mal wieder die Hilfe eines Experten. Es geht um Folgendes:


Habe eine Access-Literaturdatenbank. Diese beinhaltet Links zu extern abgelegten pdf-Dateien.

Über ein Formular werden nach Eingabe der individuellen Such-Parameter die Literatur-Suchergebnisse angezeigt. Dabei hat jeder Datensatz ein Listenfeld, in welchem ein - z.T. auch mehrere - Links zur entsprechenden Literatur verweisen. Duch Doppelklick auf den Wert des Listenfeldes soll nun die hinterlegte pdf-Datei geöffnet werden.

Code:

Private Sub Liste14_DblClick(Cancel As Integer)
Dim varElem As Variant
FollowHyperlink DateiExpl.CurrentDBName & Forms!frm_Normensuche!Ergebnis!Liste14.ItemData(varElem)
End Sub

Nun öffnet sich "blitzlichtartig" ein Fenster der aufgerufenen pdf Datei und verschwindet aber sofort wieder (die pdf-Datei wird also nicht geöffnet ...).

doc, ppt und xls Dateien werden aber geöffnet und wie gewünscht angezeigt

Wo liegt hierbei das Problem?

Danke im Voraus für eine Antwort.

Grüße SIROB

:)

 

kannst du mal das Ergebnis des Ausdrucks in FollowHyperlinks zeigen?

 

Probiers's sonst mal mit...

Application.FollowHyperlink...

So geht's bei mir!

Gruß,
Jan

 

FollowHyperlink kann nur anzeigen, was die IE-Einstellungen (!) zulassen und ist daher im Zweifelsfall ein unsicherer Kandidat.

Auf der sicheren Seite liegst Du mit ShellExecute.

 

hallo,

danke für eure antworten. leider funktioniert`s noch nicht:


@kama: meinst du das ergebnis im überwachungsfenster? wenn ja: das sieht so aus:

Watch: DateiExpl.CurrentDBName&Forms!frm_Normensuche!Ergebnis!Liste14.ItemData(varElem):"G:\Abteilungen\AbteilungA\Normen\Norm_12.pdf":Varaint/String:


@Jan: Application.FollowHyperlink... - liefert leider kein besseres ergebnis - alles bleibt beim alten


@Eberhard: "ShellExecute" - das ist ne gute idee:

habe mal gegooglet und folgendes gemacht:

Option Compare Database
Option Explicit

Public Declare Function ShellExecute Lib "shell32.dll" Alias _
"ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, _
ByVal lpFile As String, ByVal lpParameters As String, _
ByVal lpDirectory As String, ByVal nshowcmd As Long) _
As Long

Public Const SW_HIDE = 0 ' Versteckt öffnen
Public Const SW_MAXIMIZE = 3 ' Maximiert öffnen
Public Const SW_MINIMIZE = 6 ' Minimiert öffnen
Public Const SW_NORMAL = 1
Public Const SW_RESTORE = 9
Public Const SW_SHOWMAXIMIZED = 3
Public Const SW_SHOWMINIMIZED = 2
Public Const SW_SHOWMINNOACTIVE = 7
Public Const SW_SHOWNOACTIVATE = 4


dann:

Call ShellExecute(Me.hWnd, "open", "G:\Abteilungen\AbteilungA\Normen\Norm_12.pdf", "", "", _
SW_NORMAL)


das funktioniert mit dem festen Pfad => pdf Datei öffnet sich wie gewünscht.


Allerdings funktioniert das nicht (Parameter nach "open" muss variabel sein, da jeder Datensatz eine andere pdf-Datei hat):

Call ShellExecute(Me.hWnd, "open", "DateiExpl.CurrentDBName&Forms!frm_Normensuche!Ergebnis!Liste14.ItemData(varElem)", "", "", _
SW_NORMAL)


=> hierbei passiert gar nichts: kein öffnen der pdf-Datei - nicht einmal eine "blitzlicht"-anzeige

eine msgbox für DateiExpl.CurrentDBName&Forms!frm_Normensuche!Ergebnis!Liste14.ItemData(varElem)
ergibt allerdings: G:\Abteilungen\AbteilungA\Normen\Norm_12.pdf

warum funktiniert das nicht?

danke für die antworten

 

Nein, das kann natürlich nicht funktionieren, wenn du den Ausdruck in Gänsefüßchen setzt! *wink.gif*

 

Wenn Du den Dateipfad als Variable übergibst (so ist der Ausdruck zu werten), sind die äußeren Gänsefüßchen wegzulassen.

 

na klar, die gänsefüßchen ... es funktioniert ... fall gelöst.

vielen dank an alle