IE browsing and user field manipuilation

[steveuk87]

Hi All,

I have the following code:

Sub NewTest()

Dim IE As Object
    Set IE = CreateObject("InternetExplorer.application")
    With IE
        .Visible = True
        .navigate ("my website")
        While .Busy Or .readyState <> 4: DoEvents: Wend
    .document.getElementById("txtIdentity").Focus
    .document.getElementById("txtIdentity").Value = "stephen"
    .document.getElementById("txtPassword").Focus
    .document.getElementById("txtPassword").Value = ""
    
    .document.all("btnLogon").Click
    While .Busy Or .readyState <> 4: DoEvents: Wend
        
    .document.getElementById("ctl00_QC").Focus
    .document.getElementById("ctl00_QC").Value = "LAMT"
    
    .document.all("ctl00_btnQCSamePage").Click

    While .Busy Or .readyState <> 4: DoEvents: Wend
    '***NOT WORKING!!****
    '.Document.getElementById("iLOTNOENT").Focus
    '.Document.getElementById("iLOTNOENT").Value = "L"
    
    '.Document.getElementById("LOTAPPROIND").Focus
    '.Document.getElementById("LOTAPPROIND").Value = "Y"
    '***NOT WORKING!!****
        'Debug.Print .LocationURL
    End With
    
End Sub

Unfortunately the end of the code isn't working and i'm not sure why, but i may be because the website is using different panels for its layout?

See picture:

https://imgur.com/a/WOJ65p0

Is there anbyway of navigating to these 2 input boxes at all?

 

[steveuk87]

anyone help on this?