Need HTML help please....

[TNTScrub]

I've been beating my head against my keyboard in frustration for at least 4 days trying to solve this. The HTML I'm forced to deal with has duplicate id issues. Can anyone tell me how to create a code that identifies or at least lets me click on the second one? These are the two lines of Code I'm dealing with.

<input name="butDelete" class="btn btn-danger" id="butDelete" type="submit" value="Delete">

<input name="butDelete" class="btn btn-primary" id="butDelete" type="submit" value="Delete This Cycle Record">

 

[TNTScrub]

I know its a mess but I havnt really tried to clean it up yet. Effectively everything works until just after the next statement. Then I get nothing not even an error.

Sub Delete_Cycle()

Dim ie As Object
Set ie = GetIE
On Error Resume Next
ie.Visible = True
Dim Doc As HTMLDocument
Set Doc = ie.document
TagN = ActiveCell.Value               'Tag Number
If Not IsEmpty(TagN) Then
ie.document.all("txtNumber").Value = TagN
ie.document.all("butQuickSearch").Click
End If
Application.Wait (Now + TimeValue("0:00:02"))
Set HTML = ie.document
Set ElementCol = HTML.getElementsByTagName("a")
For Each link In ElementCol
If link.innerHTML = "View/Update" Then
link.Click
End If
Next
ie.document.GetElemntsBytagName("butDelete")(1).Click
end sub

 

[TNTScrub]

Check with Value parameter.

For Each htmlobject In HTMLDoc.getElementsByTagName("input")
            If htmlobject.value = "Delete This Cycle Record" Then
                htmlobject.Click
            Exit For
        End If
    Next

Again, I don't even get an error.

Sub Delete_Cycle()

Dim ie As Object
Set ie = GetIE
On Error Resume Next
ie.Visible = True
Dim Doc As HTMLDocument
Set Doc = ie.document
TagN = ActiveCell.Value               'Tag Number
If Not IsEmpty(TagN) Then
ie.document.all("txtNumber").Value = TagN
ie.document.all("butQuickSearch").Click
End If
Application.Wait (Now + TimeValue("0:00:02"))
Set HTML = ie.document
Set ElementCol = HTML.getElementsByTagName("a")
For Each link In ElementCol
If link.innerHTML = "View/Update" Then
link.Click
End If
Next
'ie.document.all("butDelete")(1).Click
Dim htmlobject As Object
Set HTMLDoc = ieBrowser.document
For Each htmlobject In HTMLDoc.getElementsByTagName("input")
If htmlobject.Value = "Delete This Cycle Record" Then
htmlobject.Click
Exit For
End If
    Next

 

[Saurabhj]

Hi,

Make some changes as below but have a doubt. You click twice (on a button and then on a link)

Is this opening a new page ?

Sub checkDetails()
    On Error Resume Next
    Dim HTMLDoc As New HTMLDocument
    Dim ieBrowser As New InternetExplorer
    
    Dim rowno As Integer
    Dim htmlobject As Object
    Dim trow As Object
    Dim siteURL As String
    
    siteURL = "https://yoursite/"
   
    'To open and show Internet Explorer
    ieBrowser.Visible = True
    
    'To Open website in Internet Explorer
    ieBrowser.navigate siteURL
    
    Do
    ' Wait till the Browser is loaded
    Loop Until ieBrowser.readyState = READYSTATE_COMPLETE
    
    TagN = ActiveCell.Value               'Tag Number
    
    If Not IsEmpty(TagN) Then
        ieBrowser.document.all("txtNumber").Value = TagN
        ieBrowser.document.all("butQuickSearch").Click
    End If
    Application.Wait (Now + TimeValue("0:00:02"))
    
    Set HTMLDoc = ieBrowser.document
    
    Set ElementCol = HTMLDoc.getElementsByTagName("a")
    For Each link In ElementCol
        If link.innerHTML = "View/Update" Then
            link.Click
        End If
    Next
    Application.Wait (Now + TimeValue("0:00:02"))
    For Each htmlobject In HTMLDoc.getElementsByTagName("input")
            If htmlobject.Value = "Delete This Cycle Record" Then
                htmlobject.Click
            Exit For
    Next
      
End Sub