dblClick textbox to follow hyperlink

[markjkubicki]

i have a table where the user enters, along with a few other items, a hyperlink to a related file (on the company server); (typically a *.pdf or *.jpg)
On an associated form, rather than display the full path of the hyperlink, i provide a textbox with only the actual file name.

                vFileName = Trim(.SelectedItems.Item(1))   'contains the hyperlink path
                strFileName = Mid(filename, InStrRev(vFileName, "\", -1, vbTextCompare) + 1)

I need to find a way to allow the user to open the hyperlink through this textbox (with strFileName as its ControlSource.
(as a check, I added a textbox that does have the hyperlink field as its source, and clicking on that control does open the link )

using this code, i instead get: ERROR7971

Private Sub txtlinktoContractDoc_DblClick(Cancel As Integer)
On Error GoTo Error_linktoContractDoc
Dim strHyperLink As String

    strHyperLink = DLookup("linktoContractDoc", "tbeProjectInfo_ContractDocs", "ContractID like '" & Me.txtContractID & "'")
    Application.FollowHyperlink strHyperLink, , True

Error_linktoContractDoc:
    MsgBox Err & ": " & Err.Description
End Sub

any thoughts and/or suggestion will be greatly appreciated in advance,
m.

[Welshgasman]

And what is error 7971 ?
Put a debug.print before the application line and see what is returned.
Don't just assume you have it working? Check each step.

Basic debugging 101.

An ID in a name indicates to me when I use it, that the field/variable is numeric, in which case do not use single quotes, they are for text.

[Gicu]

I added a textbox that does have the hyperlink field as its source, and clicking on that control does open the link

Wouldn't it be easier to hide the textbox bound to the full hyperlink then simply use it in the double-click event of the other one:

Application.FollowHyperlink Me.txtFullHyperLinkHidden, , True

Cheers,

[Welshgasman]

Someone passed on a tip to get a filename from a path very easily.
I tried it and it appeared to work?

strFileName = Dir(YourVerylongWindedPathToFile)

[markjkubicki]

i like your approach a lot.
oddly, Me.txtFullHyperLinkHidden returns the value with a leading #, and a following "1" - not certain what that is all about (that's for another time...)

adjusting the formula to be:

Application.FollowHyperlink Mid(Me.txtFullHyperLinkHidden, 2, Len(Me.txtFullHyperLinkHidden) -1), ,True

WORKS just fine

thnx,
m

[markjkubicki]

error 7971 is: "Microsoft Office Access can't follow the hyperlink to..."

had been stepping through; was getting as far as the MS$oft "some ... contain... do you want to open...", before the error occured i do get that typically an ID is a number; in this particular instance, alpha characters are part of the ID (22-1234a) thnx for the attention, m.

[Gicu]

Glad to hear, I think it might be safer to try using the HyperlinkPart method to extract the address:

Application.FollowHyperlink HyperlinkPart(Me.txtFullHyperLinkHidden,acAddress), ,True

https://docs.microsoft.com/en-us/off....hyperlinkpart

Cheers,

[markjkubicki]

OOOO

dir() <-- things you've never know about !! THNX !!!

[markjkubicki]

HyperLinkPart...

I had read some about the associated problem, but most went onto far more complicated approach to deal with.
yeah... inversely, this is so much simpler

big THNX !

[Gicu]