trigger onchange event in vba of website field

After populate the fields with vb call a javascript function with the following concepts:

if you are using jquery just use the .change() method:  
http://api.jquery.com/change/

$('input').each(function(){
$(this).change() //this will trigger the change event for each input in the page. you can use keypress,keyup,keydown,blur
})

Select allOpen in new window

If your are not using jquery you will need to do:

if ("createEvent" in document) {
    var evt = document.createEvent("HTMLEvents");
    evt.initEvent("change", false, true);
    element.dispatchEvent(evt);
}
else
    element.fireEvent("onchange");

Select allOpen in new window

or you can use:

<input type="text" id="field1" name="field1" value="1" onChange="myFunctionOnchange(this)" />
<script>
function myFunctionOnchange(input) {
  alert(input.name)
}
myFunctionOnchange(document.getElementById('field1'))
</script>

Select allOpen in new window

 you can use keypress, keyup, keydown, blur (when textbox loose focus).

The web page is not mine I want to populate a field with data from my db then do the equivalent of a submit, the page doesnt contain a submit button.  I guess I am not using jquery so is your second option the one i can insert into my access vba code?

Yes I will have a read up on that and confirm in the morning it certainly looks promising

Oh, I see, nevermind, I though you was posting ASP code. My bad

Why don't you just create a http Get request to the page:

http://www.bike-parts-honda.com/verifidentification_v2_new.php?val1=CR&val2=UNITED%20KINGDOM

Then you parse and read the data from the result?

I wasnt sure how Hans

Ive added in the code to a routine in module1, I am not seeing the output message, it will return data with the code in the db currently for this test version 1 record, I need to save the data to a table.

If I can see where the return data is (i assume its in a block of html then I will be able to write it.

forgot to add a sample db

OK I can see now the document by printing sHTML.

The final 3 rows to read one by one are not working. I wondered now if regx can pick up the table data and save it. Here is what I have so far, although it doesnt pull anything out either

Private Sub SubmitVIN(strVIN As String)
Dim rsmc As Dao.Recordset
  Dim oRE As Object
  Dim strHTML As String
  Dim oM As Object
  
    Dim sSearchString As String
    
    sSearchString = strVIN
    
    
    Set oRE = CreateObject("vbscript.regexp")
    oRE.Global = True
    oRE.Pattern = "<tr>\s*<td>(\w[^<]*)</td>\s*<td>(\w[^<]*)</td>(?:.|\n)*?</tr>"
    Set rsmc = DBEngine(0)(0).OpenRecordset("TblModelLookup", dbOpenTable)
    
    
    
    'GETTING THE HTML CONTENT OF THE PAGE
    Set winHttpReq = CreateObject("WinHttp.WinHttpRequest.5.1")
    winHttpReq.SetTimeouts 0, 600000, 600000, 600000

    winHttpReq.Open "GET", "http://www.bike-parts-honda.com/verifidentification_v2_new.php?val1=" & sSearchString & "&val2=ALL%20COUNTRY", False
    winHttpReq.Send
    Dim sHTML As String
    sHTML = winHttpReq.responseText
     
    
    
    'CLEANING AND FIXING NOT-WELL FORMED TAGS TO BE ABLE TO PROCESS IT IN AN XML DOM
    sHTML = "<xml>" & sHTML & "</xml>"
    sHTML = Replace(sHTML, "</A></span>", "")
    sHTML = Replace(sHTML, "</A>", "</a>")
    sHTML = Replace(sHTML, "<TR>", "<tr>")
    sHTML = Replace(sHTML, "<TD>", "<td>")
    sHTML = Replace(sHTML, "</TD>", "</td>")
    
    
    Dim objDOM As Object
    Set objDOM = CreateObject("Msxml2.DOMDocument.6.0")
    objDOM.LoadXML sHTML
    Debug.Print sHTML
    Dim oRow As Object
    
    
    
    'parse the result
            If oRE.test(sHTML) Then
                Set oMatches = oRE.Execute(sHTML)
                For Each oM In oMatches
                    'push the data into the model table
                    rsmc.AddNew
                        rsmc!VehicleID = rsVINS!VRR_VehicleID
                        rsmc!vin = rsVINS!VinToUse
                        rsmc!TradeName = oM.submatches(0)
                        rsmc!Pattern = oM.submatches(1)
                        rsmc!Country = oM.submatches(2)
                        rsmc!StrYear = oM.submatches(3)
                        rsmc!TypeMine = oM.submatches(4)
                        rsmc!Misc1 = oM.submatches(5)
                        rsmc!Misc2 = oM.submatches(6)
                       
                        
                        
                        
                        
                        
                    rsmc.Update
                Next
            End If
    

    
    
    
    
    
    
    
    
    
    
    
    
    
    ' READ ROW 1 BY 1
    For Each oRow In objDOM.SelectNodes("//tr[position()>1]")
        MsgBox "TradeName: " & oRow.SelectSingleNode("td[1]").Text & " - Pattern:" & oRow.SelectSingleNode("td[2]").Text & " - Country:" & oRow.SelectSingleNode("td[3]").Text
    Next
    

    
    

End Sub

Select allOpen in new window

you have 3 options:

- XML DOM:  fix the sHTML to be an XHTML (a valid XML) and then you work with XML DOM, with XPath. To validate that the XML use:

  Dim objDOM As Object
    Set objDOM = CreateObject("Msxml2.DOMDocument.6.0")
    objDOM.LoadXML sHTML
    If objDOM.DocumentElement Is Nothing Then
        MsgBox "The HTML document is not a valid XML"
        Exit Sub
    End If

' READ ROW 1 BY 1
    For Each oRow In objDOM.SelectNodes("//tr[position()>1]")
        MsgBox "TradeName: " & oRow.SelectSingleNode("td[1]").Text & " - Pattern:" & oRow.SelectSingleNode("td[2]").Text & " - Country:" & oRow.SelectSingleNode("td[3]").Text
    Next

Select allOpen in new window

-Regexp: Use 2 regular expression, one to extract row by row (tr), and another column by column (td). You will need to work on the regular expression because the HTML is not well formatted. I recommend you to copy the sHTML (or the source code of the page)  into this tool and start creating your regexp:

https://regex101.com/

- Strings Operators: the less efficient but still an option. Use "InStr" and others string operators to start reading the content from left to right.

I assume the second option will just slot into my code, i need the easiest and fastest solution processing wise.

The solution to the answer of the question has been covered anything else i can put to a regex question or vba question without breaking EE protocol.

woul;d you be happy hans for me to share the points with Rainer Jeschor too as he made a valid suggestion too?

Sure, whatever you think it was useful for you deserve points :D.