from combo box data - > Open website with username and password

[AdamOnAccess]

I have a form with a combo box called "cmbWebsite s".

The combo box row source comes from a select query that returns rows:

0.WebsiteID
1.Website Name
2.Website URL
3.Username
4.Password

Only "Website Name" appears in the combo box. The other columns are set to zero length.

When the user selects a website, the AfterUpdate event will trigger code to build a string that contains the URL, Username and Password of the selected website, and runs it through the FollowHyperlink method.

The only thing I don't know how to do is format the hyperlink so the websites will accept the username and password and automatically get me into the site; like "Roboform".

Even though this isn't a pure MS Access question, I can't imagine that other Access developers haven't done something similar.

Does anyone know how to format a URL with Username and Password, so the FollowHyperlink method automatically gets you into the site?

Thanks,
Adam

[AdamOnAccess]

ok, I got pretty far with it but than got hung up at the last moment. Here's what is happening...

With Me!cmbWebSiteID
   strURL = .Column(1)
   strUNtag = .Column(3)
   strUNtag = Chr(34) & strUNtag & Chr(34)
   strPWtag = .Column(4)
   strPWtag = Chr(34) & strPWtag & Chr(34)
   strMyUN = .Column(6)
   strMyPW = .Column(7)
   strSubmitButton = .Column(5)
   strSubmitButton = Chr(34) & strSubmitButton & Chr(34)
End With
 
 
Dim webBrowser As Object
Set webBrowser = CreateObject("InternetExplorer.Application")
 
With webBrowser
    .Navigate strURL
    .Visible = True
        ' loop until the page has finished loading
        Do While webBrowser.readyState <> 4 Or webBrowser.Busy
           DoEvents
        Loop
       ' username and password are the default element names - if they are different you need to figure them out and change accordingly
       .Document.All.Item(strUNtag).Value = strMyUN
       .Document.All.Item(strPWtag).Value = strMyPW
       .Document.All.Item(strSubmitButton).Click
End With
 

When I run the code, I get this error message...

"Method 'Item' of Object 'NameOfForm' Failed"

The error occurs on this line:
.Document.All.I tem(strUNtag).V alue = strMyUN

if I remove the variable and run it as a fixed string like this...
.Document.All.I tem("Nick").Val ue = strMyUN

... with "Nick" being the actual name of the Username field on the HTML page, the code works perfectly.

Does anyone know how I can get it to run with the variable?

Thanks,
Adam

[mshmyob]

@AdamOnAccess
Just change your declaration for your elements (strUNtag, etc.) like so:

dim strUNtag

Don't try to add quotes or anything. Do not declare it as string or anything. Or leave out the declarations completeley and it will work.

cheers,

[AdamOnAccess]

Works great! Thanks MshMyob!