Custom Contacts: Linking button to website

[JudyLou]

Trying to edit custom contact form so user hits a button which takes them to a website. Problem is the macro works, but the button doesn't. Note that I have not bound the buttons to any fields because I don't know which field type to use.

Can you see anything that would cause this?

Using this code:

Sub GoogleContacts_Click()

Dim Browser As Object

Set Browser = CreateObject("InternetExplorer.Application")

Browser.Navigate "http://Contacts.google.com <http://contacts.google.com/> "

Browser.Visible = True

End Sub

Sub Yelp_Click()

Dim Browser As Object

Set Browser = CreateObject("InternetExplorer.Application")

Browser.Navigate ("http://www.Yelp.com <http://www.yelp.com/> ")

Browser.Visible = True

End Sub

and then....

Sub Yelp_Click()

Dim Browser As Object

Set Browser = CreateObject("InternetExplorer.Application")

With Browser

> Visible = True

> Navigate "http://www.Yelp.com"

Do Until .ReadyState = 4: DoEvents: Loop

End With

End Sub

 

[Diane Poremsky]

It works here in a userform. do you get any error messages? If not, I'd look at the name of the yelp_click button.

 

[Diane Poremsky]

This worked for me on a commandbutton

Button name: Yelp

Sub Yelp_Click()

Set Browser = CreateObject("InternetExplorer.Application")

With Browser

> Visible = True

> Navigate "http://www.Yelp.com"

Do Until .ReadyState = 4
Loop

End With

End Sub

 

[mcolyer]

So, for some reason it doesn't work when the code is located in the VB module but only works with it is "View Code" any ideas as to why or does it even matter?

This worked for me on a commandbutton

Button name: Yelp

Sub Yelp_Click()

Set Browser = CreateObject("InternetExplorer.Application")

With Browser

> Visible = True

> Navigate "http://www.Yelp.com"

Do Until .ReadyState = 4
Loop

End With

End Sub

 

[Diane Poremsky]

View code is vbscript, while a module is full VB and there are some differences. One diff is that you don't need to dim objects. And it doesn't use DoEvents.

Your first yelp_click worked fine in a userform in the VB editor (I didn't text it in a module) but it errored in the vbscript editor (view code).