[blue]Private Sub[/blue] cmdLogin_Click()
[blue]On Error GoTo[/blue] err_catch
[blue]Dim[/blue] obIE [blue]As Object[/blue]
[blue]Dim[/blue] vURL, vLogin, vKey, stDocName, stLinkCriteria [blue]As String[/blue]
stDocName = "frmWebLoad"
[green]'A simple pop-up form that says "Website Loading"[/green]
vURL = "[URL unfurl="true"]http://www.yourwebsite.com"[/URL]
[green]'Your Website URL [/green]
vLogin = "login"
[green]'Your Username for the site.[/green]
vKey = "password"
[green]'Your Password for the site.[/green]
DoCmd.OpenForm stDocName, , , stLinkCriteria
[blue]Set[/blue] obIE = CreateObject("InternetExplorer.Application")
[green]'Creates the IE object[/green]
obIE.Navigate (vURL) [green]'Self explanitory[/green]
[green]'Wait while site loads.[/green]
[blue]While[/blue] obIE.Busy = [blue]True[/blue]
DoEvents
[blue]Wend[/blue]
[blue]With[/blue] obIE.Document
.all.Item("username").Value = vLogin
[green]'Item names such as "username" and "password"
'come from the source of the website.[/green]
.all.Item("password").Value = vKey
.Forms(0).submit [green]'Self explanitory.[/green]
[blue]End With[/blue]
[green]'Wait while site processes information[/green]
[blue]While[/blue] obIE.Busy = [blue]True[/blue]
DoEvents
[blue]Wend[/blue]
[green]'Kill popup form and display page.[/green]
DoCmd.close A_FORM, stDocName
obIE.Visible = [blue]True[/blue]
[blue]Set[/blue] obIE = [blue]Nothing[/blue]
[blue]Exit Sub[/blue]
err_catch:
Msgbox ("Error Number " & Err.Number & ". " & Err.description)
[blue]End Sub[/blue]