Hyperlink edited by code (1 Viewer)

andy1968 · Oct 22, 2018

I am trying to modify a hyperlink based on user input from a form.

I want to add a date from a text box to the end of a url.

Here is the code:

Code:

Private Sub Weather_DblClick(Cancel As Integer)
Dim strLink As String
Dim strDate As String
strDate = Format(Me.DateOfReport, "yyyy-mm-dd")
strLink = Mid(Me.Contract_.Column(3), 2, Len(Me.Contract_.Column(3)) - 2) & strDate
Application.FollowHyperlink (strLink), , True
End Sub

I get this result:

https://www.wunderground.com/histor...date/2018-10-19FirefoxHTML\Shell\Open\Command

But I want this:

https://www.wunderground.com/history/daily/us/ca/san-carlos/KSQL/date/2018-10-19

This is what is in Contract_.Column(3):

https://www.wunderground.com/history/daily/us/ca/san-carlos/KSQL/date/

Any ideas?

JHB · Oct 22, 2018

andy1968 said:
This is what is in Contract_.Column(3):
https://www.wunderground.com/history/daily/us/ca/san-carlos/KSQL/date/
Any ideas?

Why are you not just added the date to Contract_.Column(3)?

Code:

strLink = Me.Contract_.Column(3) & Format(Me.DateOfReport, "yyyy-mm-dd")

arnelgp · Oct 22, 2018

is column(3) a Real hyperlink field?

if so, hyperlinks have two parts.
the first part is the text that is being displayed.
the second part is the actual link.

use split() function to get the secondpart and add the Date there:

Code:

Private Sub Weather_DblClick(Cancel As Integer)
Dim strLink As String
Dim strDate As String
strDate = Format(Me.DateOfReport, "yyyy-mm-dd")
strLink = Split(Me.Contract_.Column(3), "#")(1) & strDate
Application.FollowHyperlink (strLink), , True
End Sub

Gasman · Oct 22, 2018

I cannot see how the code

Code:

strLink = Mid(Me.Contract_.Column(3), 2, Len(Me.Contract_.Column(3)) - 2) & strDate

gives you what you say you get ?

andy1968 said:
I am trying to modify a hyperlink based on user input from a form.

I want to add a date from a text box to the end of a url.

Here is the code:

Code:

Private Sub Weather_DblClick(Cancel As Integer) Dim strLink As String Dim strDate As String strDate = Format(Me.DateOfReport, "yyyy-mm-dd") strLink = Mid(Me.Contract_.Column(3), 2, Len(Me.Contract_.Column(3)) - 2) & strDate Application.FollowHyperlink (strLink), , True End Sub

I get this result:

https://www.wunderground.com/histor...date/2018-10-19FirefoxHTML\Shell\Open\Command

But I want this:

https://www.wunderground.com/history/daily/us/ca/san-carlos/KSQL/date/2018-10-19

This is what is in Contract_.Column(3):

https://www.wunderground.com/history/daily/us/ca/san-carlos/KSQL/date/

Any ideas?

andy1968 · Oct 22, 2018

Thanks arnelgp!

Works like a charm.

Hyperlink edited by code (1 Viewer)

andy1968

Registered User.

JHB

Have been here a while

arnelgp

..forever waiting... waiting for jellybean!

Gasman

Enthusiastic Amateur

andy1968

Registered User.

Users who are viewing this thread