Access VBA to browse for pdf, attach path to field, and create functioning hyperlink.

[Craig Gilmore]

I have a 2003 Access db with a form for entering customer info. For data entry purposes, I want to be able to enter a new customer into the form, and click a browse button to browse to a pdf that is a scan of the customer's driver's license. When other employees are working with the records, I want them to be able to click on the path to the pdf, and have it actually open the pdf in their default pdf viewer. I found code in a 2007 post that uses the following for generating the browse button and populating the text box with the document path, but it does not create a functioning hyperlink. How can I modify the below to save the path as a working hyperlink?

Thanks in advance!

Private Sub btnPickFile_Click() 
 
    Dim dlgPickFiles As Office.FileDialog 
    Dim strList As String 
 
    Set dlgPickFiles = Application.FileDialog(msoFileDialogFilePicker) 
 
    With dlgPickFiles 
        .AllowMultiSelect = False 
        With .Filters 
            .Clear 
            .Add "Excel files (*.xls)", "*.xls" 
        End With 
        .Show 
        Me.txtFileName = .SelectedItems(1) 
    End With 
 
    Set dlgPickFiles = Nothing 
 
End Sub 
 

[TheSmileyCoder]

First ensure that me.txtFileName is bound to a hyperlink type field.

Then you need to wrap the link like so:
me.txtFileName="Example#C:\Example.txt#"
Example would be the text displayed in the field, whereas C:\Example.txt is the actual link address.
In your case, you need to decide what you want the display value to be, a simple example, just showing License in the field:

Me.txtFileName = "License#" & .SelectedItems(1) & "#"

[NeoPa]

Error 7980: HyperlinkAddress or HyperlinkSubAddress read-only for Hyperlink may help when it comes to determining exactly how to work with your hyperlink. Smiley's response isn't wrong at all, this just covers it in more detail.

[Craig Gilmore]

Thanks so much to both of you for your help! This gets me over a major hurdle.

[NeoPa]

Very pleased to hear it Craig, and you're welcome of course :-)