none
Hyperlinks in Access 2010 per VBA anpassen RRS feed

  • Frage

  • Hallo

    möchte gern Hyperlinks, die per Drag&Drop in ein Textfeld, gebunden an eine Spalte vom Typ Hyperlink, gezogen wurden, nachbearbeiten, d.h. die Anzeige auf den Dateinamen reduzieren.

    Problem ist, dass der Link auf http : / Dateiname verweist, wenn ich die Anzeige auf diesen reduziere.

    Belasse ich die Anzeige bei Pfad + Dateiname, klappt der Link.

    Mein Code dazu:

    Private Sub Text60_Change() 'verbunden mit Spalte Hyperlink Me.Refresh Link_Datei = Text60 Call Link_Umformen(Link_Datei) End Sub

    'Aufbau eines Links

    '"Anzeigetext#Datei mit Pfad#noch was" als String

    Sub Link_Umformen(ByVal Link_Datei As String) t = Split(Link_Datei, "#") tt = Split(t(1), ".") 'Dateiendung entfernen, t(1) = Adresse Link tt = Split(tt(0), "\") ''Dateiname ohne Endung, tt(UBound(tt)) = Dateiname 'funktioniert, zeigt aber Pfad mit an Text60 = Fol & "\" & tt(UBound(tt)) & ".pdf#" & Fol & "\" & tt(UBound(tt)) & ".pdf#" 'funktioniert nicht Text60 = tt(UBound(tt)) & ".pdf#" & Fol & "\" & tt(UBound(tt)) & ".pdf#"

    Auch diese Variante

        Text60 = tt(UBound(tt)) & "#file://" & Fol & "\" & tt(UBound(tt)) & ".pdf#"

    funktioniert im einen Fall, im anderen nicht.

    Kennt jemand den Grund?

    Gruß

    PS: Wann wird denn endlich mal mein Konto geprüft????


    • Bearbeitet Casi_G Freitag, 21. September 2018 12:55
    Freitag, 21. September 2018 12:41

Alle Antworten