[Resolvido]Preciso de ajuda com o DlookUp no access 2007,help-me!!

Por favor pessoal se alguém poder me ajudar agradeço, já pesquisei bastante mas não encontrei uma solução,eis o problema:

Tenho uma tabela chamada tbCep,com os campos:Cep,Endereço,Bairro,Cidade e Estado.

Tenho um Formulário chamado frmCliente, eu quero que ao digiar o Cep, seja preenchido os campos:Endereço,Bairro,Cidade e Estado da tabela tbCep,automaticamente,já usei o DlooKUP de duas maneiras, mas ele não mostra nada nos campos,e as vezes aparece a mensagem dizendo que o campo cep tem que ter relação com tbCep,sendo que sei que esta relação existe:

1º Jeito: Private Sub Cep_AfterUpdate()

Endereço = DLookup("Endereço", "tbCep", "Cep=Forms!frmCliente!Cep")

Bairro = DLookup("Bairro", "tbCep", "Cep=Forms!frmCliente!Cep")

......(e assim por diante para cada campo
End Sub Não deu Certo não acontece nada,quando saio do campo cep(que sei q existe na tbCep)



2º Jeito: Private Sub Cep_AfterUpdate()

Endereço = DLookup("Endereço", "tbCep", "Cep=" & Cep")

Bairro = DLookup("Bairro", "tbCep", "Cep=" & Cep")

......(e assim por diante para cada campo)

End Sub Também não acontece nada,quando saio do campo cep(que sei q existe na tbCep)



Por favor me deem uma luz aí,blz? Obrigado! Obs.: sou iniciante no vba.

Olá

Tente assim:

Me.txtEndereço = DLookup("Endereço", "tbCep", "CEP='" & Me!Cep & "'")
Me.txtBairro = DLookup("Bairro", "tbCep", "CEP='" & Me!Cep & "'")
Me.txtCidade = DLookup("Cidade", "tbCep", "CEP='" & Me!Cep & "'")
Me.txtEstado = DLookup("Estado", "tbCep", "CEP='" & Me!Cep & "'")

Olá Norbs,Blz?!

Então, valeu pela dica mas não funcionou..
Não sei o que está acontecendo, o estranho é que se eu não colocar no DlookUp os critérios, ele funciona normalmente, é lógico que trazendo os dados de qualquer cep(aleatório), e não preenche todos os campos,vai preenchendo de acordo que os campos recebem o foco,no formulário tem esta configuração de quando os campos recebem o foco deixar o fundo amarelo,será que isto atrapalha em alguma coisa?
Não consigo resolver este problema se tiver uma outra dica,agradeço,Obrigado!


Então eu fiz isto Norbs, inclusive copiei o seu código e só alterei o nome de campo, que no caso é,em vez de Me.txtEndereço, é apenas Me.Endereço,Me.Bairro e assim por diante.

Deve funcionar, sim.

Com os seus nomes de campos no lugar dos grifos:

Me.txtEndereço = DLookup("Endereço", "tbCep", "CEP='" & Me!Cep & "'")
Me.txtBairro = DLookup("Bairro", "tbCep", "CEP='" & Me!Cep & "'")
Me.txtCidade = DLookup("Cidade", "tbCep", "CEP='" & Me!Cep & "'")
Me.txtEstado = DLookup("Estado", "tbCep", "CEP='" & Me!Cep & "'")

Sim Norbs,são tipo texto mas com máscara, e estão iguais tanto na tabela quanto no formulário.

tipo:02020-000 na tabela também 02020-000,

Bem, eu uso máscara no form, mas não na tabela.

Se o bd é dividido, as tabelas são vinculadas?

Não não vinculei as tabelas, e o vb não é dividido,não sei o que é isso mas não fiz nenhuma divisão.

Se você tem as tabelas, formulários, consultas, macros e módulos (todos os objetos de um banco de dados Access) em um único arquivo, então seu BD não é dividido.
Mas se as tabelas estiverem em um arquivo separado, então seu BD é dividido em BackEnd (arquivo só com as tabelas) e FrontEnd (arquivo com os demais objetos).

No caso de se trabalhar com BD dividido, há duas opções:

1 - Com tabelas vinculadas ao FrontEnd
2 - Com tabelas desvinculadas

O código que passei só não funcionaria no caso de tabelas desvinculadas.

Seguinte meu caro Norbs,
Eu não sei como mas havia sim, relações entre as tabelas,
Deletei elas, tirei a máscara das tabelas e deixei somente no formulário,agora aparece a seguinte mensagem:

" O Campo é muito pequeno para aceitar a quantidades de dados que você tentou adcionar",aumentei as linhas do form mas o erro persiste,eu acho que ele está tentando jogar tudo num mexmo campo.

Amigo, me entendeu mal:
Não me referi ao relacionamento entre as tabelas, e sim a vinculação entre banco de dados dividido.

Cole aqui exatamente o código que esta usando.

Eis o Código:

Private Sub Cep_AfterUpdate()
Me.Endereço = DLookup("Endereço", "tbCep", "CEP='" & Me!CEP & "'")
Me.Bairro = DLookup("Bairro", "tbCep", "CEP='" & Me!CEP & "'")
Me.Cidade = DLookup("Cidade", "tbCep", "CEP='" & Me!CEP & "'")
Me.UF = DLookup("Estado", "tbCep", "CEP='" & Me!CEP & "'")
End Sub

Private Sub BtnSalvar_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
btnSalvar.ForeColor = vbRed
btnSalvar.FontBold = True
End Sub

Private Sub Detalhe_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
btnSalvar.ForeColor = vbBlack
btnSalvar.FontBold = True
End Sub
Private Sub btnSalvar_Click()
If IsNull(Me.Endereço) Or Me.Endereço.Value = "" Then
MsgBox ("Campo ""Endereço"" Precisa ser preenchido")
Me.Endereço.BackColor = 2552550
Me.Endereço.SetFocus
Exit Sub
End If
If IsNull(Me.Bairro) Or Me.Bairro.Value = "" Then
MsgBox ("Campo ""Bairro"" Precisa ser preenchido")
Me.Bairro.BackColor = 2552550
Me.Bairro.SetFocus
Exit Sub
End If
If IsNull(Me.Cidade) Or Me.Cidade.Value = "" Then
MsgBox ("Campo ""Cidade"" Precisa ser preenchido")
Me.Cidade.BackColor = 2552550
Me.Cidade.SetFocus
Exit Sub
End If
If IsNull(Me.UF) Or Me.Cidade.Value = "" Then
MsgBox ("Campo ""UF"" Precisa ser preenchido")
Me.UF.BackColor = 2552550
Me.UF.SetFocus
Exit Sub
End If
End Sub

Verifique a propriedade Nome dos campos grifados e veja se bate com os nomes grifados.

Private Sub Cep_AfterUpdate()
Me.Endereço = DLookup("Endereço", "tbCep", "CEP='" & Me.Cep & "'")
Me.Bairro = DLookup("Bairro", "tbCep", "CEP='" & Me.Cep & "'")
Me.Cidade = DLookup("Cidade", "tbCep", "CEP='" & Me.Cep & "'")
Me.UF = DLookup("Estado", "tbCep", "CEP='" & Me.Cep & "'")
End Sub

Então na folha de propriedades do formulário, o campo endereço na guia outra está como nome:Endereço,
o campo bairro também na guia outra está com o nome:Bairro,etc.
Só as legendas de folha de dados que estão em branco.
Também mudei o final como vc falou,(Me!Cep...P/ Me.Cep...)trocando a ! por ponto, mas ainda continua a mensagem:


"O campo é muito pequeno para aceitar a quantidade de dados que você tentou adicionar.Tente inserir ou colar menos dados."

Beleza, muito Obrigado por tudo! Havendo uma solução posto aqui!

Amigo, poste aí parte do bd, talves tendo ele em mãos, possamos pensar melhor...

Marcelo se vc puder ajudar agradeço sobre o código, tem tudo o que tentamos fazer até agora aí em cima,
e Norbs tenho novidade,a mensagem:"O campo é muito pequeno..." não aparece mais,referia-se ao campo CEP do Formulário,não dos campos que vinha depois do Cep_AfterUpdate(), ele estava configurado com 8 dígitos.
Bom,a mensagem sumiu mas os campos não são preenchidos

Muito estranho, o pior é que se eu tirar da expressão DlookUp, o critério(que é justamente o que devo digitar no campo CEP do formulário),ele preenche todos os campos só que aleatoriamente,(não vai ter nada a ver com o CEP digitado no formulário)

Será q o ç do Mi.Endereço não está atrapalhando?

Neste tópico o colega resolveu com ç

http://maximoaccess.forumeiros.com/t5773-resolvidoautopreenchimento-do-endereco-pelo-cep

É você tem razão Norbs, o cedilha não está atrapalhando, segui o seu conselho procurei fazer o código conforme o link...and Nada.
Porém vc não vai acreditar, como vc havia me pedido antes tirei as máscaras das tabelas, só que tinha deixado a máscara no formulário.
Assim que tirei a Máscara do formulário, FUNFOU!!!!

Detalhe depois para facilitar para o utilizador, coloquei a máscara novamente(somente no formulário,como antes), porém com uma diferença na hora de escolher a máscara ficou sem o traço:999999,deu certo,engraçado que no formulário aparece com traço do mesmo jeito, mas sem erro no código..UFa!

Muito Obrigado! Ainda bem que vocês tem paciência! Abraço!