button hyperlinks

[nichmeg]

I have inserted a command button into my form and want it to follow a hyperlink that is stored in my table for each record. what is the best way to reference this?
I have a different hyperlink for each record and want the button to look at that link and open it in the browser.

[June7]

Cannot use button unless you write code to run the hyperlink from the table field. Don't think that is simple code. Use a textbox instead. Set IsHyperlink property to Yes. Bind the textbox to table field. Click the textbox and hyperlink will execute.

[nichmeg]

I have it set up that way now, with a text box linked to the link field. I was wanting to clean it up and thought a button that had a specific text label (ie. button has text label that says "MSDS sheet" that on click would follow the link in that particular records hyperlink. The field is a hyperlink value.

[June7]

Then check out http://allenbrowne.com/func-GoHyperlink.html

[nichmeg]

Had trouble with this method too, maybe Im too far behind technologically, or just dont understand. I tried the Call GoHyperlink(Me.[MSDS1]) in my onclick event box along with a several other methods I could think of with no luck. Any other suggestions?

[June7]

What do you mean by 'no luck' - error message, wrong results, nothing? Have you step debugged? I have never tried to run Allen Browne's or any other code for hyperlink. His code is normally reliable and I referred to this one by reputation only.

If you want to provide project for analysis, I will look at.

[nichmeg]

Here is the doc. The link in ? is on the images tab.
Thanks in advance. One other thing I was looking at doing and wasnt sure if you knew how to do it is to use the address field to call the map automatically in google maps with the push of the button I am trying to get to work (not having to have the aerial map field).

[June7]

You did not include Allen Browne's function code in your project. Provide project with your attempt to incorporate code.

[Access_Blaster]

Would it be possible to change your "aerialtxt" textbox to a combo box? that way when the user selects the proper aerial map it will launch without a button.

[nichmeg]

Another ? showing my lack of knowledge on this program

I put in his code and cleaned up the notes, but what goes where the red letters are? I think I am wrong in putting the field name as this module is supposed to work for the whole database it sounds like.

Public Function GoHyperlink(FullFilenameOrLink As Variant) As Boolean

[June7]

You don't put anything else in place of the red text. That is a variable used by the function. You will see that variable repeated in the function code. That variable will get set when you call the function from another procedure. This is a function with an argument, the argument is information the function requires in order to work.

Function and Sub procedures are basic structures of programming. An example of intrinsic function which will round a number to specified decimal places is: Round(789.456913, 2). The number, or a variable set to a number, is the argument. Omit the argument and that function will error. Not all functions require an argument. Date() will return the current date. Now() will return the current date and time. Allen Browne's hyperlink code is a custom user function.

[nichmeg]

I followed what he suggested and the message I am getting says unable to follow link. Ive attached it (with the what should be correct code). This is just not clicking with me for some reason, sorry if it seems bothersome.

[June7]

This worked for me. Do not run the PrepHyperlink function for the Google link. Do need to remove # characters from beginning and end of hyperlink string. These characters are not apparent in the table field, they appear when the hyperlink field is grabbed by VBA code. The function is not programmed to do this, VBA just does it. Might have something to do with the underline and blue highlight format of hyperlink field. So I commented out the PrepHyperlink function call and used Replace function to remove the # characters.

'strLink = PrepHyperlink(FullFilenameOrLink, strErrMsg)
strLink = Replace(FullFilenameOrLink, "#", "")

Review the link at bottom of my post for a good tutorial on debugging techniques. Still might not have resolved on your own even with debugging but still good to know how for future.

[nichmeg]

Thank you sooo much, it does exactly what I was trying to get it to do. I really appreciate your time helping with this.

[TJRR]

Excellent...I was trying to accomplish the same feat. I would have not done it if it wasn't for the explanation described here. Thank You ..Saved me a great deal of time.

Oh the Debugging VBA Link is