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]Captura de Dados

    DEISON
    DEISON
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 222
    Registrado : 04/07/2014

    [Resolvido]Captura de Dados Empty [Resolvido]Captura de Dados

    Mensagem  DEISON 9/9/2015, 19:52

    Boa Tarde

    Estou desenvolvendo um sistema e estou precisando de uma ajuda.

    Estou precisando que ao digitar o CEP em qualquer um dos formulários de CADASTRO  o sistema me retorno com o preenchimento dos outros campos, caso não tenha o CEP cadastrado eu criei um formulário para cadastrar os CEP.
    Daí ao sair deste Formulário de Cadastro de CEP estou precisando que seja capturado automaticamente o CEP cadastrado e me retorne a tela de cadastro para que eu possa continuar a efetuar o cadastro.

    Eu consegui um exemplo aqui, porém não estou conseguindo extrair as informações que preciso.

    Segue o meu BD para analise.

    Desde já agradeço pela ajuda e compreensão de todos.
    Cool Cool Cool Cool

    Segue meu BD
    Clique em Planetário para baixar e analisar o BD.
    avatar
    LUCIANO19731973
    Novato
    Novato

    Respeito às regras : Respeito às Regras 50%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 17
    Registrado : 06/12/2014

    [Resolvido]Captura de Dados Empty Cadastro de CEP

    Mensagem  LUCIANO19731973 9/9/2015, 22:14

    Coloque no evento após atualizar (Campo CEP)
    a seguinte função

    Vamos supor que você queira completar o campo CIDADE
    e tenha a tabela CIDADES, com os campo CEP, CIDADE

    me.CAMPOCIDADE = DLast("[CIDADE]","CIDADES", "[CEP] = " & [CEP])


    é isto
    observe que
    nome do campo (cidade) entre aspas e colches

    nome da tabela CIDADES somente entre aspas
    DEISON
    DEISON
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 222
    Registrado : 04/07/2014

    [Resolvido]Captura de Dados Empty Captura de Dados

    Mensagem  DEISON 10/9/2015, 04:03

    Boa Noite

    Eu não consegui.
    Não sei o que fiz de errado.
    avatar
    LUCIANO19731973
    Novato
    Novato

    Respeito às regras : Respeito às Regras 50%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 17
    Registrado : 06/12/2014

    [Resolvido]Captura de Dados Empty Posso montar para você

    Mensagem  LUCIANO19731973 10/9/2015, 14:27

    mas teria o valor do serviço 50 reais
    DEISON
    DEISON
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 222
    Registrado : 04/07/2014

    [Resolvido]Captura de Dados Empty Captura de Dados

    Mensagem  DEISON 10/9/2015, 15:28

    O Forum é para venda de serviços ou ajuda de dúvidas?
    Gilberto Rocha
    Gilberto Rocha
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1028
    Registrado : 21/01/2010

    [Resolvido]Captura de Dados Empty Re: [Resolvido]Captura de Dados

    Mensagem  Gilberto Rocha 10/9/2015, 15:38

    O forum é para ajuda com dúvidas! Nada é cobrado! Prestação de serviço a parte é outra coisa.


    .................................................................................
    Resolveu? Clique em resolvido!
    Sistema para administração de Igrejas e Ministérios Evangélicos Congrega Fácil Online.
    Seja um representante em sua cidade!
    Código de cliente para testes: congregafacil

    SisFAT Cursos Online
    www.congregafacil.com

    Analista de BI SR
    DEISON
    DEISON
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 222
    Registrado : 04/07/2014

    [Resolvido]Captura de Dados Empty Captura de Dados

    Mensagem  DEISON 10/9/2015, 15:42

    Pois é exatamente isto que gostaria de saber, pois se não for para dar uma opinião ou ajuda, nem precisa oferecer o seu serviço a menos que a pessoa peça.
    Pelo menos eu penso assim.
    Dilson
    Dilson
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1743
    Registrado : 11/11/2009

    [Resolvido]Captura de Dados Empty Re: [Resolvido]Captura de Dados

    Mensagem  Dilson 10/9/2015, 16:01

    Olá LUCIANO19731973,

    O MaximoAccess é um forum de Ms Access para ajuda e estudo. A ajuda dada não pode haver cobranças de honorários.

    Acabei de analisar e perceber que o seu histórico de tópicos não atende esse principio, pelo que irei retirar todos do ar.

    Se quiser ajudar e ser ajudado, respeite as regras e os princípios do fórum.

    Cumprimentos.
    DEISON
    DEISON
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 222
    Registrado : 04/07/2014

    [Resolvido]Captura de Dados Empty Captura de Dados

    Mensagem  DEISON 10/9/2015, 18:21

    Boa Tarde

    Eu consegui resolve parte do meu problema com o seguinte código.

    Código:
    Private Sub TxtCep_AfterUpdate()
    If IsNull(Me.TxtCep) Or Me.TxtCep.Value = "" Then
    Exit Sub
    Else
    Me.TxtCep = TxtCep.Column(0)
    Me.TxtEndereco = TxtCep.Column(1)
    Me.TxtBairro = TxtCep.Column(2)
    Me.TxtCidade = TxtCep.Column(3)
    Me.TxtUF = TxtCep.Column(4)

    End If
    End Sub

    Porém ainda estou tendo problemas.
    É o Seguinte

    Quando eu digito um CEP da TxtCep e o mesmo é encontrado ele me retorna com todos os dados existentes no sistema. Até ai esta normal.
    Porém quando não existe o CEP eu gostaria que o sistema me informa-se o seguinte.
    CEP não cadastrado! Deseja cadastra-lo agora "sim" ou "não"?
    Se a resposta for sim ele abre o frmEndereco no Registro novo porém já com o CEP não cadastrado inserido e eu coloco apenas ENDERECO, BAIRRO, CIDADE, UF.
    após feito isto eu mando salvar, e ao fechar o frmEndereco ele já aparece no formulário que eu estava antes.

    Eu vi uns códigos aqui porém eu não consegui usar.

    Estou enviando também o meu BD para ver se tem alguém que possa me ajudar.

    Desde já agradeço a todos.

    Segue meu BD Planetário (2)
    Cláudio Machado
    Cláudio Machado
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1621
    Registrado : 17/03/2011

    [Resolvido]Captura de Dados Empty Re: [Resolvido]Captura de Dados

    Mensagem  Cláudio Machado 10/9/2015, 18:38

    Abra seu form FrmEndereco vá em propriedades e na opção Ao Carregar coloque este código:

    Código:

    If Not IsNull(Me.OpenArgs) Then
            Me!CEP = UCase(Me.OpenArgs) 'CEP é o nome da caixa onde você vai digitar o cep do seu for FrmEnderecos
        End If

    Feche este form FrmEndereco

    Abra o form que você usa para buscar (onde está o erro) e coloque este código no camp txtCEP


    Código:


    Private Sub TxtCep_AfterUpdate()
    If IsNull(Me.TxtCep) Or Me.TxtCep.Value = "" Then

    If MsgBox("CEP não Cadastrado :  '" & NewData & "'" & vbCrLf & "Deseja Cadastrar?", 32 + vbYesNo, "Informando") = 6 Then

      DoCmd.OpenForm "FrmEnderecos", , , , acFormAdd, acDialog, NewData

      ' A execução deste código fica interrompida aqui até o fechamento do formulário FrmEnderecos.

            Response = acDataErrAdded

        Else

            Response = acDataErrContinue

        End If

    Else
    Me.TxtCep = TxtCep.Column(0)
    Me.TxtEndereco = TxtCep.Column(1)
    Me.TxtBairro = TxtCep.Column(2)
    Me.TxtCidade = TxtCep.Column(3)
    Me.TxtUF = TxtCep.Column(4)

    End If
    End Sub


    Quando fechar o FrmEnderecos, já vai estar cadastrado.

    Abraço.


    .................................................................................
    " Nunca cruze os braços diante de qualquer problema ou dificuldade, pois o maior homem do mundo Jesus,  morreu de braços abertos."

    Agradeça e feche o tópico clicando no botão Resolvido. Se não sabe como, veja  AQUI.
    Não esqueça de clicar no Joinha [Resolvido]Captura de Dados 90dssg para agradecer a dica que solucionou seu problema.
    DEISON
    DEISON
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 222
    Registrado : 04/07/2014

    [Resolvido]Captura de Dados Empty Captura de Dados

    Mensagem  DEISON 10/9/2015, 19:24

    Não Esta dando certo.

    quando eu digito o CEP que não existe cadastrado ele simplesmente abre a aba para escolher um CEP já cadastrado, não esta aparecendo a mensagem e tão pouco deixa eu usar a função editar.

    E quando clico em salvar da erro em "ValidaPreenchimento" e se clico em fechar não acontece o esperado. Shocked Shocked Shocked
    Cláudio Machado
    Cláudio Machado
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1621
    Registrado : 17/03/2011

    [Resolvido]Captura de Dados Empty Re: [Resolvido]Captura de Dados

    Mensagem  Cláudio Machado 10/9/2015, 21:12

    Desculpa postei errado.
    Segue novamente alterado.

    https://www.dropbox.com/s/y46sp1kz3s1d1yw/PLANETARIO_II.zip?dl=0


    .................................................................................
    " Nunca cruze os braços diante de qualquer problema ou dificuldade, pois o maior homem do mundo Jesus,  morreu de braços abertos."

    Agradeça e feche o tópico clicando no botão Resolvido. Se não sabe como, veja  AQUI.
    Não esqueça de clicar no Joinha [Resolvido]Captura de Dados 90dssg para agradecer a dica que solucionou seu problema.
    Cláudio Machado
    Cláudio Machado
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1621
    Registrado : 17/03/2011

    [Resolvido]Captura de Dados Empty Re: [Resolvido]Captura de Dados

    Mensagem  Cláudio Machado 10/9/2015, 21:16

    O certo é isso.

    Seu código após atualizar:

    Código:

    Private Sub TxtCep_AfterUpdate()
    If IsNull(Me.TxtCep) Or Me.TxtCep.Value = "" Then
    Else
    Me.TxtCep = TxtCep.Column(0)
    Me.TxtEndereco = TxtCep.Column(1)
    Me.TxtBairro = TxtCep.Column(2)
    Me.TxtCidade = TxtCep.Column(3)
    Me.TxtUF = TxtCep.Column(4)

    End If
    End Sub


    Meu código na propriedade Se não estiver na lista do controle TxtCep no form frmEmpresa

    Código:

    If MsgBox("CEP não Cadastrado :  '" & NewData & "'" & vbCrLf & "Deseja Cadastrar?", 32 + vbYesNo, "Informando") = 6 Then

       DoCmd.OpenForm "FrmCep", , , , acFormAdd, acDialog, NewData

       ' A execução deste código fica interrompida aqui até o fechamento do formulário FrmEnderecos.

            Response = acDataErrAdded

        Else

            Response = acDataErrContinue

        End If


    Este é o certo.


    .................................................................................
    " Nunca cruze os braços diante de qualquer problema ou dificuldade, pois o maior homem do mundo Jesus,  morreu de braços abertos."

    Agradeça e feche o tópico clicando no botão Resolvido. Se não sabe como, veja  AQUI.
    Não esqueça de clicar no Joinha [Resolvido]Captura de Dados 90dssg para agradecer a dica que solucionou seu problema.
    DEISON
    DEISON
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 222
    Registrado : 04/07/2014

    [Resolvido]Captura de Dados Empty Captura de Dados

    Mensagem  DEISON 15/9/2015, 04:41

    Valeu Muito obrigado pela ajuda.
    Cláudio Machado
    Cláudio Machado
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1621
    Registrado : 17/03/2011

    [Resolvido]Captura de Dados Empty Re: [Resolvido]Captura de Dados

    Mensagem  Cláudio Machado 15/9/2015, 13:49

    Obrigado pelo retorno, o fórum agradece.


    .................................................................................
    " Nunca cruze os braços diante de qualquer problema ou dificuldade, pois o maior homem do mundo Jesus,  morreu de braços abertos."

    Agradeça e feche o tópico clicando no botão Resolvido. Se não sabe como, veja  AQUI.
    Não esqueça de clicar no Joinha [Resolvido]Captura de Dados 90dssg para agradecer a dica que solucionou seu problema.

      Data/hora atual: 17/4/2021, 18:05