ms access vba code to auto query and fill input boxes on a Internet Explorer web form

I understand MS Access vba code within MS Access but not familiar with interfacing with other applications such as internet explorer.  Trying to automate user tasks.  I have developed code based on internet research and my close but not there.

This is what the user currently has to do and what we are trying to accomplish:

1.  Fill out the Container field with a text string (need to automate the pass of this value); I have done this in code below

2.  Press RETURN on keyboard which then reloads the web form to show a drop down list for the Mfg Order field.  This list has checkboxes on the left side with corresponding text values on the right side (need to refresh this reload); don't know how to do this and this appear to be the crutch of solving the problem in order to get to 3. below.

3.  The user then clicks only one checkbox of interest (need to automate the pass of this value)

4. Click on the ViewReport button (need to automated this)

Eg of Container value is "07016216" (this value is captured from my MS Access Form; just hardcoded below)
Eg of Mfg Order value to select is "ZMCSVC177759" (remember, this drop down list can have many values which the user has to pick only one from the drop down list; this value is captured from my MS Access Form; just hardcoded below)


Many thanks!!!!!



Code below:

Public Function cam()
     
     'make sure you add references to Microsoft Internet Controls (shdocvw.dll) and
     'Microsoft HTML object Library.
     'Code will NOT run otherwise.
     
    Dim objIE As SHDocVw.InternetExplorer 'microsoft internet controls (shdocvw.dll)
    Dim htmlDoc As MSHTML.HTMLDocument 'Microsoft HTML Object Library
    Dim htmlInput As MSHTML.HTMLInputElement
    Dim htmlColl As MSHTML.IHTMLElementCollection
    Dim IE As InternetExplorer
    Dim URL As String
   
    URL = "http://zlvcsssrs/Reports_CAM_GMMA_PRODRPT/Pages/Report.aspx?ItemPath=%2fServiceSummaryReports%2fRAServiceSummaryReport"

     
    'Set objIE = New SHDocVw.InternetExplorer
    Set IE = New InternetExplorer
     
    'With objIE
    With IE
        .Navigate URL     'Main page
        .Visible = 1
        Do While .Busy: DoEvents:   Loop
        Do While .ReadyState <> 4: DoEvents: Loop
        Set htmlDoc = .Document
        Set htmlColl = htmlDoc.getElementsByTagName("input")
        For Each htmlInput In htmlColl
            If htmlInput.Name = "ctl32$ctl04$ctl03$txtValue" Then
                Call htmlDoc.GetElementByID("ctl32_ctl04_ctl03_cbNull").SetAttribute("checked", False)
                Call htmlDoc.GetElementByID("ctl32_ctl04_ctl03_txtValue").SetAttribute("disabled", False)
                htmlDoc.GetElementByID("ctl32_ctl04_ctl03_txtValue").Focus
                htmlInput.Value = "07016216"
                htmlDoc.GetElementByID("ctl32_ctl04_ctl03_txtValue").Focus
                While IE.Busy Or IE.ReadyState <> READYSTATE_COMPLETE
                    DoEvents
                Wend
                Exit For
            End If
        Next htmlInput
               

     '<select name="MfgOrder">
'    Dim optionIndex As Integer
'    Dim dirSelect As HTMLSelectElement
'    Set dirSelect = htmlDoc.getElementsByName("ctl32$ctl04$ctl05$ddDropDownButton")(0)
    'dirSelect.selectedIndex = 1            'set option index directly
'    optionIndex = Find_Select_Option(dirSelect, "ZMCSVC177759")
'    If optionIndex >= 0 Then
'        dirSelect.selectedIndex = optionIndex
'    End If


'        For Each htmlInput In htmlColl
            If htmlInput.Name = "ctl32$ctl04$ctl05$txtValue" Then
'                'Call htmlDoc.GetElementByID("ctl32_ctl04_ctl03_cbNull").SetAttribute("checked", False)
'                'Call htmlDoc.GetElementByID("ctl32_ctl04_ctl03_txtValue").SetAttribute("disabled", False)
                htmlDoc.GetElementByID("ctl32_ctl04_ctl05").Focus
                htmlInput.Value = "ZMCSVC177759"
                htmlDoc.GetElementByID("ctl32_ctl04_ctl05").Focus
'                Exit For
            End If
'        Next htmlInput
                 
'                Set htmlDoc = .Document
'                Set htmlColl = htmlDoc.getElementsByTagName("a")
'                Do While htmlDoc.ReadyState <> "complete": DoEvents: Loop
'                    For Each htmlInput In htmlColl
'                        If Trim(htmlInput.ID) <> "" Then
'                            If htmlInput.ID = "ctl00_ctl16_SearchButton" Then
'                                htmlInput.Click
'                                Exit For
'                            End If
'                        End If
'                    Next htmlInput
'
'                    Do While htmlDoc.ReadyState <> "complete": DoEvents: Loop
'                        MsgBox "New URL is : " & objIE.LocationURL

    While IE.Busy Or IE.ReadyState <> READYSTATE_COMPLETE
        DoEvents
    Wend
                         
    End With
   
    'Set objIE = Nothing
                     
End Function
Capture.PNG