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

    [Resolvido]Melhorias

    avatar
    cicero de assis
    Novato
    Novato

    Respeito às Regras 100%

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

    [Resolvido]Melhorias Empty [Resolvido]Melhorias

    Mensagem  cicero de assis em 28/5/2019, 17: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 : 417
    Registrado : 05/12/2016

    [Resolvido]Melhorias Empty Re: [Resolvido]Melhorias

    Mensagem  caiosouza em 28/5/2019, 19: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 : 29
    Registrado : 02/04/2019

    [Resolvido]Melhorias Empty melhorias

    Mensagem  cicero de assis em 4/6/2019, 20: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 : 417
    Registrado : 05/12/2016

    [Resolvido]Melhorias Empty Re: [Resolvido]Melhorias

    Mensagem  caiosouza em 4/6/2019, 22: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 : 7694
    Registrado : 05/11/2009

    [Resolvido]Melhorias Empty Re: [Resolvido]Melhorias

    Mensagem  Alexandre Neves em 9/6/2019, 11: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
    avatar
    cicero de assis
    Novato
    Novato

    Respeito às Regras 100%

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

    [Resolvido]Melhorias Empty Re: [Resolvido]Melhorias

    Mensagem  cicero de assis em 13/11/2019, 14:28

    resolvido o problema

      Data/hora atual: 23/9/2020, 13:20