Access-o-Mania

Access-Forum (Deutsch/German) => Access Programmierung => Thema gestartet von: jagger am Mai 29, 2019, 10:40:49

Titel: Standard-Browser (oder neuenTab) öffen und Suchbegriff übergeben
Beitrag von: jagger am Mai 29, 2019, 10:40:49
Hallo,

ist es möglich mittels vba den Standardbrowser oder einen neuen Tab
zu öffnen und einen Suchbegriff zu übergeben?
Z.B.: Suchbegriff = strAdresse = Me.Strasse & ", " & Me.Plz & " " & Me.Ort

Dim strAddresse As String
Dim strLink As String

On Error GoTo myErr
strAdresse = Me.Strasse & ", " & Me.Plz & " " & Me.Ort
strLink = "https://www.google.com/search?client=firefox-b-d&q="
Application.FollowHyperlink strLink & strAdresse

On Error GoTo 0
     Exit Sub
myErr:
  Resume Next
 


Der obige Code öffnet Google und wie es scheint, wird Firefox benötigt.

Auch mit "FollowHyperlink" gelingt ich es mir nur
eine bestimmte Seite zu öffnen.

Was muss ich hier ändern, damit die gewünschte Suche stattfindet?
Geht das überhaupt?
Hat jemand ein Idee?

Mit bestem Dank im Voraus
LG
jagger
Titel: Re: Standard-Browser (oder neuenTab) öffen und Suchbegriff übergeben
Beitrag von: DF6GL am Mai 29, 2019, 10:52:11
Hallo,

der Http-String muss halt entspr. wie Google es selber macht, zusammengesetzt werden.


Öffnen Deinen Browser mit Google.de und trage in das Suchfeld eine Beispieladresse ein.

In der Adresszeile siehst Du dann den erforderlichen Link, den Du im Code nachbilden musst.

Titel: Re: Standard-Browser (oder neuenTab) öffen und Suchbegriff übergeben
Beitrag von: PhilS am Mai 29, 2019, 10:53:16
Zitat von: jagger am Mai 29, 2019, 10:40:49
ist es möglich mittels vba den Standardbrowser oder einen neuen Tab
zu öffnen und einen Suchbegriff zu übergeben?
Ja, ist es, der von dir gezeigte Code sollte das, im Prinzip, auch tun.

Als Erstes solltest du ...
- Option Explicit am Anfang des Moduls einfügen.
- Das Errorhandling in deinem Code überdenken.

Wenn das nicht funktioniert, dann beschreib bitte das Problem genauer.

Nebenbei: Google schluckt deinen Such-String auch so, aber eigentlich sollte man Daten, die man in einer URL an einen Webserver übergibt, URL-kodieren (https://de.wikipedia.org/wiki/URL-Encoding).
Titel: Re: Standard-Browser (oder neuenTab) öffen und Suchbegriff übergeben
Beitrag von: jagger am Mai 29, 2019, 11:04:13
Hallo DF6GL,

ich will ja eben nicht nur mit google suchen (müssen).
Wenn im Browser z.B. nur Bing als Suchmaschine definiert
ist und dann den Suchbegriff eingegeben wird, wird ja auch automatisch mit Bing gesucht. Das möchte ich (wenn es geht) erreichen.
Das Ganze mit dem Standard-Browser.

Danke für Deine Anregung.
LG
jagger


Titel: Re: Standard-Browser (oder neuenTab) öffen und Suchbegriff übergeben
Beitrag von: jagger am Mai 29, 2019, 11:16:41
Hallo PhilS,

ZitatWenn das nicht funktioniert, dann beschreib bitte das Problem genauer.
Es funktioniert ja prinzipiell, aber ich suche einen Code, der den Suchbegriff einfach an den Standard-Browser übergibt.
Egal ob nun die Suche mit Bing oder Yahoo und mit Opera oder IE erfolgen soll.
Gibt es so einen eierlegendenwollmilchsau Code?

Zitat- Option Explicit am Anfang des Moduls einfügen.
Der Code liegt noch auf dem Klickereignis von einem Button.

Zitat- Das Errorhandling in deinem Code überdenken.
Stimmt, müsste anders aussehen. Aber wie genau, weiss ich jetzt nicht wirklich. Den Schnipsel habe ich aus dem www.  ???

LG
jagger
Titel: Re: Standard-Browser (oder neuenTab) öffen und Suchbegriff übergeben
Beitrag von: DF6GL am Mai 29, 2019, 11:49:33
Hallo,

wirfst Du da nicht Browser und Suchmaschine durcheinander?

https://www.google.com/search?&q=Berlin+Konrad+Adenauerstr.+10
https://www.Bing.com/search?&q=Berlin+Konrad+Adenauerstr.+10

bringen beide (annähernd) das gleiche Ergebnis, egal welchen Browser man benutzt.
Titel: Re: Standard-Browser (oder neuenTab) öffen und Suchbegriff übergeben
Beitrag von: jagger am Mai 29, 2019, 12:08:54
Hallo DF6GL,

Zitatwirfst Du da nicht Browser und Suchmaschine durcheinander?
ich hoffe nicht.

Wenn ich in meinem Browser (egal welcher)
in der Adressleiste oder in der Suchleiste
"ACCESS O MANIA" eingebe, werden mit Suchergebnisse angezeigt.
In diesem Fall: 1. Treffer! :-)

