MaximoAccess

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

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


    Melhorias

    avatar
    cicero de assis
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 02/04/2019

    Melhorias  Empty Melhorias

    Mensagem  cicero de assis em 28/5/2019, 21:00

    ESSE E O COMANDO DE BUSCA CEP AUTOMATICO

    POREM SE CLICAR NO CAMPO DE BUSCA EM BRANCO ELE DA ERRO

    ERRO EM TEMPO DE EXECUCAO 94
    USO DE 'NULL' INVALIDO

    If ConsultaCEP(Me.txtBusca, "erro") <> "then" Then
    Me.txtCep = ConsultaCEP(Me.txtBusca, "cep")
    Me.txtLogradouro = ConsultaCEP(Me.txtBusca, "logradouro")
    Me.txtComplemento = ConsultaCEP(Me.txtBusca, "complemento")
    Me.txtBairro = ConsultaCEP(Me.txtBusca, "bairro")
    Me.txtCidade = ConsultaCEP(Me.txtBusca, "localidade")
    Me.txtUf = ConsultaCEP(Me.txtBusca, "uf")
    Me.txtCodIBge = ConsultaCEP(Me.txtBusca, "ibge")
    Me.txtGia = ConsultaCEP(Me.txtBusca, "gia")
    Else
    MsgBox "Verifique o CEP digitado: " & Me.txtBusca & " Pois o mesmo não foi localizado!!!", vbInformation, "Erro"
    End If
    caiosouza
    caiosouza
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 410
    Registrado : 05/12/2016

    Melhorias  Empty Re: Melhorias

    Mensagem  caiosouza em 28/5/2019, 23:05

    Coloque essa linha antes do seu procedimento:

    Código:
    If Len(Me.txtBusca)<1 Then: Msgbox "Digite um valor no campo de busca", VbExclamation, "Campo em branco": Exit Sub


    .................................................................................
    A persistência leva ao sucesso!
    avatar
    cicero de assis
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 02/04/2019

    Melhorias  Empty melhorias

    Mensagem  cicero de assis em 5/6/2019, 00:37

    boa noite amigo
    nao resolveu meu o problema
    da uma olhada por favor
    segue o formulario
    caiosouza
    caiosouza
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 410
    Registrado : 05/12/2016

    Melhorias  Empty Re: Melhorias

    Mensagem  caiosouza em 5/6/2019, 02:21

    Acho que esqueceu de anexar...


    .................................................................................
    A persistência leva ao sucesso!
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7371
    Registrado : 05/11/2009

    Melhorias  Empty Re: Melhorias

    Mensagem  Alexandre Neves em 9/6/2019, 15:29

    Boa tarde
    Leia e respeite as regras. Proibido escrever em maiúsculas. Adeqúe o seu texto.


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo

    Conteúdo patrocinado

    Melhorias  Empty Re: Melhorias

    Mensagem  Conteúdo patrocinado

      Tópicos similares

      -

      Data/hora atual: 22/9/2019, 01:15