Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Suchen im Internet aus Access
zurück: bereits vorhandene Eingaben vor Veränderung schützen weiter: Probleme mit Kombinationsfeld Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Feedback Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Gast



Verfasst am:
12. Jun 2010, 16:18
Rufname:

Suchen im Internet aus Access - Suchen im Internet aus Access

Nach oben
       Version: Office 2007

Bin Absoluter Anfänger in jeglicher Hinsicht und erst recht mit Access

Wie erweitere ich die Funktion komme einfach nicht weiter.
Ich habe ein Textfeld genommen was ungebunden war und habe es dann mit einen Code und Steuernahmen versehen.
Ich kann aus einen Listenfeld was über eine Abfrage hinaus seine Daten fühlt, Inhalt Name oder Firma wie Webseite abrufen. Wenn ich jetzt mit einem klick oder Doppelklick das gewünschte Feld gefunden habe über Gibt er es dem Textfeld und öffnet durch enter die Webseite.

Ok alles geht

Was ich jetzt noch möchte ist wenn ich in das Textfeld eine Eingabe mache z.B Wo Liegt Berlin soll er diese frage an Google übergeben und seine Suche in einen Neuen Fenster Öffnen.

Mit freundlichen Gruß

Sascha2010
Code:
Private Sub Webseiteneingabe_KeyPress(KeyAscii As Integer)
    Dim strLink As String

    If KeyAscii = vbKeyReturn Then
        DoCmd.RunCommand acCmdSaveRecord
        strLink = Nz(Me!Webseiteneingabe, "")
        If strLink <> "" Then
            If Left(strLink, 4) <> "http" Then strLink = "http:\\" & strLink
            FollowHyperlink strLink
            DoCmd.RunCommand acCmdRecordsGoToNew
        End If
    End If
End Sub
Nouba
nicht ganz unwissend :)


Verfasst am:
12. Jun 2010, 16:45
Rufname:
Wohnort: Berlin


AW: Suchen im Internet aus Access - AW: Suchen im Internet aus Access

Nach oben
       Version: Office 2007

Hallo,

Du kannst den URL so http://www.google.de/search?q=wo+liegt+berlin gestalten.

_________________
mit freundlichen Grüssen Nouba

Wenn beim Lesen eines Beitrags der Eindruck entsteht, dass sich der Fragesteller wenig Mühe gegeben hat, so erhöht das nicht unbedingt die Motivation, eine Antwort zu verfassen.
Sascha2010
Im Profil kannst Du frei den Rang ändern


Verfasst am:
12. Jun 2010, 16:56
Rufname:

AW: Suchen im Internet aus Access - AW: Suchen im Internet aus Access

Nach oben
       Version: Office 2007

Ich habe es probiert geht leider nicht wo genau soll ich das einfügen sehe deinen Lösungsweg leider nicht besser gesagt ich Dummie kann Dir nicht folgen

Gruß Sascha2010
Nouba
nicht ganz unwissend :)


Verfasst am:
12. Jun 2010, 17:32
Rufname:
Wohnort: Berlin

AW: Suchen im Internet aus Access - AW: Suchen im Internet aus Access

Nach oben
       Version: Office 2007

Hallo Sascha,

gib doch einmal im VBA-Directbereich (Tatsenfolge <Strg> im VBA-Editor) FollowHyperlink "http://www.google.de/search?q=wo+liegt+berlin" ein.

_________________
mit freundlichen Grüssen Nouba

Wenn beim Lesen eines Beitrags der Eindruck entsteht, dass sich der Fragesteller wenig Mühe gegeben hat, so erhöht das nicht unbedingt die Motivation, eine Antwort zu verfassen.
derArb
getting better


Verfasst am:
12. Jun 2010, 17:37
Rufname: derArb
Wohnort: Berlin


AW: Suchen im Internet aus Access - AW: Suchen im Internet aus Access

Nach oben
       Version: Office 2007

Hallo,
Code:
            If Left(strLink, 4) <> "http" Then strLink = "http://www.google.de/search?q=" & strLink
            FollowHyperlink strLink

MfG
derArb

_________________
MfG
derArb

