IE browsing and user field manipulation

[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: Here

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

 

[BarryL]

Are you sure they are ID's and not classes or names? can you post the HTML code? what error are you getting currently?

 

[steveuk87]

Hi Barry,

Thanks for the response. Yes they should be ID's as the other boxes are working fine... I get a run-time error '424' Object required.
This is the same error i got when i didn't have the correct ID. Can't give the HTML unfortunately as its not my code i'm accessing, however the ID is correct.