MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


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.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

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 : Respeito às Regras 100%

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

    [Resolvido]Melhorias Empty [Resolvido]Melhorias

    Mensagem  cicero de assis 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 : Respeito às Regras 100%

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

    [Resolvido]Melhorias Empty Re: [Resolvido]Melhorias

    Mensagem  caiosouza 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


    .................................................................................
    Caio Souza

    Engenheiro de Software
    avatar
    cicero de assis
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Melhorias Empty melhorias

    Mensagem  cicero de assis 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 : Respeito às Regras 100%

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

    [Resolvido]Melhorias Empty Re: [Resolvido]Melhorias

    Mensagem  caiosouza 5/6/2019, 02:21

    Acho que esqueceu de anexar...


    .................................................................................
    Caio Souza

    Engenheiro de Software
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Melhorias Empty Re: [Resolvido]Melhorias

    Mensagem  Alexandre Neves 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
    avatar
    cicero de assis
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Melhorias Empty Re: [Resolvido]Melhorias

    Mensagem  cicero de assis 13/11/2019, 17:28

    resolvido o problema

    Conteúdo patrocinado

    [Resolvido]Melhorias Empty Re: [Resolvido]Melhorias

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 12/5/2021, 22:18