How to update a field of dynamic Elements (Input ID & Name) - vba

Question

I am trying to update an amount to a field which having the below elements. I am no sure what is the code to use as the input id and name are not fixed and it change every time i access it. It doesn't give me any error message but the field is not being updated after I ran the codes.
`<div class="field-item dataValueWrite">
<table>
<tbody>
<tr>
<td nowrap="" align="left">
<div id="93497ErrorCUSTOM" class="" style="display:none;"><span class="" errid="" title="Please enter a valid amount" id="93497PegaRULESErrorFlag"></span></div>
<input id="93497" name="93497" onchange="changedInputAmountInCurrencyDisplay(this , '2' , '.' , '.' , ',' , 'false' ); " class="rightJustifyStyle" type="text" size="10" value="" data-changed="false"><script> formatCurrencyBeforeLoad(document.getElementById('93497'),'2','.', 'false');
</script><input id="93497HIDDEN" name="$PAcqCaseCreation$pMessageAmountUSD" type="hidden" value="0.00">
<script>
formatCurrencyBeforeLoad(document.getElementById('93497HIDDEN'),'2', '.' , 'false');
</script>
USD
</td>
</tr>
</tbody>
</table>
</div>`
Below is the code that I created so far:
Sub Test()
Dim IE As Object
Set IE = New InternetExplorerMedium
Dim doc As HTMLDocument
IE.navigate "intranet"
IE.Visible = True
While IE.Busy Or IE.readyState <> READYSTATE_COMPLETE: DoEvents: Wend
Set doc = IE.document
Dim i As Integer
Dim lastRow As Integer
Dim fileLink26 As String
Dim fileLink19 As String
Sheets("Case").Select
lastRow = Sheets("Case").Cells(Rows.Count, "A").End(xlUp).Row
For i = 2 To lastRow
doc.contentDocument.querySelector("[onclick='CreateAcqCase();']").Click
Application.Wait (Now + TimeValue("00:00:05"))
fileLink26 = Cells(i, 26)
fileLink19 = Cells(i, 19)
If fileLink26 = "" And fileLink19 = "CB" And Cells(i, 10).Value = "USD" Then
On Error Resume Next
Dim DispStg2 As Object
Do While DispStg2 Is Nothing
Set DispStg2 = doc.getElementsByTagName("iframe")(0).contentDocument.querySelector("input[value='FirstCB']")
DoEvents
Loop
DispStg2.Click
Application.Wait (Now + TimeValue("00:00:03"))
doc.getElementsByTagName("iframe")(0).contentDocument.querySelector("input.rightJustifyStyle").Item(2).Value = Sheets("Case").Range("k2") '>> This is where I stuck cause nothing happen after this code ran
End If
Next i
End Sub

Answer 1

doc.getElementsByTagName("iframe")(0).contentDocument.querySelector("input.rightJustifyStyle").Item(2).Value = Sheets("Case").Range("k2")
From your above sample code, it looks like you are trying to set the value of a second input element which has class name rightJustifyStyle in an iframe.
You can refer an example below.
Public Sub demo()
Dim ie As Object
Set ie = CreateObject("InternetExplorer.Application")
ie.Visible = True
ie.Navigate2 "D:\Backup20190913\tests\354.html"
While .Busy Or .readyState < 4: DoEvents: Wend
ie.Navigate2 ie.document.querySelector("iframe").src
While .Busy Or .readyState < 4: DoEvents: Wend
ie.document.querySelector("input.rightJustifyStyle:nth-of-type(2)").Value = "Test value..."
While .Busy Or .readyState < 4: DoEvents: Wend
Stop
ie.Quit
End Sub
Output:
Let me know If I misunderstood anything. I will try to correct myself.