Opening custom hyperlinks

[MarkWaddington]

Hi,

I have a command button on my form which when pressed opens Internet Explorer:

Dim stAppName As String

stAppName = "C:\Program Files\Internet Explorer\IEXPLORE.EXE"
Call Shell(stAppName, 1)

This works fine, but goes to my homepage. I would like it to go to a specific web page based on the value that is in the postcode field.

e.g.

http://www.streetmap.co.uk/streetmap.dll?postcode2map?<postcode

field value>

Any simple way of doing this?

Thanks in advance.

Mark Waddington.

 

[MazeWorX]

Open Visualbasic help from a code module and search for &quot;hyperlink&quot;

There are several ways of doing exactly what you want Remember amateurs built the ark - professionals built the Titanic

 

[MarkWaddington]

Hey thanks, got it sorted now.. almost.

There is one slight error and it's driving me mad!

If I create a new record and click &quot;locate client&quot; it correctly says &quot;No postcode is entered&quot;

However, if I create a new record, enter a postcode and then DELETE that postcode again, the message box pops up but it STILL opens internet explorer and goes to the web-page. I can't figure it out! Any clues?

The code on my &quot;locate client&quot; command button is as follows:

Dim NewVal As String
Dim MyChar As String

If Not IsNull(Postcode.Value) Then

MyChar = &quot; &quot;
NewVal = Postcode.Value

Do
If InStr(NewVal, MyChar) = 0 Then
Exit Do
Else
NewVal = Left(NewVal, InStr(NewVal, MyChar) - Len(MyChar)) _
& NewChar & Mid(NewVal, InStr(NewVal, MyChar) + Len(MyChar))
End If
Loop

Locate.HyperlinkAddress = (&quot;

http://www.streetmap.co.uk/streetmap.dll?postcode2map?&quot;

+ NewVal)
Locate.Hyperlink.Follow

Else
MsgBox &quot;No Postcode Entered&quot;
NewVal = &quot;&quot;
DoCmd.CancelEvent

End If



&quot;Instr&quot; is used to simply eliminate any spaces, and that works ok.

Can anyone figure out why it still opens the web-page if I enter a postcode then erase it again?

Thanks.

 

[MarkWaddington]

It's ok i figured it out, I just set the HyperlinkAddress to null in the &quot;else&quot; section of the code.

Cheers.