Shell Command 2

[Wiszh]

How can I use the shell command to open a web page from a button click?

 

[FancyPrairie]

Set the HyperlinkAddress property of the command button. That should do it.

 

[Wiszh]

I'm working with Access 97 which does not support the HyperlinkAddress property.

 

[FancyPrairie]

You could try using the ActiveX control "Microsoft Access Web Browser" (it's pretty cool). Assuming you name the ActiveX control "ocxWeb", then in the OnClick event of your command button, do this:

Me.ocxWeb.Navigate "path of web page"

Note that the ActiveX control is embedded in your form. May not be what you want, but...

 

[ajdesalvo]

Say you have a text box control called WebAddress and a comand button on a form.

Enter

http://www.yahoo.com

in the text box.

Then in the Click event of the command button:

Application.FollowHyperlink Me![WebAddress]

Hope that helped!

Anthony J. DeSalvo
President - ScottTech Software
"Integrating Technology with Business"

 

[Wiszh]

I was hoping to open the browser externally not to have to create a form that has a browser embedded in it.

Thanks

 

[ajdesalvo]

Application.FollowHyperlink will open a browser window.

Anthony J. DeSalvo
President - ScottTech Software
"Integrating Technology with Business"

 

[Wiszh]

Thanks ajdesalvo that's exactly what I was looking for.

My apologies FancyPrairie, you are correct I could have used the HyperlinkAddress property in Access 97

Thanks again


Wiszh

 

[cghoga]

try this...

'declare a variable.

Dim mywebsite As String

'before you specify what site to open, you have to specify the proper exe.
you should have an exe that kicks off your web browser and it's stored somewhere within your C: drive. locate it (you can go to Start - Programs - right click on Internet Explorer - go to Properties - go to the Shortcut tab and it should tell you where the target is) and include the proper path (target) where i've got C:...etc below, then include a space, and then the name of the site you want to go to, in the example below it's http:\\

http://www.tek-tips.com.

Enclose from C: over in quotes like below.

mywebsite = "C:\Program Files\Internet Explorer\IEXPLORE.EXE http:\\

http://www.tek-tips.com"

'perform the call that makes it go.
Call Shell(mywebsite, 1)

the end result should look like this:

'''''''''
Dim mywebsite As String

mywebsite = "C:\Program Files\Internet Explorer\IEXPLORE.EXE http:\\

http://www.tek-tips.com"

Call Shell(mywebsite, 1)
'''''''''

did this work ok? hope this helps.