Hyperlinks

[Guest]

Hi

I have an Input Form which has a Record Source of a look up table. The user
searches by a unique number, which then populates the relevant bound fields.

I want a list of hyperlinks within this table which opens Word Doc. and this
to work on the Form. Is this possible?

 

[Arvin Meyer [MVP]]

You can use a hyperlink datatype, or more easily, a simple text field with
the path to the file, then some code like:

Private Sub Form_Current()
Me.Label1.HyperlinkAddress = "D:\FolderName\" & Me.Text2
End Sub

Which turns a plain label into a hyperlink and allows you to go to
D:\FolderName\ and the file name.
--
Arvin Meyer, MCP, MVP
Free MS-Access downloads:
http://www.datastrat.com
http://www.mvps.org/access
http://www.accessmvp.com

 

[JustinP]

For those of you wanting to take the hyperlink value from a hyperlink
field in a table you may have some trouble as Access puts a "#" at the
start and end of the link making them not work.

Just remove them:

Private Sub Form_Current()

Me.Label1.HyperlinkAddress = Replace(Me![Hyp], "#", "")

End Sub


If that is still giving you dramas try:

Private Sub Form_Current()

Dim lengthHyp As Integer
Dim hypStr As String
lengthHyp = Len(Me![Hyp]) 'length of the link in the table

hypStr = Left(Me![Hyp], (lengthHyp - 1)) 'trim the "#" of the end
hypStr = Right(hypStr, (lengthHyp - 2)) 'trim the "#" off the
start

Me.Label1.HyperlinkAddress = hypStr

End Sub

 

[Brendan Reynolds]

Alternatively, you could use the built-in HyperlinkPart method!

? HyperlinkPart("#http://www.microsoft.com#", acAddress)
http://www.microsoft.com

--
Brendan Reynolds
Access MVP

For those of you wanting to take the hyperlink value from a hyperlink
field in a table you may have some trouble as Access puts a "#" at the
start and end of the link making them not work.

Just remove them:

Private Sub Form_Current()

Me.Label1.HyperlinkAddress = Replace(Me![Hyp], "#", "")

End Sub


If that is still giving you dramas try:

Private Sub Form_Current()

Dim lengthHyp As Integer
Dim hypStr As String
lengthHyp = Len(Me![Hyp]) 'length of the link in the table

hypStr = Left(Me![Hyp], (lengthHyp - 1)) 'trim the "#" of the end
hypStr = Right(hypStr, (lengthHyp - 2)) 'trim the "#" off the
start

Me.Label1.HyperlinkAddress = hypStr

End Sub

You can use a hyperlink datatype, or more easily, a simple text field
with
the path to the file, then some code like:

Private Sub Form_Current()
Me.Label1.HyperlinkAddress = "D:\FolderName\" & Me.Text2
End Sub

Which turns a plain label into a hyperlink and allows you to go to
D:\FolderName\ and the file name.
--
Arvin Meyer, MCP, MVP
Free MS-Access downloads:
http://www.datastrat.com
http://www.mvps.org/access
http://www.accessmvp.com