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:
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?
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
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?