ERRO NA CONSULTA CEP SITE CORREIOS

MILTONSILVA94 06/06/2016 22:40:54
#463128
Citação:

:
Dei uma adaptada. Veja se é isso que você precisa.



JABA, no projeto que me mandou o código é o mesmo que o meu... fiz uma consulta e ao colocar um cep inválido ele fica pensando e não emite nenhuma mensagem de erro e não retorna nada também
JABA 06/06/2016 23:23:25
#463132
Modifiquei algumas coisas. Vê agora
MILTONSILVA94 07/06/2016 19:11:14
#463170
Sensacional JABA....
é isso aí mesmo, só faltava aquele IF kkkkk
Muito obrigado cara! Vou deixar abaixo o código correto caso alguém não queira fazer o download mas sim ver o código:

Private Sub cmdBuscar_Click()

Limpar

If Len(txtCep.Text) < 9 Then
MsgBox [Ô]Campo [ô]Cep[ô] incorreto, verifique antes de fazer a busca![Ô]
txtCep.Text = [Ô][Ô]
txtCep.SetFocus
Exit Sub
End If

MousePointer = 11
Dim xlink As String

Set myXML = New DOMDocument
myXML.resolveExternals = True
myXML.validateOnParse = True
myXML.async = False
xlink = [Ô]http://cep.republicavirtual.com.br/web_cep.php?cep=[Ô] & txtCep & [Ô]&formato=xml[Ô]
myXML.Load (xlink)

Dim valor As String

For i = 0 To myXML.documentElement.childNodes.length - 1

valor = UCase(myXML.documentElement.childNodes(i).Text)

Select Case myXML.documentElement.childNodes(i).nodeName

Case Is = [Ô]logradouro[Ô]
txtRua = valor
Case Is = [Ô]uf[Ô]
txtUf = valor
Case Is = [Ô]cidade[Ô]
txtCidade = valor
Case Is = [Ô]bairro[Ô]
txtBairro = valor
Case Is = [Ô]tipo_endereco[Ô]
txtEndereco = valor
End Select

Next

MousePointer = 0

If txtRua.Text = [Ô][Ô] And txtUf.Text = [Ô][Ô] And txtCidade.Text = [Ô][Ô] And txtBairro.Text = [Ô][Ô] And txtEndereco.Text = [Ô][Ô] Then
MsgBox [Ô]Cep inválido[Ô]
End If

End Sub
Página 3 de 3 [23 registro(s)]
Tópico encerrado , respostas não são mais permitidas