ERRO NA CONSULTA CEP SITE CORREIOS
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
Modifiquei algumas coisas. Vê agora
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
é 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
Tópico encerrado , respostas não são mais permitidas