MaximoAccess

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

Obrigado

Administração do MaximoAccess


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.

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

    CEP onLine (erros)

    avatar
    joao batista
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 58
    Registrado : 17/11/2011

    CEP onLine (erros) Empty CEP onLine (erros)

    Mensagem  joao batista 8/8/2012, 16:23

    Baixei o exemplo do Criquio (CEP onLine), como o exemplo é em access 2003, fiz a conversão para o 2007.
    Porem, quando digito o CEP, o aplicativo sempre me dá a mensagem: "O CEP "xxxxxxx" não existe na base de dados".

    Estou fazendo a pesquisa do CEP 86065250 (Rua Serra Paranapiacaba, Londrina - PR.

    Me auxiliem, se fiz algo errado, ou se falta algo, pois todos os CEPs que digito, dá sempre a mesma mensagem.
    Anexos
    CEP onLine (erros) AttachmentCEP_onLine.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (21 Kb) Baixado 268 vez(es)
    flasbc
    flasbc
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 195
    Registrado : 14/04/2012

    CEP onLine (erros) Empty Re: CEP onLine (erros)

    Mensagem  flasbc 9/8/2012, 01:11

    Oi boa noite!
    Deve ser problema na base dos correios porque aqui sempre funcionou normalmente e agora parou também.
    flasbc
    flasbc
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 195
    Registrado : 14/04/2012

    CEP onLine (erros) Empty Re: CEP onLine (erros)

    Mensagem  flasbc 12/8/2012, 01:54

    já voltou a funcionar, é só testar, não esqueça que tem que ta conectado
    avatar
    Kaue Gaston Morales
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1
    Registrado : 07/07/2017

    CEP onLine (erros) Empty Re: CEP onLine (erros)

    Mensagem  Kaue Gaston Morales 10/7/2017, 15:45

    Como que eu faço para que as informações geradas por esse formulário para componham uma tabela?
    avatar
    duda_limabr
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 7
    Registrado : 08/09/2011

    CEP onLine (erros) Empty ajuda com o erro "subscrito fora do intervalo'' quando o CEP não existe.

    Mensagem  duda_limabr 2/2/2021, 03:46

    ola boa noite! sou novo no access, acabo de iniciar o curso de vba, mas ainda vai demorar pra eu me virar sozinho. sou curioso e costumo montar sistemas, verdadeiros "Frankenstein's".

     estou precisando de uma pequena ajuda com um erro na busca do CEP. quando o CEP não existe ou foi digitado errado, ele
    retorna um erro e entra em modo depuração. a mensagem é "subscrito fora do intervalo" e "erro em tempo de execução 9''.

    só falta resolver esse detalhe para ficar nota 10!  

    este é o código:



    Option Compare Database
    Private Sub VerificarCEP()
    '
    ' Exemplo de utilização
    '

    Dim resultado
    Dim Texto As String
    resultado = busca_cep(Me.CEP)

    Dim i As Integer
    Dim X As String
    For i = 0 To 14

    X = X & Chr(13) & resultado(i)
    Next

    Select Case resultado(2)

    Case "2"
    Me.Cidade = resultado(Cool
    Me.uf = resultado(5)

    Case "1"
    Me.End = resultado(12) & " " & resultado(14)
    Me.Bairro = resultado(10)
    Me.Cidade = resultado(Cool
    Me.uf = resultado(6)
    Case Else

       MsgBox Me.CEP & Me.CEP & " não existe na base de dados, verifique...", vbCritical, "Atenção"
       Me.Undo


    Me.CEP = Null
    Me.End = Null
    Me.Bairro = Null
    Me.Cidade = Null
    Me.uf = Null

    End Select

    End Sub

    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)         ' --------------------------------------------- (aqui fica marcado em amarelo logo que editor abre)

    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

    Private Sub btnEstrutura_Click()
    DoCmd.OpenForm "clientes1", acDesign
    End Sub

    Private Sub btnFechar_Click()
    Application.Quit
    End Sub

    Private Sub CEP_AfterUpdate()

    Call VerificarCEP

    If Not IsNull(Me.End) And Not IsNull(Me.Bairro) And Not IsNull(Me.Cidade) Then

    Me.End = Replace(Me.End, "%E1", "á")
    Me.End = Replace(Me.End, "%E2", "â")
    Me.End = Replace(Me.End, "%E3", "ã")
    Me.End = Replace(Me.End, "%E7", "ç")
    Me.End = Replace(Me.End, "%E9", "é")
    Me.End = Replace(Me.End, "%EA", "ê")
    Me.End = Replace(Me.End, "%ED", "í")
    Me.End = Replace(Me.End, "%F3", "ó")
    Me.End = Replace(Me.End, "%F4", "ô")
    Me.End = Replace(Me.End, "%F5", "õ")
    Me.End = Replace(Me.End, "%FA", "ú")

    Me.Bairro = Replace(Me.Bairro, "%E1", "á")
    Me.Bairro = Replace(Me.Bairro, "%E2", "â")
    Me.Bairro = Replace(Me.Bairro, "%E3", "ã")
    Me.Bairro = Replace(Me.Bairro, "%E7", "ç")
    Me.Bairro = Replace(Me.Bairro, "%E9", "é")
    Me.Bairro = Replace(Me.Bairro, "%EA", "ê")
    Me.Bairro = Replace(Me.Bairro, "%ED", "í")
    Me.Bairro = Replace(Me.Bairro, "%F3", "ó")
    Me.Bairro = Replace(Me.Bairro, "%F4", "ô")
    Me.Bairro = Replace(Me.Bairro, "%F5", "õ")
    Me.Bairro = Replace(Me.Bairro, "%FA", "ú")

    Me.Cidade = Replace(Me.Cidade, "%E1", "á")
    Me.Cidade = Replace(Me.Cidade, "%E2", "â")
    Me.Cidade = Replace(Me.Cidade, "%E3", "ã")
    Me.Cidade = Replace(Me.Cidade, "%E7", "ç")
    Me.Cidade = Replace(Me.Cidade, "%E9", "é")
    Me.Cidade = Replace(Me.Cidade, "%EA", "ê")
    Me.Cidade = Replace(Me.Cidade, "%ED", "í")
    Me.Cidade = Replace(Me.Cidade, "%F3", "ó")
    Me.Cidade = Replace(Me.Cidade, "%F4", "ô")
    Me.Cidade = Replace(Me.Cidade, "%F5", "õ")
    Me.Cidade = Replace(Me.Cidade, "%FA", "ú")

    End If

    End Sub

    agradeço quem puder resolver! obrigado!
    Silvio
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4718
    Registrado : 20/04/2011

    CEP onLine (erros) Empty Re: CEP onLine (erros)

    Mensagem  Silvio 2/2/2021, 11:20

    boas...apenas um pitaco.


    O CEP tem que estar separado por pontos, sem os pontos ele deu erro de execução aqui para mim.

    Ex: XX.XXX.XXX

    Creio que com a mascara de entrada, resolve seu problema.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    avatar
    duda_limabr
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 7
    Registrado : 08/09/2011

    CEP onLine (erros) Empty CEP onLine (erros)

    Mensagem  duda_limabr 2/2/2021, 14:21

    ola Silvio!  Obrigado por responder!  

    ainda não deu certo. tentei mascara na tabela, no formulário, tentei  digitar com os
    pontos e traço, sem traço, só pontos... e nada, sempre retorna o erro. testei no original q baixei aqui e
    todos os accdb CEP que uso pra testes estão com o mesmo comportamento.

    eu uso o office 2007, minha maquina é 32. wim 7.

    bom, estou usando assim, mas em breve terei uma pessoa me ajudando e tenho medo que esse faça algo errado...
    se puder desativar essa rotina de abrir essa janela de erro, sei que não resolve, mas vai evitar danos piores.

    obrigado até aqui!
    avatar
    duda_limabr
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 7
    Registrado : 08/09/2011

    CEP onLine (erros) Empty CEP onLine (erros)

    Mensagem  duda_limabr 2/2/2021, 15:47

    silvio, olá mais uma vez!

    acho que consegui resolver usando uma dica do crysostomo que vi aqui:

    https://www.maximoaccess.com/t38122-resolvidoo-sistema-entrar-em-deputr


    coloquei antes da linha q aparece o erro. funcionou muito bem!

    arr_resultado = Split(xmlhttp_resultado, "&")

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

    On Error Resume Next               '------------------------------------------------( coloquei aqui onde apresentava o erro )

    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





       Bom, de toda forma obrigado pela ajuda!
    espero que possa ajudar alguém com o mesmo problema!

    até a proxima!
    Anexos
    CEP onLine (erros) AttachmentCEP_online_Editado.zip
    arquivo modificado
    Você não tem permissão para fazer download dos arquivos anexados.
    (23 Kb) Baixado 3 vez(es)
    Silvio
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4718
    Registrado : 20/04/2011

    CEP onLine (erros) Empty Re: CEP onLine (erros)

    Mensagem  Silvio 2/2/2021, 16:14

    Boas...

    No meu aqui com Win10 64Bits, Office 2010 32Bits deu somente aquele erro, mas bastou colocar a mascara de entrada e foi tudo certinho.

    Melhor ainda que resolveu.

    O fórum agradece o retorno.



    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."

    duda_limabr gosta desta mensagem


      Data/hora atual: 4/3/2021, 06:19