Bild aus Hyperlink anzeigen

datekk · November 28, 2016, 09:25:00

Hallo,

ich möchte gern in Formularen einen Hyperlink zu einem Bild hinterlegen. Der Link ala http://adresse.de/bild.png soll in ein Textfeld eingefügt werden und das Bild dann in einem Bild-Steuerelement erscheinen. Via VBA lege ich me.Bild.picture = me.txtFeld fest.

Leider erhalte ich Laufzeitfehler 2220: Access kann die Datei 'http://......' nicht öffnen. Ich hatte es auch mal mit dem Webbrowser Steuerelement probiert. Dieses öffnet mir zwar problemlos Webseiten, jedoch auch nicht Direktlinks auf Bilder.

Code [Auswählen]


If Me.TxtBildLink > 0 Then

   Dim objWebbrowser As Webbrowser
   Set objWebbrowser = Me.Webbrowser.Object
   objWebbrowser.Object.Navigate2 Me.TxtBildLink

End If

Was mache ich falsch?

LG

crystal · November 28, 2016, 12:25:34

Hallo dattek,
probier doch mal, das Bild in einen mini-HTML-Rahmen zu packen, etwa so
<html><a href="<bild>"</html>

lg
crystal

datekk · November 28, 2016, 13:15:53

Also...

Code [Auswählen]

If Me.TxtBildLink > 0 Then

   Dim objWebbrowser As Webbrowser
   Set objWebbrowser = Me.Webbrowser.Object
   objWebbrowser.Object.Navigate2 "<html><a href=" & me.txtbildlink & "</html>"

End If

... funktioniert nicht. Wie soll ich das "in einen mini-HTML-Rahmen" packen?

DF6GL · November 28, 2016, 13:19:08

Hallo,

was passiert, wenn die URL (!, nicht Link) direkt in das Adressfeld eines Browsers eingegeben wird?

datekk · November 28, 2016, 13:37:57

Weiß es nicht genau was Du meinst mit URL, nicht Link.....

datekk · November 28, 2016, 13:38:25

Ihr könnt es ja damit mal ausprobieren: http://www.access-o-mania.de/forum/images/aomlogo.jpg

DF6GL · November 28, 2016, 13:47:32

Hallo,

naja, eine URL ist nun mal kein Link und auch kein HTML....

Und dies funktioniert nicht?:

Code [Auswählen]

objWebbrowser.Object.Navigate2 "http://www.access-o-mania.de/forum/images/aomlogo.jpg"

datekk · November 28, 2016, 14:06:00

Hallo Franz,

wenn ich es so eingebe wie Du es geschrieben hast, funktioniert es tadellos.... Nur wenn ich anstatt der URL den Inhalt des Textfeldes oder den Inhalt einer Variablen ausgebe, erhalte ich den Fehler, obwohl z.B. der Inhalt der Variablen der gleiche ist wie die URL...

Wie kann ich also die oben genannte URL gegen eine Variable tauschen?

DF6GL · November 28, 2016, 14:43:01

Hallo,

das Textfeld (und das entspr. Tabellenfeld ) darf nicht als Hyperlink definiert sein....

datekk · November 28, 2016, 14:46:30

... ist es auch nicht.. Es sind ganz normale Textfelder....

DF6GL · November 28, 2016, 14:54:43

Hallo,

Code [Auswählen]


Dim strURL as String
strURL =  "http://www.access-o-mania.de/forum/images/aomlogo.jpg"
.
.
objWebbrowser.Object.Navigate2 strURL
.
.

Es könnte aber auch sein, dass der WB nicht mit Variant zurecht kommt:

Zitat.
.
If not IsNull(Me!TxtBildLink) Then

Dim objWebbrowser As Webbrowser
Set objWebbrowser = Me.Webbrowser.Object
objWebbrowser.Object.Navigate2 cStr(Me!TxtBildLink)
End If

crystal · November 28, 2016, 14:56:06

Hallo,
also bei mir klappt es mit

Code [Auswählen]


dim WB As WebBrowser
WB.Navigate2  "http://www.access-o-mania.de/forum/images/aomlogo.jpg"

lg
crystal

datekk · November 28, 2016, 17:06:22

Lieber Franz, es geht leider immer noch nicht... Das Webbrowser Steuerelement zeigt immer an "Die Adresse ist ungültig.".

@crystal: Wenn ich Die Adresse so eingebe wie Du, dann läuft es bei mir auch. Ich muss aber die Adresse aus einem Textfeld oder einer Variablen übergeben. Leider schlagen alle Versuche damit leider fehl.

Noch eine Idee?

DF6GL · November 28, 2016, 17:45:27

Hallo,

schreib mal die Variable oder das Textfeld mit Debug.print in den Direktbereich und kopier das hierher.

Debug.Print Me!txtBildLink

datekk · November 28, 2016, 17:49:36

Hier das Ergebnis von debug.print:

http://www.access-im-unternehmen.de/fileadmin/images/accessbasics.gif

Neuigkeiten:

Bild aus Hyperlink anzeigen