Scio me nihil scire...Εν οίδα οτι ουδέν οίδα... Ich weiss, dass ich nichts weiss (Sokrates)
Ich bevorzuge Beiträge mit korrekter deutscher Grammatik.
Sascha2010
Im Profil kannst Du frei den Rang ändern


Verfasst am:
12. Jun 2010, 18:54
Rufname:

AW: Suchen im Internet aus Access - AW: Suchen im Internet aus Access

Nach oben
       Version: Office 2007

ok danke

das ist schon mall für mich gut zu gebrauchen jedoch öffnet er jetzt alles in Google suche.

Ich wollte es so haben wenn der Eintrag keine www.Internetseite.de ist sondern eine suche nach etwas dies dann in Google sucht jetzt öffnet er alles bei Google sprich wenn ich www.web.de als z.B eingebe wird diese nicht direkt geöffnet sondern über Google
Code:
'SO ÖFFNET ER DIE EINGETRAGENE WEBSEITE NUR IST SIE FALSCH ÖFFNET ER NICHTS´
Private Sub Webseiteneingabe_KeyPress(KeyAscii As Integer)
    Dim strLink As String
    If KeyAscii = vbKeyReturn Then
        DoCmd.RunCommand acCmdSaveRecord
        strLink = Nz(Me!Webseiteneingabe, "")
        If strLink <> "" Then
            If Left(strLink, 4) <> "http" Then strLink = "http:\\" & strLink
            FollowHyperlink strLink
            DoCmd.RunCommand acCmdRecordsGoToNew
        End If
    End If
End Sub


'So öffnet er alles über Google
Private Sub Webseiteneingabe_KeyPress(KeyAscii As Integer)
    Dim strLink As String

    If KeyAscii = vbKeyReturn Then
        DoCmd.RunCommand acCmdSaveRecord
        strLink = Nz(Me!Webseiteneingabe, "")
        If strLink <> "" Then
            If Left(strLink, 4) <> "http" Then
                strLink = "http://www.google.de/search?q=" & strLink
            End If
            FollowHyperlink strLink
            DoCmd.RunCommand acCmdRecordsGoToNew
        End If
    End If
End Sub
derArb
getting better


Verfasst am:
12. Jun 2010, 19:05
Rufname: derArb
Wohnort: Berlin

AW: Suchen im Internet aus Access - AW: Suchen im Internet aus Access

Nach oben
       Version: Office 2007

Hallo,

dann schliess doch das "www" über eine ODER Frage auch noch aus
Code:
        If Left(strLink, 4) <> "http" Or Left(strLink, 3) <> "www" Then
            strLink = "http://www.google.de/search?q=" & strLink
        End If

MfG
derArb

_________________
MfG
derArb

Scio me nihil scire...Εν οίδα οτι ουδέν οίδα... Ich weiss, dass ich nichts weiss (Sokrates)
Ich bevorzuge Beiträge mit korrekter deutscher Grammatik.
Sascha2010
Im Profil kannst Du frei den Rang ändern


Verfasst am:
12. Jun 2010, 19:56
Rufname:

AW: Suchen im Internet aus Access - AW: Suchen im Internet aus Access

Nach oben
       Version: Office 2007

Entschuldigung

Aber so macht er keines von beiden
Nouba
nicht ganz unwissend :)


Verfasst am:
12. Jun 2010, 21:17
Rufname:
Wohnort: Berlin

AW: Suchen im Internet aus Access - AW: Suchen im Internet aus Access

Nach oben
       Version: Office 2007

Hallo,

ich finde das gewählte Ereignis, bei jedem Tastenanschlag im Textfeld zu reagieren unglücklich gewählt. Eine Schaltfläche neben das Textfeld für den Link gesetzt lässt sich doch sicherlich intuitiv bedienen. Im Klick-Ereignis der selben kannst du diese Prozedur aufrufen.

