I want to click on a button that lets me browse for a file, then stores the path...

[atuhacek]

It is two functions copy the top function in between your private sub that pops up. The second one outside.

It will need a

me.requery

be for the first end sub to update the form if you still have trouble I can update for you later when I'm at a machine.

[ItsMe]

...So, I guess the final question is: how do I get the strFilePath variable to transfer to the “Address” part of the hyperlink field instead of the “Text to Display” part?...

I spent a little bit of time to understand the Hyperlink field. The issue is that you must follow the guidelines June posted with Allan's link. If you are going to send literal text, like a string, to a hyperlionk field's value, you need to give it both parts. You need to give it the Display text and also the address. Use the # qualifier to distinguish each part.

So....

After you have the full path with the file extension in your string variable, concatenate the second part. Concatenate the Display Text to the path/address.

'Save the first file selected
strFilePath = Trim(.SelectedItems(1))
strFilePath = "Display Text#" & strFilePath & "#"

[JessiRight]

I did, and I get the following error message:



Although you can't see it in this picture, the first line (Private Sub cmdPickLink_Click()) is highlighted and there IS an End Sub line the bottom of the code that was automatically added when I created the Event Procedure and inserted the code.

If I delete the first and last lines ("Private Sub cmdPickLink_Click()" and "End Sub") then it disassociates this code from the Event Procedure for the command button. Then nothing happens when I click on the button.

I guess I still don't understand how to insert this code...

[atuhacek]

Delete the line under private sub

[JessiRight]

PERFECT, ITSME... (grinning from ear to ear). That's EXACTLY what I wanted! I did read through Allen Browne's two sites, but it was too much for me to follow. I do understand your explanation now, though.

For future readers who may be as confused as I was, I have reposted below the following code that does work correctly (at least it does on my computer). THANKS AGAIN!!

Private Sub cmdPickLink_Click()
Dim strFilePath As String


With Application.FileDialog(msoFileDialogFilePicker)


    .AllowMultiSelect = False
    .Title = "Locate a file to Import"
    .ButtonName = "Import"
    .Filters.Clear
    'Change the following path location to suit your particular needs:
    .InitialFileName = "\\Inventory\Items\picPickFile.JPG"
    .InitialView = msoFileDialogViewThumbnail
    
        If .Show = 0 Then
        'There is a problem
        Exit Sub
        End If
    
    'Save the first file selected
    strFilePath = Trim(.SelectedItems(1))
    strFilePath = "Display Text#" & strFilePath & "#"
    
End With


'Change the "tblItems" to the name of your own table:
strTable = "tblItems"

'Change fldNotesLink to the name of your own hyperlink field in the above table:
Me.fldNotesLink = strFilePath


End Sub

I will now have to find the button to "Solve" this thread.

[atuhacek]

Delete the line under private sub

Function cmdPickFile () As variant

may have to edit more but see if that does it.

[JessiRight]

(Somehow my original response to ItsMe was accidentally deleted, so I’m reposting it.)

Your additional line of code fixed everything, ItsMe, and it makes perfect sense. I did read through Allen Browne's two sites, but it was just too much for me to follow. I do understand your (and June's) explanation now, though.

For future readers who may be as confused as I was, I have reposted below the following code that contains the "fixes" that make it work correctly (at least it works on my computer). THANKS AGAIN!!

Private Sub cmdPickLink_Click()
Dim strFilePath As String
 
With Application.FileDialog(msoFileDialogFilePicker)
 
    .AllowMultiSelect = False
    .Title = "Locate a file to Import"
    .ButtonName = "Import"
    .Filters.Clear
    'Change the following path location to suit your particular needs:
    .InitialFileName = "\\Inventory\Items\picPickFile.JPG"
    .InitialView = msoFileDialogViewThumbnail
    
        If .Show = 0 Then
        'There is a problem
        Exit Sub
        End If
    
    'Save the first file selected
    strFilePath = Trim(.SelectedItems(1))
    strFilePath = "Display Text#" & strFilePath & "#"
    
End With
 
'Change the "tblItems" to the name of your own table:
strTable = "tblItems"

'Change fldNotesLink to the name of your own hyperlink field in the above table:
Me.fldNotesLink = strFilePath
 
End Sub

I will now have to look for a way to mark this thread as “Solved.”