[Resolvido]Captura de Dados

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.

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

Boa Noite

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

mas teria o valor do serviço 50 reais

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

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

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.

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)

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.

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.

Desculpa postei errado.
Segue novamente alterado.

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

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.

Valeu Muito obrigado pela ajuda.

Obrigado pelo retorno, o fórum agradece.