Code:
Private Sub OpenURLOrGoogle(ByVal Value As String)
  Const csGurgel As String = _
        "http://google.de/search?q="
  'Regulärer Ausdruck zum Prüfen einer gültigen HTTP-Adresse
  Const csRxValidUrl As String = _
        "^http[s]?\://[a-zA-Z0-9\-\.]+\.[a-zA-Z]{2,3}(/\S*)?$"
  'wenn ftp auch zugelassen ist
  '"^(http[s]?|ftp)\://[a-zA-Z0-9\-\.]+\.[a-zA-Z]{2,3}(/\S*)?$"

  Dim tmp As String

  tmp = Trim$(Value)  'äußere Leerzeichen entfernen
  If LenB(tmp) Then   'wenn dann noch Text übrig bleibt
    With CreateObject("VBScript.RegExp") 'RegExp-Object erstellen
      .IgnoreCase = True                 'Groß-/Kleinschreibung ist egal
      .Pattern = csGurgel                'Muster festlegen
      If .test(tmp) Then                 'Text testen
        FollowHyperlink tmp
      ElseIf .test("http://" & tmp) Then 'mit vorangestelltem "http://" testen
        FollowHyperlink "http://" & tmp
      Else
        'sich wiederholende Leerzeichen entfernen - muss man wohl nicht
        Do Until InStr(tmp, "  ") = 0: tmp = Replace(tmp, "  ", " "): Loop
        'Gurgeln mit + zwischen den Begriffen
        FollowHyperlink csGurgel & Join(Split(tmp, " "), "+")
      End If
    End With
  End If
End Sub

_________________
mit freundlichen Grüssen Nouba

Wenn beim Lesen eines Beitrags der Eindruck entsteht, dass sich der Fragesteller wenig Mühe gegeben hat, so erhöht das nicht unbedingt die Motivation, eine Antwort zu verfassen.
Sascha2010
Im Profil kannst Du frei den Rang ändern


Verfasst am:
12. Jun 2010, 22:56
Rufname:

AW: Suchen im Internet aus Access - AW: Suchen im Internet aus Access

Nach oben
       Version: Office 2007

vielen Dank

Ich möchte leider nicht auf die Entertaste verzichten habe deinen Code Benutzt und er geht super jedoch habe ich mich erst einmal für diesen Kompromis geeinigt
Code:
Option Compare Database

Private Sub Befehl59_Click()
    DoCmd.OpenForm "BES-MAX1-1-ERP"
End Sub

Private Sub Bild44_Click()
    Application.FollowHyperlink "Http://www.googel.de"
End Sub

Private Sub google_Click()
    Dim strLink As String
    strLink = (Webseiteneingabe)
    If strLink <> "" Then
        If Left(strLink, 4) <> "http" Then strLink = "http://www.google.de/search?q=" & strLink
        FollowHyperlink strLink
        DoCmd.RunCommand acCmdRecordsGoToNew
    End If
         
End Sub

Private Sub KundenWebseite_Click()
    DoCmd.GoToControl "Webseiteneingabe"
End Sub

Private Sub KundenWebseite_DblClick(Cancel As Integer)
    DoCmd.GoToControl "Webseiteneingabe"
End Sub

Private Sub Liste58_Click()
    DoCmd.GoToControl "Webseiteneingabe"
End Sub

Private Sub Liste58_DblClick(Cancel As Integer)
    DoCmd.GoToControl "Webseiteneingabe"
End Sub

Private Sub Webseiteneingabe_Click()
    Dim strLink As String
         strLink = (Webseiteneingabe)
         If strLink <> "" Then
            If Left(strLink, 4) <> "http" Then
                strLink = "http://www.google.de/search?q=" & strLink
            End If
            FollowHyperlink strLink
            DoCmd.RunCommand acCmdRecordsGoToNew
         End If
End Sub

Private Sub Webseiteneingabe_KeyPress(KeyAscii As Integer)
    Dim strLink As String
   
    If KeyAscii = vbKeyReturn Then
        DoCmd.RunCommand acCmdSaveRecord
        strLink = Nz(Me!Webseiteneingabe, "")
        If strLink <> "" Then
            If Left(strLink, 4) <> "http" Then strLink = "http:\\" & strLink
            FollowHyperlink strLink
            DoCmd.RunCommand acCmdRecordsGoToNew
        End If
    End If
End Sub

Private Sub Form_Activate()
    DoCmd.Maximize
End Sub

