Modifica HTML con VBA access 2010

Question

Salve.

Premetto che ho già usato con successo la modalità di riempimento dei Form Html con il Vba di Access, ma ora mi trovo davanti a questo problema.

Risultando il caso un po strano, premetto anche che a manina funziona tutto.

Io devo inserire nel campo value il numero di una pratica  es. "12345678", questo è uno dei campi che mi fa da filtro nell'interrogazione, di seguito clikko (ricercando il Bottone) su "Cerca".

<td class="z-row-inner" id="mQ5Q3c-chdextr"><br><br><br>       <div class="z-row-cnt z-overflow-hidden" id="mQ5Q3c-cell"><br><br><br>                <input class="z-textbox" id="mQ5Q3c" type="text" size="11" maxlength="8" value=""><br><br><br>                </input><br><br><br>       </div><br><br></td>

Il risultato è che il filtro non viene eseguito. Ho fatto la prova eseguendo il codice fino all'inserimento del valore, immetto il valore a mano, e faccio proseguire il codice, stranamente il tutto funziona. Come se dopo aver inserito il "filtro" debba succedere qualche evento.

Ringrazio per eventuali suggerimenti.

Saluti

Answer 1

Ho fatto dei prograssi, ma non risolutivi.

Prima di scrivere il campo che mi fa da filtro ho inserito il focus sul campo "m_input.focus". (senza non funziona)

_______________________________________________________________________________________

        Set MyInput = hDoc.getElementsByTagName("input")

            For Each m_input In MyInput

               Debug.Print m_input.id

               If m_input.id = idCaConto Or m_input.id = idCaDiv Then

'                  Stop

                  m_input.focus

                  m_input.Value = 5927181

                  Exit For

               End If

            Next

_______________________________________________________________________________________

di seguito quando ricerco il pulsante "Cerca", se commento l'istruzione "Msgbox" il filtro non viene considerato se lascio l'istruzione e clicco su "OK" il filtro viene considerato. (mi estrae cioè la pratica corretta).

________________________________________________________________________________________

        For Each img In Cerca

            DoEvents

            If InStr(1, Trim(img.innerText), "Cerca") Then

               MsgBox "Klikka", vbInformation

               img.Click

            End If

            Exit For

        Next

_______________________________________________________________________________________

Avete soluzioni da proporre?

Grazie