adding a file path to a Hyperlink field does not link

[barra47]

I have a control button with the following code
It opens a browse window where you search for the file and then it places the path into the field called filepath ( Hyperlink type field)
but when I click the path in the field it does not link
Please help

Private Sub Command7_Click()
Dim retFiletext As String, dlg As Variant, s As String
Dim strImagePath As String
Dim retFile As Object
Set dlg = Application.FileDialog(msoFileDialogFilePicker)
With dlg
.InitialFileName = CodeProject.path & "\Images"
If .Show = -1 Then s = .SelectedItems(1)
End With
If s <> "" Then
retFiletext = Right(s, Len(s) + InStrRev(s, "\"))
Me.filepath.value = retFiletext
End If
strImagePath = Me.filepath
End Sub

Thanks in Advance

 

[TheAceMan1]

How are ya barra47 . . .

Have a look at the HyperlinkPart to see thw syntax for writing to a hyperlink field.

In your code try:

[blue]   Me.filepath = "#" & retFiletext & "#"[/blue]

See Ya! . . . . . .

Be sure to see faq219-2884 [blue]Worthy Reading![/blue]
Also faq181-2886 [blue]Worthy Reading![/blue]

 

[assets]

Also look at bookmarks

.ActiveDocument.Bookmarks("FirstName").Select
.Selection.Text = CStr(Me.FirstName.Value)
.ActiveDocument.Bookmarks.ADD Name = FirstName

I use this to populate bookmarks in word document

Never give up never give in.

There are no short cuts to anything worth doing