problema con FollowHyperlink

[Giò]

Buongiorno a tutti, ho esguito il metodo application.FollowHyperlink per
aprire un sito internet da access, volevo sapere se e' possibile passargli
qualche parametro in piu', ad esempio se voglio aprire googlemaps, posso ,
mediante FollowHyperlink passargli anche l'indirizzo e la citta' da
ricercare? Cioe' vorrei passargli i parametri indirizzo e citta' in modo che
appaiono direttamente della casella di ricerca di googlemaps
grazie
saluti
Gio'

[Maurizio Borrelli]

Post by Giò
ho esguito il metodo application.FollowHyperlink per
aprire un sito internet da access, volevo sapere se e' possibile passargli
qualche parametro in piu', ad esempio se voglio aprire googlemaps, posso ,
mediante FollowHyperlink passargli anche l'indirizzo e la citta' da
ricercare? Cioe' vorrei passargli i parametri indirizzo e citta' in modo che
appaiono direttamente della casella di ricerca di googlemaps

Ciao Gio'.

A seconda del sito dovrai esaminare la stringa di ricerca.

Un modo:

' Maschera1 - Modulo di Classe dell'oggetto Form_Maschera1
'
Option Compare Database
Option Explicit

Private Sub Comando1_Click()
Me.Application.FollowHyperlink "http://maps.google.it" _
& "/maps?near=" _
& Replace(Me.Testo1.Value _
, Chr$(32) _
, "+")
End Sub

Private Sub Form_Load()
Const cCtt = "Portogruaro"
Const cCap = "30026"
Const cInd = "Piazza della Repubblica, 1"
Const cPrv = "VE"

Me.Testo1.Value = Join(Array(cInd, cCap, cCtt, cPrv) _
, "," & Chr$(32))

End Sub

(Facci sapere se e eventualmente come hai risolto. Grazie!)

--
Maurizio Borrelli [Microsoft MVP Office System]
http://www.riolab.org/

[Giò]

Grazie 1000, vanno bene entrambe le soluzioni
saluti
Gio'
--
\\\|///
\\ - - //
( @ @ )
oOOO-- (_) --OOOo
----------------------------------

Post by Maurizio Borrelli

Post by Giò
ho esguito il metodo application.FollowHyperlink per
aprire un sito internet da access, volevo sapere se e' possibile passargli
qualche parametro in piu', ad esempio se voglio aprire googlemaps, posso ,
mediante FollowHyperlink passargli anche l'indirizzo e la citta' da
ricercare? Cioe' vorrei passargli i parametri indirizzo e citta' in modo che
appaiono direttamente della casella di ricerca di googlemaps

Ciao Gio'.
A seconda del sito dovrai esaminare la stringa di ricerca.
' Maschera1 - Modulo di Classe dell'oggetto Form_Maschera1
'
Option Compare Database
Option Explicit
Private Sub Comando1_Click()
Me.Application.FollowHyperlink "http://maps.google.it" _
& "/maps?near=" _
& Replace(Me.Testo1.Value _
, Chr$(32) _
, "+")
End Sub
Private Sub Form_Load()
Const cCtt = "Portogruaro"
Const cCap = "30026"
Const cInd = "Piazza della Repubblica, 1"
Const cPrv = "VE"
Me.Testo1.Value = Join(Array(cInd, cCap, cCtt, cPrv) _
, "," & Chr$(32))
End Sub
(Facci sapere se e eventualmente come hai risolto. Grazie!)
--
Maurizio Borrelli [Microsoft MVP Office System]
http://www.riolab.org/

[Maurizio Borrelli]

[...]

Post by Giò
Grazie 1000, vanno bene entrambe le soluzioni

Ciao Gio'.

Grazie del riscontro.

--
Maurizio Borrelli [Microsoft MVP Office System]
http://www.riolab.org/

[Andrea Papi]

Post by Giò
Buongiorno a tutti, ho esguito il metodo application.FollowHyperlink per
aprire un sito internet da access, volevo sapere se e' possibile passargli
qualche parametro in piu', ad esempio se voglio aprire googlemaps, posso ,
mediante FollowHyperlink passargli anche l'indirizzo e la citta' da
ricercare? Cioe' vorrei passargli i parametri indirizzo e citta' in modo che
appaiono direttamente della casella di ricerca di googlemaps
grazie
saluti
Gio'
--
\\\|///
\\ - - //
oOOO-- (_) --OOOo
----------------------------------

se cerchi un percorso con google maps potresti utilizzare questo codice

Dim str_link As Variant
Dim DaCitta As String
Dim ACitta As String
Dim ret As Integer

DaCitta = "Roma"
ACitta = "Bologna"

str_link = "http://maps.google.it/maps?f=d&saddr=" & DaCitta
str_link = str_link "&daddr=" & DaCitta
ret = Shell("rundll32.exe url.dll,FileProtocolHandler " & (str_link))

ciao
Andrea Papi