Inserting Hyperlinks into tables with VBA

N

Nick

Hi I am trying to insert a hyperlink into a table field using VBA. I also
want the display text to be different from the hyperlink. The code I am using
is as follows.

Public Function Submit(frm As Form)

On Error GoTo error_trap

Dim ThisDB As Database
Dim OutPut As Recordset
Dim sWorkstream As String
Dim sDocRefNo As String
Dim DocID As String
Dim FS, File

Set ThisDB = CurrentDb
Set OutPut = ThisDB.OpenRecordset("All Data")

OutPut.AddNew
OutPut![Template Issued Date] = Date
OutPut![Current Draft Version] = "1"
OutPut![Title of Document] = HyperlinkPart("Test"#"\\Ls-fileshare-02
\Health\NASP SPINE Delivery\PMO\Working Area\Nick Perry\" & sDocRefNo#)

OutPut.Update
OutPut.Close

End Function
 
Top