Private Sub Form_Current()
    DoCmd.Maximize
End Sub

Private Sub Form_Load()
    DoCmd.Maximize
End Sub

Private Sub Form_Open(Cancel As Integer)
    DoCmd.Maximize
End Sub

Private Sub Form_Resize()
    DoCmd.Maximize
End Sub
Mit freundlichen Gruß

Sascha2010
derArb
getting better


Verfasst am:
12. Jun 2010, 23:21
Rufname: derArb
Wohnort: Berlin

AW: Suchen im Internet aus Access - AW: Suchen im Internet aus Access

Nach oben
       Version: Office 2007

Hallo,

ich nehme einfach mal an, dass Du den Code von Nouba nicht verstanden hast.
Ich hab ihn mir jedenfalls gemerkt, weil er sehr sehr durchdacht ist

MfG
derArb

_________________
MfG
derArb

Scio me nihil scire...Εν οίδα οτι ουδέν οίδα... Ich weiss, dass ich nichts weiss (Sokrates)
Ich bevorzuge Beiträge mit korrekter deutscher Grammatik.
Gast



Verfasst am:
13. Jun 2010, 02:10
Rufname:


AW: Suchen im Internet aus Access - AW: Suchen im Internet aus Access

Nach oben
       Version: Office 2007

Hallo Nouba,

bin jetzt durch Zufall drauf gestossen

das ist ja genial

danke

mfgx
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Access Tabellen & Abfragen: Suchen von Datensätzen und Anzeige in neuem Formular 0 NumeroUnoDE 399 04. Jun 2008, 14:55
NumeroUnoDE Suchen von Datensätzen und Anzeige in neuem Formular
Keine neuen Beiträge Access Tabellen & Abfragen: Im eingefügten Dokument suchen 7 Toni Makkaroni 486 27. Mai 2008, 15:10
SGast Im eingefügten Dokument suchen
Keine neuen Beiträge Access Tabellen & Abfragen: auch nach Synonymen und Unterbegriffen suchen 4 Typson 500 04. Feb 2008, 23:27
Typson auch nach Synonymen und Unterbegriffen suchen
Keine neuen Beiträge Access Tabellen & Abfragen: In gesamter Tabelle suchen per Abfrage 6 toxicman 699 30. Jan 2008, 13:41
toxicman In gesamter Tabelle suchen per Abfrage
Keine neuen Beiträge Access Tabellen & Abfragen: Suchen in Datenzugriffsseite 0 Werner Busch 492 24. Jan 2008, 13:45
Werner Busch Suchen in Datenzugriffsseite
Keine neuen Beiträge Access Tabellen & Abfragen: Adressen suchen 36 SteffivonEssen 2201 22. Nov 2007, 10:37
SteffivonEssen Adressen suchen
Keine neuen Beiträge Access Tabellen & Abfragen: Suchen in Tabelle (VBA) 2 NeedHelpinAccess 4240 12. Okt 2007, 14:36
Gast Suchen in Tabelle (VBA)
Keine neuen Beiträge Access Tabellen & Abfragen: in Memo bestimmten Text suchen und Anzahl anzeigen 2 remote1 688 05. Aug 2007, 14:31
remote1 in Memo bestimmten Text suchen und Anzahl anzeigen
Keine neuen Beiträge Access Tabellen & Abfragen: Nicht vorhandes Suchen 4 fammos2001 297 01. Aug 2007, 15:44
fammos2001 Nicht vorhandes Suchen
Keine neuen Beiträge Access Tabellen & Abfragen: im Access nach Zeilenumbruch suchen 5 karin_office 5138 15. März 2007, 14:35
Thomas2007 im Access nach Zeilenumbruch suchen
Keine neuen Beiträge Access Tabellen & Abfragen: Nach Kriterien suchen und anzahl ausgeben 3 romu2000 602 11. Feb 2007, 23:43
Willi Wipp Nach Kriterien suchen und anzahl ausgeben
Keine neuen Beiträge Access Tabellen & Abfragen: Suchen und Ersetzen 2 Gast 800 19. Dez 2006, 08:51
Gast Suchen und Ersetzen
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: HTML CSS