Text in Hyperlink umwandeln

[Rainer 1984]

Hallo Accessfreunde,

wie kann man in einem Formular (über Abfrage-Generator) einen normalem Text in einen funktionierenden Hyperlink verwandeln?
Habe im Ausdrucks-Generator dazu keine passende Funktion gefunden.

Vielen Dank im Voraus.

Viele Grüße

Rainer

[bahasu]

Moin Rainer,

vielleicht hilft Dir das Beispiel im Anhang.
Dort steht im Formular beim Textfeld im Ereignis "Beim Doppelklick" die folgende Zeile:

Code (vb) [Auswählen] Erweitern

Application.FollowHyperlink Me.Textfeld

Harald

PS
Im Anhang ist auch noch eine kleine Error-Routine eingebaut

[Anhang gelöscht durch Administrator]

[Rainer 1984]

Hallo Harald,

zuerstmal vielen Dank!

Habe Deine Codezeile ausprobiert, es kommt zuerst folgender Sicherheitshinweis:
Es wurde ein potentielles Sicherheitsrisiko erkannt (usw.).

Klicke ich auf "Ja", erscheint folgende Fehlermeldung:
Laufzeitfehler '490': Die angegebene Datei konnte nicht geöffnet werden.

Klicke ich auf "Nein", erscheint folgende Fehlermeldung:
Laufzeitfehler'16388': Der Hyperlink kann nicht zum Ziel verfolgt werden.

Viele Grüße

Rainer

[MzKlMu]

Hallo,
zeige mal ein Beispiel, was Du mit dem Hyperlink öffenen/darstellen willst.
Also das was in dem Textfeld steht/stehen kann.

[bahasu]

Moin,

in der Datenbank vom Anhang gibt es 3 Beispiele.
Das erste ist ein Link zu diesem Forum: http://www.access-o-mania.de/forum/index.php?topic=13915
Ich bin darüber zu diesem Beitrag gekommen.

Die beiden folgenden dienten dazu, die Error Routine zu testen:
Beispiel 2: abc       ' ist kein brauchbarer Link
Beispiel 3:              ' enthielt einen Null-Eintrag

Was hast Du für einen Eintrag getestet?

Harald

[Rainer 1984]

Hallo MzKlMu, hallo Harald,

die Links befinden sich in einem Unterformular und werden von dort per Kombifeld im Hauptformular ausgewählt.
Habe festgestellt, dass der Fehler nicht auftritt, wenn die Links direkt ins Hauptformular eingegeben werden.
Wie kann man dieses Problem umgehen?

Viele Grüße

Rainer

[Rainer 1984]

Hallo,

hat noch jemand eine Idee?

Viele Grüße

Rainer

[MzKlMu]

Hallo,
ich hatte ja eine Frage:

zeige mal ein Beispiel, was Du mit dem Hyperlink öffenen/darstellen willst.
Also das was in dem Textfeld steht/stehen kann.

Hintergrund der Frage ist, ob Du überhaupt ein Hyperlink brauchst.
Zusätzlich:
Was willst Du mit dem Hyperlink also öffenen eine Internetseite oder z.B. ein anderes Dokument.

[Rainer 1984]

Hallo MzKlMu,

ja, ich brauche einen anklickbaren Hyperlink, über den ich auf eine Internetseite gelangen kann.

Schönen Abend

Rainer

[Rainer 1984]

Hallo Harald,

beigefügt eine stark vereinfachte Beispiel-Datei.

Viele Grüße

Rainer

[Anhang gelöscht durch Administrator]

[DF6GL]

Hallo,

z. B.:


Private Sub KdSt_Lk_DblClick(Cancel As Integer)
Shell """c:\programme\internet explorer\iexplore.exe"" " & Me!KdSt_Lk.Column(1)
End Sub

[bahasu]

Moin Rainer,

in dem Formular "Kundenstamm" war eine ID-Nummer für den Link benutzt worden.
Deshalb auch der Tipp von Franz mit Me!KdSt_Lk.Column(1), um auf die "Text"-Adresse zu kommen.

Anbei ein Beispiel mit dem "FollowHyperlink"-Befehl.

Harald

[Anhang gelöscht durch Administrator]

[Rainer 1984]

Hallo Franz, hallo Harald,

vielen Dank für Eure Hilfe, funktioniert! 

Viele Grüße

Rainer