MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Variavel não definida

    avatar
    Anslu
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 88
    Registrado : 11/01/2018

    [Resolvido]Variavel não definida Empty [Resolvido]Variavel não definida

    Mensagem  Anslu em 28/10/2020, 15:35

    Boa tarde!
    Mais uma vez venho solicitar a  ajuda de vocês. O código abaixo funcionava tranquilo e agora "Variável não definida"

    Desde já fico agradecido!

    Function busca_cep(CEP)

    URL = "http://republicavirtual.com.br/web_cep.php?cep=" & CEP & "&formato=query_string"

    Set xmlhttp = CreateObject("MSXML2.ServerXMLHTTP")
    xmlhttp.Open "GET", URL, False
    xmlhttp.Send ""

    xmlhttp_resultado = xmlhttp.responseText
    Set xmlhttp = Nothing

    arr_resultado = Split(xmlhttp_resultado, "&")

    Dim resultado(7)
    For i = LBound(arr_resultado) To UBound(arr_resultado)

    resultado(i) = arr_resultado(i)

    Next

    arr = Split(Join(resultado, "="), "=")

    Dim arr_2(14)
    For i = LBound(arr) To UBound(arr)

    arr_2(i) = Replace(arr(i), "+", " ")

    Next

    busca_cep = arr_2
    End Function
    Marcelo David
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3206
    Registrado : 21/04/2011

    [Resolvido]Variavel não definida Empty Re: [Resolvido]Variavel não definida

    Mensagem  Marcelo David em 28/10/2020, 17:25

    Boa tarde.
    Muito provável ser a referencia MSXML

    Veja se encontra ela no seu micro (la nas referencias do VBA), caso contrário, registre ela novamente no Windows.

    Tem até instaladores dela.

    Copie e cole os links no seu navegador.

    microsoft.com/pt-br/download/details.aspx?id=6276
    support.microsoft.com/pt-br/help/278674/determine-the-version-of-msxml-parser-installed-on-a-computer


    .................................................................................
    Marcelo David | [Resolvido]Variavel não definida LinkedIn_Icon.jpg.original LinkedIn
    https://www.freetool.dev
    avatar
    Anslu
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 88
    Registrado : 11/01/2018

    [Resolvido]Variavel não definida Empty Re: [Resolvido]Variavel não definida

    Mensagem  Anslu em 29/10/2020, 15:03

    Boa tarde, Marcelo David!

    Desculpa a demora em responder. Muito obrigado! Erra isso mesmo!
    avatar
    Anslu
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 88
    Registrado : 11/01/2018

    [Resolvido]Variavel não definida Empty Re: [Resolvido]Variavel não definida

    Mensagem  Anslu em 29/10/2020, 15:06

    Muita paz! Fica com Deus!

    Marcelo David gosta desta mensagem

    Marcelo David
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3206
    Registrado : 21/04/2011

    [Resolvido]Variavel não definida Empty Re: [Resolvido]Variavel não definida

    Mensagem  Marcelo David em 29/10/2020, 19:48

    Grato pelo retorno, o Fórum agradece.


    .................................................................................
    Marcelo David | [Resolvido]Variavel não definida LinkedIn_Icon.jpg.original LinkedIn
    https://www.freetool.dev

      Data/hora atual: 24/11/2020, 09:53