Form Button with VB Code Does Nothing

[esoikie]

I am trying to make a button that opens an external browser for excel with a website.

I put the button on the form (name it FindPhone), right click, and build event.
In Visual Basic, I put in

Private Sub FindPhone_Click()
Application.FollowHyperlink "www.google.ca"
End Sub

I close Visual Basic, and back in Access, I put the form in 'form view' and click the button. And nothing happens. What am I doing wrong?


(Access 2007)

[ajetrumpet]

you may want to check the property sheet behind the button. Access has been known to create events from dialogs and then not register the code link with the click event. Don't ask me why.

This also happens if you write the code yourself and don't establish the link. If that's what's wrong, you can fix it by going to the click event on the prop sheet and click on the elipses (...) next to the event line. the VBE should open and the cursor should be inside the event. Doing that has always established a link for me.

Check if the button is enabled too. If it's a standard grey one, you never know if it's disabled or not if it has no caption. The only difference I've noticed by being disabled is the caption words...they turn grey.

[esoikie]

Thanks, I'm not sure if it was because I established a link or because I saved the DB, but it started working. However, it did need an "http://"

Now I'm trying to figure out how to pass a form variable into that url...
i.e. "http://www.address.com/?q=" & formfieldvalue

[esoikie]

Seems to be something as simple as formname!fieldname ... I think. However, I need something like "Form Name"!"Field Name" but that doesn't work.

[ajetrumpet]

I only know one website that uses that "q" for their search box name. Goooooooooooogle!

[esoikie]

lol! No, I'm not planning on using it for google, that was just an example, what I need to do is a 'bit' more complicated, but not much. If I can figure out how to pull the string data from the form field, I'll be fine. I'm getting closer. But I think I might need to define it as a string or something... not sure. For now I have :

Private Sub FindPhone_Click()
Application.FollowHyperlink "http://www.google.ca" & Forms_ContactandVolunteers.HouseNumber
End Sub

But it gives runtime '424' object required.

[ajetrumpet]

housenumber? remember you can't combine data types and expect the program to smile at you...

"http://www.google.ca" & cstr(forms("ContactandVolunteers").controls("HouseNumber"))

[esoikie]

The 'housenumber' column is actually stored with a string value.

[ajetrumpet]

The 'housenumber' column is actually stored with a string value.

oopsie!

[esoikie]

The 'housenumber' column is actually stored with a string value.

Private Sub FindPhone_Click()
Dim strNum As String
Dim strStr As String
strNum = Forms_ContactandVolunteer!HouseNumber
strStr = Forms_ContactandVolunteer!StreetName
Application.FollowHyperlink "http://www.google.ca/"
End Sub

this is what I'm NOW at.... but the strNum = line highlights yellow. I THINK it's having a hard time locating my field.

[ajetrumpet]

but the strNum = line highlights yellow.

look at my last post. 99.9% bet the syntax is wrong. use the one in the last post. cstr() is not necessary.

[esoikie]

Actually, I was right about not finding the field on the form. Once I found me.formfieldname function everything worked out fine.