Form Button to browse for a default folder location

[Sonu]

I have a Form that has a button named 'Hyperlink'. After clicking on this, I want it to browse to a certain folder location for file selection (a default path to browse). After selection, the complete file path will be feed into the text box (left side of the button in picture below). Below is the code that is not doing the need:


Private Sub cmdHyperlink_Click()
'Open hyperlink dialog box


On Error GoTo Err_cmdHyperlink_Click


'Set focus in txtDocLocation
Me.txtDocLocation.SetFocus
DoCmd.RunCommand acCmdInsertHyperlink

'Update date hyperlink was created
Me!txtLinkDate = Date

Exit_cmdHyperlink_Click:
Exit Sub


Err_cmdHyperlink_Click:
If Err.Number <> 2501 And Err.Number <> 13 Then
MsgBox "Error " & Err.Number & ": " & Err.Description, vbExclamation, _
"sfrmCaseDocs cmdHyperlink_Click"
End If
Resume Exit_cmdHyperlink_Click


End Sub


Any lead in this will be very helpful.


Thank you.

[Micron]

Had to read your post a few times and compare it to the code. Decided that it seems you need to use the msoFileDialogFilePicker .
One can use a variation of that as well - Application.FileDialog
You navigate and choose a file, the dialog returns the file name to your code. The path is also a property of the dialog IIRC, so you append the name to the path if need be.

[Sonu]

Hello,

I was able to fix the need by putting the below code. However, it leaves with with another issue. With the previous code, after browsing to a certain folder/file, the complete path used to reflect in the text box (as per image given in my first post) and the file used to open if clicked.

But with this new code, though the text box reflects the complete file path but the file does not open when clicked. Now sure what change is needed to fix this?

Latest Code:-

Private Sub cmdHyperlink_Click()
'Open hyperlink dialog box


'Declare a variable as a FileDialog object
Dim fd As FileDialog

'Create a FileDialog object as a File Picker dialog box
Set fd = Application.FileDialog(msoFileDialogFilePicker)


'Declare a variable to contain the path
Dim sFolder As Variant


On Error GoTo Err_cmdHyperlink_Click

'Use a With...End With block to reference the FileDialog object
With fd
.InitialFileName = "<Desired Path Here>"
If .Show = -1 Then ' if OK is pressed
sFolder = .SelectedItems(1)
End If
End With

If sFolder <> "" Then ' if a file was chosen
Me.txtDocLocation = sFolder
End If

Set fd = Nothing

Exit_cmdHyperlink_Click:
Exit Sub


Err_cmdHyperlink_Click:
If Err.Number <> 2501 And Err.Number <> 13 Then
MsgBox "Error " & Err.Number & ": " & Err.Description, vbExclamation, _
"sfrmCaseDocs cmdHyperlink_Click"
End If
Resume Exit_cmdHyperlink_Click


End Sub

Thank You.

[Micron]

Well, I confused. At first you said

Below is the code that is not doing the need:

Now you write

With the previous code, after browsing to a certain folder/file, the complete path used to reflect in the text box (as per image given in my first post) and the file used to open if clicked.

Either it worked or it didn't??

In your new example you're not invoking the command to insert hyperlink (which I thought was for OLE type fields but that doesn't seem to be the case here?). Try that.
I'm not too familiar with that command and don't have time to look at it until (maybe) tonight.

P.S. please post code within code tags (# on forum menu bar) to make it easier to read.

[orange]

Sonu,

More info and example of FileDialog. and this file/folder dialog video https://www.youtube.com/watch?v=rNHLea359p4
Do you really need the hyperlink?? Perhaps you could describe more of WHAT you are trying to accomplish rather than HOW you have approached it.
Good luck with your project.

[Sonu]

Thank you for response Micron and sorry for the confusion. As per my initial post, I was able to invoke hyperlink but not to the desired folder. In my second post, I am able to browse to a default folder but not at hyperlink. So, I think, I would need to mix both of these approaches, so that the button takes me to a default folder as insert hyperlink. I will try that and let know how does it go..

Regards,
Sonu

[orange]

cross posted https://access-programmers.co.uk/for...d.php?t=306834

Sonu,
When you post the same or similar post on multiple sites, you should include the link to the other post(s).
Here is why.

[June7]

acCmdInsertHyperlink does not allow to set a default start folder.

A hyperlink is composed of 3 parts separated by # character

http://allenbrowne.com/casu-09.html. So either concatenate the path with that character ("#" & sFolder & "#") or use intrinsic FollowHyperlink method to force the path to be treated as a hyperlink. Review http://allenbrowne.com/func-GoHyperlink.html

For future, please post lengthy code within CODE tags to retain indentation and readability.

[Sonu]

Thank you for sharing, I will take a note of this going forward.