Adding File Path to Hyperlink textbox

[MHamid]

Hello,

I have the below code that will open the insert hyperlink box.
Is there a way to add the file path location once the insert hyperlink box opens?

code:

Private Sub cmdLink_Click()
'SetFocus to hyperlink field
     Me.txtHyperlink.SetFocus
     
'Run command to edit hyperlink
     DoCmd.RunCommand acCmdEditHyperlink
'SetFocus to Notes field
    Me.Notes.SetFocus
End Sub

Thank you

 

[MHamid]

Hello,

If anyone is interested, I was able to figure this out.

I created the below function:

Function selectFile()

    Dim fd As FileDialog
    Dim vrtSelectedItem As Variant
    
    
    Set fd = Application.FileDialog(msoFileDialogFilePicker)
    
    With fd
        .InitialFileName = "[B][URL="file://\\namicgdfs\cpna_data_grp\IT"]specific file path[/URL][/B]"
        .AllowMultiSelect = False
        If .Show Then
            selectFile = .SelectedItems(1)
        Else
            End
        End If
    End With
    Set fd = Nothing

End Function

And I updated my cmdLink button to:

Private Sub cmdLink_Click()

'SetFocus to hyperlink field
     Me.txtHyperlink.SetFocus
     
'Run command to edit hyperlink
     Me.txtHyperlink = selectFile

'SetFocus to Notes field
    Me.Notes.SetFocus

End Sub

I little round about way to get the cmdLink button to open to a specific folder and insert a selected file path into my hyperlink textbox.

If anyone sees a better way, let me know.
However, this works perfectly and the codes are not long.

Thank you