[Resolvido]Erro ao processar Me.webTimeDate.Navigate !

Olá a todos(as), tudo bem?

Atraves de um Post aqui mesmo do Fórum eu comecei a utilizar a Private abaixo citada, importante para iniciar o site em que eu valido a hora do computador do usuario.

Ocorre que depois do retorno do horario de verao (nao sei se coincidencia ou nao) ao processar a linha Me.webTimeDate.Navigate "www3.horariodebrasilia.org/", me retorna o seguinte erro do Internet Explorer:
Error: Unable to set value of the property "innerHTML": objects is null or undefined.

Alguem sabe me dizer o porque deste erro?

Private Sub Form_Load()
Me.webTimeDate.Navigate "www3.horariodebrasilia.org/"
Do While webTimeDate.Busy: DoEvents: Loop
Do While webTimeDate.ReadyState <> 4: DoEvents: Loop
Verif = "S"
End Sub

Obrigada.

Ju

Olá

Dê uma olhadinha neste tópico

http://comunidade.itlab.com.br/eve/forums/a/tpc/f/273606921/m/8137008443?r=6297018443#6297018443

Bom estudo!

Juliana

Do GD Fórum Access que o Avelino sugeriu:

Código:



Function HoraWeb3() As Date
    Dim objIE As Object

    Set objIE = CreateObject("InternetExplorer.Application")
    objIE.Visible = True
    objIE.Navigate "http://www3.horariodebrasilia.org/"
    Do While objIE.Busy: DoEvents: Loop
    Do While objIE.ReadyState <> 4: DoEvents: Loop
    HoraWeb3 = objIE.Document.getElementById("time").innerText  '-->time com t minúsculo  se deixar com t maiúsculo como está no site, dará erro.
    objIE.Quit
    Set objIE = Nothing

End Function



Abraços