Habe ich Google als Suchmaschine definiert,
dann werden mir die Ergebnisse von Google angezeigt.
Habe ich Bing als Suchmaschine definiert,
dann werden mir die Ergebnisse von Bing angezeigt.
Habe ich Yahoo als Suchmaschine definiert,
dann werden mir die Ergebnisse von Yahoo angezeigt.

Meine Frage ist nun, gibt es ein Möglichkeit dem Browser (egal welcher)
zu sagen, suche nach: "Müller, 12099 Berlin, Mariendorfer Damm 3"?

Mit "https://www.google.com/..." lege ich ja fest, dass mit Google gesucht wird. Und das will ja nicht jeder Nutzer.

LG
jagger
Titel: Re: Standard-Browser (oder neuenTab) öffen und Suchbegriff übergeben
Beitrag von: DF6GL am Mai 29, 2019, 13:32:46
Hallo,

doch, du wirfst das durcheinander..

Dem Browser allein kannst Du kein Suchkriterium anbieten.

Der Browser muss eine Suchmaschine als "Website" aufrufen und dieser Seite gibst Du das Suchkriterium weiter. (Evtl. ist da ein Add-in am werkeln.)

Entweder suchst Du die Standard-Suchmaschine des jeweiligen Browser des Users aus der Registry heraus oder Du lässt den User selber bestimmen, welche Suchmaschine er bevorzugt, die dann in einer Tabelle oder sonst wo hinterlegt wird.
Titel: Re: Standard-Browser (oder neuenTab) öffen und Suchbegriff übergeben
Beitrag von: PhilS am Mai 29, 2019, 14:24:34
Zitat von: jagger am Mai 29, 2019, 12:08:54
Meine Frage ist nun, gibt es ein Möglichkeit dem Browser (egal welcher)
zu sagen, suche nach: "Müller, 12099 Berlin, Mariendorfer Damm 3"?
Nein!

Der wesentliche Faktor für diese Antwort ist das "egal welcher".

Das HTTP-Protokoll ist ein definiertes Protokoll auf der Windows Plattform. Daher kannst du (z.B. mit Application.FollowHyperlink) eine HTTP-Adresse mit dem Standardbrowser öffnen. Dieser hat sich entsprechend registriert und dafür eine vordefinierte Schnittstelle angegeben, wie man ihm die URL mitteilen kann.

Die Suche im Web ist aber kein solches Standardprotokoll. D.h. jeder Browser handhabt das anders. Du kannst den einigen Browsern schon mitteilen, dass sie mit der Standardsuchmaschine nach einem bestimmte Text suchen sollen, aber wie das genau funktioniert ist für jeden Browser anders.
Titel: Re: Standard-Browser (oder neuenTab) öffen und Suchbegriff übergeben
Beitrag von: jagger am Mai 29, 2019, 14:35:17
Hallo PhliS,

Nein!

das ist zwar sehr schade, aber das beantwortet meine Frage.
Es geht also nicht. Schade!  :(
Ich dachte, es gibt vielleicht so etwas wie "Docmd.SendObject" oder Ähnliches.

Danke für Deine Hilfe!
Schönen Männertag
LG
jagger