Please help!? Change Hyperlink default

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

For each record in my database I have a hyperlink, if a record doesn't have
an attached hyperlink I would like it to open a specific file. Heres what Ive
tried, bottom half works:

Private Sub ViewWI_Click()
If Me.Work_Instruction.Value = Null Then
Me.ViewWI.HyperlinkAddress = "Y:\AshleyS\Trim Line\Blank Template.doc"
Else
Me.ViewWI.HyperlinkAddress = "Y:\AshleyS\Trim Line\" & _
Me.Work_Station & "\" & Me.Work_Instruction
End If

End Sub

Can u remove the formatting from the hyperlink aswell?? (Blue and underlined)
Thanx in advance
 
Hi, Ashley.
For each record in my database I have a hyperlink, if a record doesn't have
an attached hyperlink I would like it to open a specific file.
Click to expand...

Try:

If (Nz(Me!Work_Instruction.Value, "") = "") Then
Me.ViewWI.HyperlinkAddress = "Y:\AshleyS\Trim Line\Blank Template.doc"
Else
Me.ViewWI.HyperlinkAddress = "Y:\AshleyS\Trim Line\" & _
Me.Work_Station & "\" & Me.Work_Instruction
End If

HTH.
Gunny

See http://www.QBuilt.com for all your database needs.
See http://www.Access.QBuilt.com for Microsoft Access tips.

(Please remove ZERO_SPAM from my reply E-mail address so that a message will
be forwarded to me.)
- - -
If my answer has helped you, please sign in and answer yes to the question
"Did this post answer your question?" at the bottom of the message, which
adds your question and the answers to the database of answers. Remember that
questions answered the quickest are often from those who have a history of
rewarding the contributors who have taken the time to answer questions
correctly.
 
Back
Top