Solved follow hyperlink (1 Viewer)

[murray83]

have had a quick search and not sure why this isn't working, basic problem is

the hyperlink to follow will be different each time as its based on a choice from a combo box, which then populates a text box with the path which is in the column of the combo box but is hidden

so have made this a my code

Private Sub cmdGoTo_Click()

'the path as will be different each time so dimd it
Dim Path As String
Path = Me.Text5
    
'should open the file
Application.FollowHyperlink "Path"

End Sub

but keeps on not working as the path is some how not being passed to the hyperlink bit, it is in the path dim any help would be greatfull appreciated, cheers

see attached for my workings

 

[pbaldy]

Haven't looked at the sample, but you don't want quotes around the variable. It is being treated as literal text. Try:

Application.FollowHyperlink Path

 

[vba_php]

Application.FollowHyperlink Path

and since the VBE doesn't know what it wants sometimes, and can get confused with itself from version to version, if that doesn't work, surely this will:

Application.FollowHyperlink(Path)

 

[vba_php]

after looking at your file, you probably can't open it because it can't be parsed. the PATH has spaces in it. try renaming your files to something like this:

G:\GENERAL\STOCK\supplier_compliance\Digital_Archive\2020\03_Mar\16_03_2020\13675343.pdf

but then again, like I said before, VBA isn't the best so it could be another issue as well.

 

[theDBguy]

Hi. I obviously couldn't test your code because I don't have those files in the same path, but I did modify your code slightly. Please give it a try and let us know how it goes. Cheers!

 

[vba_php]

guys' code

Application.FollowHyperlink """" & Me.List0.Column(2) & """"

that does solve the issue of spaces too

 

[murray83]

Haven't looked at the sample, but you don't want quotes around the variable. It is being treated as literal text. Try:

Application.FollowHyperlink Path

sir, thanks i did this as suggested

Private Sub cmdGoTo_Click()

'the path as will be different each time so dimd it
Dim Path As String
Path = Me.Text5

'should open the file
Application.FollowHyperlink Path


End Sub

as i removed the speech marks from around Path and Bam it works, spaces an all

thanks to all who looked suggested as well, much appreciated

 

[theDBguy]

sir, thanks i did this as suggested

Private Sub cmdGoTo_Click()

'the path as will be different each time so dimd it
Dim Path As String
Path = Me.Text5

'should open the file
Application.FollowHyperlink Path


End Sub

as i removed the speech marks from around Path and Bam it works, spaces an all

thanks to all who looked suggested as well, much appreciated

Hi. Congratulations! Glad to hear you got it sorted out. Good luck with your project.

 

[pbaldy]

sir, thanks

Happy to help!