Hyperlinks

T

tom crowfoot

I have created an MS Access 2003 which is basically a simple contacts
database. I am keen to be able in a form to have a button to perform a very
simple google internet check on the person.. This check basically combines
first name, last name and their current employer in a classic google search.
I have managed to create the hyperlink text to do this (using an expression)
and I have managed to create a command to open up internet explorer, but what
i would really like to do is to get the two combined, so I can click on the
button and have the relevant record put into google

I am sure its simple (but then again so am I - so please help)
 
A

Adam Milligan

Tom-

Because you want to use Google in particular, I think I can help you out.

Public Function PostToWeb(sToPost As String)

Dim IE

Set IE = CreateObject("InternetExplorer.Application")

IE.Visible = True
IE.Silent = True
IE.Navigate ("http:\\www.google.com")
Do While IE.busy Or IE.ReadyState <> 4

DoEvents
Loop

IE.Document.all("q").Value = sToPost

Set IE = Nothing

End Function


you may have to set internet security to l"ow" in order for this to work.
 
Top