[Resolvido]Dlookup sempre no primeiro registro

Gente, o que eu fiz de errado para esta rotina retornar sempre o primeiro registro independente do nome que eu sugira na caixa de combinação?




Private Sub NomeCliente_BeforeUpdate(Cancel As Integer)

strFiltro = "NomeCliente"

Me!Cliente = DLookup("cliente", "tabclientesconsulta", strFiltro)
Me!Endereço = DLookup("endereço", "tabclientesconsulta", strFiltro)
Me!Telefone = DLookup("Telefone", "tabclientesconsulta", strFiltro)
Me!Contato = DLookup("contato", "tabclientesconsulta", strFiltro)

End Sub

Bom dia, Fabio
1 - Nomeie os controlos de forma normalizada (CxcNomeCliente, ...)
2 - Colocou o código no acontecimento AntesDeActualizar
3 - Não colocou critério de procura no filtro

Bom dia senhores,


Alexandre, começarei agora a fazer as alterações,

Avelino, na verdade sou muito leigo ainda em access, então mesmo quando peço ajuda aqui no fórum não deixo nunca de continuar pesquisando e tentando resolver sozinho, este exemplo eu peguei de um outro post aqui mesmo no fórum, passado a um colega pelo VieiraSoft, tentei adaptar.

Peço aos senhores que mais do que dar um codigo pronto, sempre que possivel claro, indiquem aonde esta o erro para que assim eu aprenda mais fazendo do que so copiando.

Farei as alterações e retorno assim que terminar.

Obrigado por enquanto...

Alexandre,


passo um alterado,
passo dois acredito que ja estava certo
mas nao entendi bem o filtro...


Private Sub CmbNomeCliente_BeforeUpdate(Cancel As Integer)

strFiltro = "CmbNomeCliente = " & Me!CmbNomeCliente

Me!TxtCliente = DLookup("cliente", "tabclientesconsulta", strFiltro)
Me!TxtEndereço = DLookup("endereço", "tabclientesconsulta", strFiltro)
Me!TxtTelefone = DLookup("Telefone", "tabclientesconsulta", strFiltro)
Me!TxtContato = DLookup("contato", "tabclientesconsulta", strFiltro)

End Sub

Avelino,

obrigado pelos links, vou estudar sim...

Nossa, já li o primeiro link, show de bola a tua didatica, facil de entender ate para os mais leigos como eu, estou ate testando aqui a tua dica 9, parabéns pelo trabalho,

adaptei o teu código, mas da uso de Null invalido...

Então, lendo os links que me foram sugeridos, resolvi usar um processo novo que ali aprendi, em um formulário substitui a caixade textoClientes por uma caixadecombinaçãoClientes, onde carrego todos os dados do cliente e no evento antes de atualizar, selecionando um nome ele autocompleta alguns campos do formulário, mas o problema é que quando salvo o registro, na tabela, ao envés do nome do cliente ele salva o id do cliente no campo Cliente.

No aguardo.... Obrigado

Resolvido, obrigado.

Peço gentilmente que alguém indique o erro da função dlookup neste exemplo anexo.


Obrigado

seq = DLookup(seq, "tabelaclientes", "Nome= '" & Me!CboCliente.Column(1) & "'")

Boa tarde Claudio,


mais uma vez obrigado pela sua atenção, mas me explica por favor,

seq = DLookup(seq, "tabelaclientes", "Nome= '" & Me!CboCliente.Column(1) & "'")

Column(1), estou indicando em que coluna do controle cbo esta o filtro, mas voce tambem substituiu as " por ',
' significa todos os dados da coluna Nome? é isto?

Boa tarde Fabio,

Sim, Column(1) é a coluna do controle CboCliente cujo valor será utilizado para filtrar;

Aspas simples são utilizadas para diferenciar das aspas duplas, quando são utilizadas dentro da mesma expressão.