MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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


3 participantes

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

    avatar
    wmantovani
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 218
    Registrado : 05/09/2011

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

    Mensagem  wmantovani 11/6/2018, 11: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
    =>Nois
    =>Nois
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  =>Nois 11/6/2018, 12:48

    bom dia!

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

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

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


    .................................................................................
    Att. Nois

    Se tudo não der certo... tente de novo drunken
    avatar
    wmantovani
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 218
    Registrado : 05/09/2011

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

    Mensagem  wmantovani 11/6/2018, 13:04

    Mas eu ja uso na referencia o Microsoft XML, 6.0, e mesmo assim da erro
    avatar
    wmantovani
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 218
    Registrado : 05/09/2011

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

    Mensagem  wmantovani 11/6/2018, 14: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
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Alvaro Teixeira 11/6/2018, 17:43

    Olá a todos,

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

    cheers

    Conteúdo patrocinado


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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 10:11