Anyway to remove #hyperlink# from .Value Property?

[rsmccli]

Hello,

Using Access 2002

I have a function that will accept a path to a document as a string, then open and print it. I have a table (tblScopeHyperlinks) that saves all hyperlinks inputted from a subform's (frmScopeHyperlinks) textbox.I have been trying to make a command button that will loop through all of these hyperlink records in the table, with the value of each entry as the variable (path to document).

My problem is that the .Value of a hyperlink is always returned as :

C:\folder\document.doc#C:\folder\document.doc#

and so the address is not right.

So:
Is there a property that will return just the text name of a hyperlink?

I have also tried adding a "Text Link Adress" field in the table so there would be a normal text version of each hyperlink. This updates from additional textbox on the subform that will copy the .Value when a hyperlink is inputted. This, of course, also updates as above.

Any ideas would be welcome, thanks

rsmccli

[ADezii]

Hello,

Using Access 2002

I have a function that will accept a path to a document as a string, then open and print it. I have a table (tblScopeHyperlinks) that saves all hyperlinks inputted from a subform's (frmScopeHyperlinks) textbox.I have been trying to make a command button that will loop through all of these hyperlink records in the table, with the value of each entry as the variable (path to document).

My problem is that the .Value of a hyperlink is always returned as :

C:\folder\document.doc#C:\folder\document.doc#

and so the address is not right.

So:
Is there a property that will return just the text name of a hyperlink?

I have also tried adding a "Text Link Adress" field in the table so there would be a normal text version of each hyperlink. This updates from additional textbox on the subform that will copy the .Value when a hyperlink is inputted. This, of course, also updates as above.

Any ideas would be welcome, thanks

rsmccli

To return the Hyperlink Address from a Text Field named txtHyperlink on a Form:

Dim HLink As Hyperlink
 
Set HLink = Me![txtHyperlink].Hyperlink
MsgBox HLink.Address

[rsmccli]

I used Mid and InStr to extract the address only from the hyperlink value.

'....
 
  With rs
    rs.MoveFirst
    Do Until rs.EOF
      strDocumentPath = Mid(rs.Fields("hyplink"), 1, (InStr(rs.Fields("hypLink"), "#") - 1))
      Call ExecuteFile(strDocumentPath, "Print")
    rs.MoveNext
    Loop
  End With

Thank you very much for your reply.