[Resolvido]pesquisa de CEP

Prezado JPaulo;

Baixei um exemplo de BD com consulta de CEP on line, e fiz algumas adaptaçoes de acordo com os campos de meu BD, mas as alterações foram pouquissimas...Ja pesquisei cada linha em busca de algum erro de nome de campo e ta tudo ok. So que no codigo abaixo tenho a mensagem de erro de variavel indefinida logo na primeira linha

Código:


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


Não sei se tem a ver com a minha versao do Access que é 2010, e as referencias que tem no seu modelo estao marcadas no meu tambem...Poderia me iluminar com mais esse esclarecimento?

Um abraço e obrigado

Leonardo

Boa tarde,
Não definiu url. Defina-a Dim url as string

Ih rapaz, fiz isso e deu a mesma mensagem...mas dessa vez apontou pra linha seguinte. Tambem declarei o objeto da segunda linha e a mensagem veio com a declaração de que o objeto nao foi encontrado.

Então, defina as varáveis que não definiu

Fiz de acordo com as mensagens que apareciam e ele passou a dizer q o objeto nao foi encontrado. O que acho estranho é que no modelo do JPaulo nao foram declaradas essas variaveis e rodou perfeitamente. Olhei as referencias e estao batendo com as do BD exemplo. Estou pensando se não tem a ver com a versão do Office...o meu é 2010, e o modelo parece ser 2003. O problema é que nao tenho como converter meu BD pois ele perde algumas funcionalidades...

Qual é o tópico de origem do exemplo?

http://maximoaccess.forumeiros.com/t1638-cep-online-e-offline?highlight=cep+online