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
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