none
Hyperlinks in Access 2010 per VBA anpassen RRS feed

 > 

  • Frage

  • Question
    Anmelden
    0
    Anmelden

    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