MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Erro HttpReq e bjXML - Só no Windows 10

    Compartilhe

    wmantovani
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 125
    Registrado : 06/09/2011

    [Resolvido]Erro HttpReq e bjXML - Só no Windows 10

    Mensagem  wmantovani em 11/6/2018, 15:58

    Bom dia, tenho um formulário onde o VBA faz uma consulta na internet e retorna laltitude longitude, acontece que so em uma maquina com o Win10 esta dando o erro abaixo, todas as maquinas inclusive esta com Win10 estao com o Access 2010, alguem pode me ajudar, nao encontro em lugar nenhum a solução disso, conferi as referencias e estão todas certas


    Erro de compilação:

    O tipo definico pelo usuário não foi definido
    Dim Erro de compilação:
    O tipo definico pelo usuário não foi definido

    Dim HttpReq As New MSXML2.XMLHTTP30
    Dim objXML As New MSXML2.DOMDocument..



    Eis o codigo completo onde funciona nas maquinas com Win7 e Office 2010,

    Function fGetXMLText( _
    pstrURL As String _
    ) As String
    '******************************************************************************
    '* Peter De Baets, author
    '* 9/4/2010
    '* Requires a referenc to "Microsoft XML, v3.0", or later
    '******************************************************************************

    Dim Marker As Integer
    Dim Rtn As String
    Dim S As String
    Dim HttpReq As New MSXML2.XMLHTTP30
    Dim objXML As New MSXML2.DOMDocument

    On Error GoTo Err_Section
    Marker = 1

    HttpReq.Open "GET", pstrURL, False
    HttpReq.send
    Rtn = HttpReq.responseText

    Exit_Section:
    On Error Resume Next
    Set HttpReq = Nothing
    Set objXML = Nothing
    fGetXMLText = Rtn
    On Error GoTo 0
    Exit Function
    Err_Section:
    Select Case Err
    Case Else
    Beep
    MsgBox "Error in fGetXMLText (" & Marker & "), object " & Err.Source & ": " & Err.Number & " - " & Err.Description
    End Select
    Err.Clear
    Resume Exit_Section
    End Function

    Obrigado
    avatar
    =>Nois
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 747
    Registrado : 09/11/2012

    Re: [Resolvido]Erro HttpReq e bjXML - Só no Windows 10

    Mensagem  =>Nois em 11/6/2018, 16:48

    bom dia!

    na biblioteca do access tente habilitar uma versão mais recente do xml eu uso algo semelhante e nao tenho problema

    [Você precisa estar registrado e conectado para ver esta imagem.]

    [Você precisa estar registrado e conectado para ver esta imagem.]


    .................................................................................
    [Você precisa estar registrado e conectado para ver esta imagem.] Att. Nois

    Se tudo não der certo... Descanse e tente novamente!

    wmantovani
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 125
    Registrado : 06/09/2011

    Re: [Resolvido]Erro HttpReq e bjXML - Só no Windows 10

    Mensagem  wmantovani em 11/6/2018, 17:04

    Mas eu ja uso na referencia o Microsoft XML, 6.0, e mesmo assim da erro

    wmantovani
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 125
    Registrado : 06/09/2011

    Re: [Resolvido]Erro HttpReq e bjXML - Só no Windows 10

    Mensagem  wmantovani em 11/6/2018, 18:21

    Consegui resolver pessoal, alterei de:

    Dim HttpReq As New MSXML2.XMLHTTP30
    Dim objXML As New MSXML2.DOMDocument

    para

    Dim HttpReq As New MSXML2.XMLHTTP60
    Dim objXML As New MSXML2.DOMDocument60

    Valeu a todos
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 5468
    Registrado : 15/03/2013

    Re: [Resolvido]Erro HttpReq e bjXML - Só no Windows 10

    Mensagem  ahteixeira em 11/6/2018, 21:43

    Olá a todos,

    wmantovani, obrigado pelo retorno, o fórum agradece.

    cheers

      Data/hora atual: 23/9/2018, 17:45