Office: (Office 365) Inhalt eines Hyperlink Feldes in ein Textfeld kopieren

Hallo,
kurz vorweg, GRUNDkenntnisse sind ein paar vorhanden, VBA-Kenntnisse sind nicht vorhanden.
Ich habe eine DB zum verwalten meiner Dokumente.
In einem Endlosformular erzeuge ich mit Hilfe einer Schaltfläche einen Link zu einem Dokument.
Diesen Link kopiere ich mir mit

Private Sub utbdoku_PDFLink_AfterUpdate()
Me!utbdoku_PDFPfad = Me!utbdoku_PDFLink
End Sub

in ein Textfeld. Ich will mir in einem Hauptformular die PDF-Dateien in einem Webbrowsersteuerelement anzeigen lassen. Wenn das ein Link ist zeigt das WBS nichts an, liegt der Link als Text vor wird es angezeigt.
Das funktioniert alles sehr gut, allerdings wird mir der Link so kopiert:

Dokumente\discogs\Sales\342893-505#Dokumente\discogs\Sales\342893-505#

also der Link als Text [String#String#].
Kann man den Teil zwischen #.....# inkl. der # entfernen, da ich das jetzt immer manuell gemacht habe?
Ich habe eine TestDB angehängt, die Eingabe mit der Schaltfläche für den Link erfolgt über ufrm_dokumente_eingabe, das Hauptformular ist frm_uebersicht2.
Ich hoffe die Infos reichen erstmal und würde mich freuen wenn mir jemand einen Tip geben kann.
Gruss

 

Hallo Ramsey,

versuche mal

Code:

Private Sub utbdoku_PDFLink_AfterUpdate()
   Me!utbdoku_PDFPfad = mid(Me!utbdoku_PDFLink,2,Len(Me!utbdoku_PDFLink)-2)
End Sub

Gruß
Doming

 

ich habe mal versucht, Dein Problem an Deiner Beispiel-DB nachzuvollziehen
Leider wird mir das Textfeld nicht angezeigt
Sollte obiges nicht funktionieren, versuche mal Folgendes:

Setze eine Haltemarke in den Code (indem Du auf die Stelle klickst, wo auf dem Bild der rote Punkt ist)
Dann Klicke auf Deinem Formular auf die Textbox utbdoku_PDFLink, der Code wird dann an der markierten Zeile stoppen (Zeile ist dann gelb markiert).
Du kannst Dir dann die Werte der Variablen anzeigen lassen, indem Du mit der Maus über die Variablen gehst.
Alternativ kannst Du Dir im Direktfenster ebenfalls den Wert anzeigen lassen, indem Du dort ?utbdoku_PDFLink eintippst.
Vielleicht hilft es bei der Fehlersuche

 

Hallo Doming,
Danke für deine Hilfe, funktioniert leider nur bedingt.
Als Ergebnis kommt jetzt [String#String] raus. Es fehlt zumindest schon mal das letzte Zeichen (#)

Ich weiss auch nicht nach was ich suchen soll. Habe schon einiges an Formulierungen in der Suche versucht, finde aber nicht was mir hier weiterhilft.

Wenn ich den Link makiere und in mein Textfeld kopiere, funktioniert es und ich kann mir das PDF in meinem WBS anzeigen lassen.

 

Ich habe das, so wie du in #3 beschrieben hast, probiert. Allerdings weiss ich nicht was ich mit dem angezeigten anfangen kann.
Im Direktfenster zeigt er mir:

?utbdoku_PDFLink
PowerShot_S200_Camera_User_Guide_DE.pdf#PowerShot_S200_Camera_User_Guide_DE.pdf#

Also genau das was dann auch ins Textfeld kopiert wird.
Kann man mit VBA die Zeichenfolge zwischen den beiden # löschen/entfernen und die # natürlich auch?
Der Pfad variiert in der Länge ständig.

 

Hallo,
was mich irritiert, warum hast Du den Link in zweifacher Ausführung?
Wäre es nicht sinnvoller, alles, was vor dem # steht zu behalten und den Rest zu löschen?
Das wäre mit

Code:

Me!utbdoku_PDFPfad = Left(Me!utbdoku_PDFLink,instr(Me!utbdoku_PDFLink,"#")-1)

zu erreichen.
Gruß
Doming

 

Hallo Doming,
da habe ich mich evtl. etwas unverständlich ausgedrückt. Genau das wollte ich.
Mir wird, mit dem Code den ich habe, der Link doppelt in das Textfeld kopiert, dazwischen und am Ende mit einem #.
Und das wollte ich eleminieren.
Ich habe deinen Code bereits ausprobiert und er funktioniert einwandfrei.
Ich dachte mir schon das es etwas mit dem Left Befehl zu tun hat, konnte das nur leider, wegen Unkenntnis, nicht selber umsetzen.
Ich danke dir vielmals, das Thema hat mich schon seit Wochen beschäftigt.
Gruss

 

Eine abschliessende Frage. Muss ich das Thema noch irgendwie abschliessen, als erledigt makieren?
Wenn ja wie mache ich das, konnte leider nichts finden.

 

Hallo,
nö, ist in diesem Forum nicht üblich, warum auch immer.
Gruß
Doming

 

Ok, und Danke nochmal, bin total begeistert. :-)