Hilfe bei "FollowHyerlink"

[datekk]

Hi,

ich möchte von Access aus eine Website öffnen. Das klappt bei "normalen Seiten ala http://www.access-o-mania.de" auch problemlos.

Ich möchte allerdings mit der URL Parameter übergeben. Diese Parameter enthalten u.a. Leerzeichen.

Beim Aufruf hängt sich Access erstmal eine weile fest und spuckt dann Fehler "490 - Datei konnte nicht geöffnet werden" aus.

Die URL mit debug.print ausgegeben und in den Browser reinkopiert klappt super, ohne Probleme.

Mit Replace die Leerzeichen durch %20 ersetzt... will FollowHyperlink auch nicht... gleicher Fehler...

Wie kann ich denn Access dazu bringen, diesen Link an den Browser zu übergeben und die Seite zu öffnen?

[PhilS]

Mit Replace die Leerzeichen durch %20 ersetzt... will FollowHyperlink auch nicht... gleicher Fehler...

Wie kann ich denn Access dazu bringen, diesen Link an den Browser zu übergeben und die Seite zu öffnen?

Gibt es evtl. weitere Sonderzeichen in der URL? - Stichwort: URLEncode
Kannst du einen konkreten Link als Beispiel posten?

[Beaker s.a.]

@datekk
Versuche mal die Quotes zu maskieren

Code [Auswählen] Erweitern

""" oder

Code [Auswählen] Erweitern

""""
Bin mir nicht sicher; - das Direktfenster gibt in beiden Fällen ein einfaches "
zurück.
gruss ekkehard

[MzKlMu]

Hallo,
oft hilft auch mit Chr(34) zu maskieren.

[datekk]

Es sind gar keine Anführungszeichen im Code enthalten die maskiert werden müssten.

Hier der Link. Normale Zeichen durch '*' geschwärzt:

https://******.com/****-*****/*******?name=****%20******%20&email=*******@******.com&a1=**********%20******%20*****%20*******%20%20**********%20****%20*******%20******%20********&a2=**%20(*****)%20******

Der Link enthält keine Umlaute. Alle Sonderzeichen sind noch zu sehen. Leerzeichen durch %20 ersetzt.

Gäbe es noch eine Alternative zu "FollowHyperlink"?

[DF6GL]

Hallo,

Die URL mit debug.print ausgegeben und in den Browser reinkopiert klappt super, ohne Probleme.

Kopiere danach die funktionierende URL aus dem Browser-Adressfeld und lege die als Literalstring im Code ab.

Ersetze manuell die darin enthaltenen Parameterwerte durch je einen individuellen Platzhalter (z. B "[Ort]") .

Ersetze sodann mit Replace die einzelnen Platzhalter durch die akt. Werte und  übergebe das Ergebnis an Followhyperlink.

strOrt="Musterstadt"
strUrl = Replace (strUrl, "[Ort]",strOrt)
FollowHyperlink strUrl


Alternative für Followhyperlink:  Shellexecute

[MzKlMu]

Hallo,
wenn ich nicht irre, ist die Länge des Pfades mit Dateinamen auf 64 Zeichen beschränkt.
Das gilt glaube ich auch für Shellexecute, müsste man mal probieren.

[DF6GL]

Hi,

die Länge des Pfades mit Dateinamen

[MzKlMu]

Hallo,
meinte natürlich nicht Pfad, sondern die komplette URL.
Es ist das Alter. 

[DF6GL]

Tja, solche Situationen kenne ich auch...

[Joss]

Alternative für Followhyperlink:  Shellexecute

Shellexecute findest du z.B. hier:
VBA Tipp: Anwendung mit ShellExecute starten

Gruß
Josef

[Joss]

@Klaus,

wenn ich nicht irre, ist die Länge des Pfades mit Dateinamen auf 64 Zeichen beschränkt.

ich habe mal testweise einen Pfad zu einer Webseite mit 263 Zeichen mit der FollowHyperlink-Methode geöffnet.
Hat funktioniert.

Gruß
Josef

[PhilS]

Der Link enthält keine Umlaute. Alle Sonderzeichen sind noch zu sehen. Leerzeichen durch %20 ersetzt.

Die Klammern und das @-Symbol müssen meines Erachtens codiert werden.

[datekk]

Das Problem lag bei Umlauten. Ich habe es wie folgt gelöst:

Code [Auswählen] Erweitern



Sub OeffneLink(link as String)

Dim u1() as String
Dim u2() as String
Dim i as Integer

u1 = Split("ü,ä,ö,ß, ", ",")
u2 = Split("%C3%BC,%C3%A4,%C3%B6,%C3%9F,%20", ",")

For i = LBound(u1) To UBound(u2)

    link = Replace(link, u1(i), u2(i))

Next

FollowHyperlink link

End Sub


[PhilS]

Der Link enthält keine Umlaute.

Das Problem lag bei Umlauten. Ich habe es wie folgt gelöst:

Nun ja, gut dass du das Problem lösen konntest.