IE Automation

I think what I was trying to do with the above code was to click on a button. I believe what I want to do is submit a form on that webpage. Any thoughts on that? I am coming up empty on the ol Google Search.

Thanks!

If you want to submit a form, use the form's submit method.

For example.

Please Login or Register  to view this content.

Can you post the URL of the site and the rest of the code?

Hi Norie, the url is a company site, you will not be able to access it. Here is the VBA I'm using.

Option Explicit
Global oValue As Variant
Global oType As String

Sub ODM()

Dim IE As Object
Dim uName As Variant
Dim pWord As Variant
Dim odmSearch As Variant
Dim frm As Object

'On Error GoTo GetOut

Application.ScreenUpdating = False

UserForm1.Show

Select Case oType
Case Is = "HICN"
odmSearch = "TEXTBOXzzz4___hicn"
Case Is = "Job Document ID"
odmSearch = "TEXTBOXzzz2___job_doc_id"
Case Is = "DCN"
odmSearch = "TEXTBOXzzzDCN___DCN"
Case Is = "Member ID"
odmSearch = "TEXTBOXzzz3___member_id"
End Select

uName = InputBox("Please enter User Name....")
pWord = InputBox("Please enter Password....")

'If pWord Or uName = "" Then
' Exit Sub
' End If


Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True

IE.Navigate "https://ovationsodm.acsgs.com/login.aspx?ReturnUrl=%2findex.aspx"

Application.StatusBar = "Submitting"
While IE.Busy
DoEvents
Wend

delay 3

IE.document.getElementbyid("txtUsername").Value = uName
IE.document.getElementbyid("txtPassword").Value = pWord

delay 1

IE.document.getElementbyid("btnLogin").Click

delay 3

This is where I am having problems.
'IE.document.forms(1).submit

'For Each link In IE.document.Links
'If link.innerText = "_ctl0_ContentPlaceHolder_aDocSearchDynamic" Then link.Click
'Next link


'Set AllHyperLinks = IE.document.getElementsByTagName("A")
' For Each hyper_link In AllHyperLinks
' If hyper_link.innerText = "Dynamic Doc Search" Then
' hyper_link.Click
' Exit For
'End If
' Next

' delay 3

IE.document.getElementbyid(odmSearch).Value = oValue

delay 2

IE.document.getElementbyid("_ctl0__ctl0__ctl0_ContentPlaceHolder_ContentPlaceHolder_btnSearch").Click

delay 2


Application.StatusBar = "Submitted"
'IE.Quit
Set IE = Nothing

delay 2

Application.StatusBar = ""

Application.ScreenUpdating = True

'GetOut:
End Sub

This is the html I am trying to click.
<A id=_ctl0_ContentPlaceHolder_aDocSearchDynamic href="doc_search_dynamic.aspx" target=content>Dynamic Doc Search</A>