[Resolvido]DlookUp funciona em campo calculado de relatório

Pessoal,

Fiz um BD e não consigo fazer a função Dlookup corretamente. Ela só tras o primeiro item na Tabela.

Tenho uma tabela com o nome TBL_MOVIMENTPALETE
com os seguintes campos
CODFORM
CLIENTE
ENDEREÇO
BAIRRO
MUNICIPIO
ESTADO
CEP
LOCAL DE ENTREGA
CNPJ
INSCRICAO ESTADUAL
e outros.....

O campo Cliente é uma caixa de combinação ligada a tabela de clientes. Fiz a função da seguinte forma.:
Private Sub CLIENTE_AfterUpdate()
CNPJ = DLookup("[CNPJ]", "[TBL_CLIENTES]", "CLIENTE=" & "Cliente")
Endereco = DLookup("[ENDERECO]", "[TBL_CLIENTES]", "CLIENTE=" & "Cliente")
Bairro = DLookup("[BAIRRO]", "[TBL_CLIENTES]", "CLIENTE=" & "Cliente")
Municipio = DLookup("[MUNICIPIO]", "[TBL_CLIENTES]", "CLIENTE=" & "Cliente")
Estado = DLookup("[ESTADO]", "[TBL_CLIENTES]", "CLIENTE=" & "Cliente")
CEP = DLookup("[CEP]", "[TBL_CLIENTES]", "CLIENTE=" & "Cliente")
InscricaoEstadual = DLookup("INSCRICAOESTADUAL", "[TBL_CLIENTES]", "CLIENTE=" & "CLIENTE")
LocaldeEntrega = DLookup("LOCALDEENTREGA", "[TBL_CLIENTES]", "CLIENTE=" & "CLIENTE")
End Sub

Mas ele só tras as informações do primeiro registro da tabela.... Onde está o erro na fórmula?

Olá Vitor

O Dlookup() somente retornará um registro conforme o critério, de uma tabela.

Para pesquisar registros na tabela via código precisa fazer um loop ou navegar entre os registros.
Para isso, utilize o método Seek

Abraços

Noob

Avelino,


Muito obrigado funcionou perfeitamente. Tenho algumas outras dúvidas, vou contar com o seu apoio e de nossos colegas do fórum para me ajudar a melhorar na utilização do access...

Abraço.

Pessoal,

Mais uma dúvida...

Neste programinha vou controlar também o estoque Mínimo e Máximo de cada produto.

Como posso configurá-lo para avisar quando determinado estoque a medida que for entrado e expedido está em quantidade mínima ou máxima, usando o função SE no caso que é a que conheço ou outra forma que possam me indicar....

Tenho uma tabela de cadastro de produto e outra tabela para as movimentações (Entradas e Saídas) além de devoluções e tal......

Pessoal,

Tenho um relatório com vários campos ligado à uma consulta. Neste relatório é feita a apuração de pontuação de motoristas. O resultado da pontuação é que vai definir quanto em dinheiro ele vai receber. Por exemplo, se eu fizer 100 pontos recebo R$ 50,00, se eu fizer 101 pontos recebo R$ 50,50....

Existe uma tabela de progressão dos valores que se chama: TBL_VALORACAOPONTUACAO
Onde a idéia é que, no relatório quando o resultado final por apurado o método Dlookup busque na tabela acima o valor (R$) correspondente à pontuação.

O campo onde aloquei o evento é calculado.... É um campo que soma o valor total de pontos do relatório, mas não funciona de jeito nenhum.

Private Sub SomaPontos_Click()
Valor = DLookup("[Valor]", "[TBL_valoracaopontuacao]", "SomaPontos='" & Me!SomaPontos & "'")
End Sub

O nome do campo que apura os pontos no relatório é : SomaPontos
O nome do campo que contém a informação do ponto na TBL é: SomaPontos
O campo no relatório que receberia o valor em R$ se chama: Valor
O campo na TBL que contém o valor correspondente a pontuação se chama: Valor

Help.................

Boa noite,
Se se trata de dúvida diferente, crie novo tema.
Se é continuação da dúvida anterior, o título não deve ser alterado

Alexandre,

O tempo que você perdeu escrevendo isso, se soubesse teria contribuído.

De qualquer forma, muitíssimo obrigado pela informação.

Respeite para ser respeitado. Podia-lhe dar a mesma resposta mas não desço o nível
Aguardo resposta e, caso a dúvida do tema esteja resolvida, marque o "Resolvido"
Aguardamos,

Dispenso sua ajuda.

Um pitaco....
Vitor3010

O Alexandre está correto na observação dele e como moderador do fórum há de ser respeitado.

Acredito eu Vitor3010, que você não leu as regras do nosso fórum que são..

REGRAS DO FÓRUM

1. Tenha paciência com quem coloca aqui as suas duvidas.
2. Clareza nos títulos dos tópicos e duvidas, evite a linguagem MSN.
3. Não colocar diversas vezes a mesma dúvida.
4. Explicar detalhadamente o problema e informar a versão do seu Office + Sistema Operativo.
5. Retorne sempre se deu certo, esse retorno é muito importante.
6. Respeite toda a equipe Staff e demais membros deste fórum.
7. Use sempre o botão Busca, sempre que tiver uma dúvida e antes de abrir tópicos.
8. Não usar palavras como "Urgente". O fórum é livre e ninguém é obrigado a responder com urgência.
9. A publicidade é proíbida e só pode ser feita pelo Administrador ou depois de aprovada pelo Administrador.
10. Se o seu tópico não for respondido, tem o direito de fazer um Up ao final de 24horas!
11. A colocação de Códigos ou Exemplos, devem constar sempre os créditos de quem o elaborou.
12. Fale, não GRITE! Só letras Maiúsculas, na Internet é o mesmo que gritar!
13. É proibido tirar duvidas nas Salas de Repositório, devem abrir um novo tópico nas salas de duvidas, relacionando o Exemplo em causa.

Procuramos manter aqui, toda a equipe de integrantes desse fórum, um bom nível de :

a- escrita ( escrever corretamente evitando palavras abreviadas ou linguagens de MSN, Skype e Facebook).
b- educação ( agimos, pensamos e falamos como se a outra pessoa estive ao nosso lado).
c- clareza ( procuramos nos expressar da melhor forma, para sermos melhores entendidos).

Bom Vitor3010, se quiser ficar bravo comigo, pode ficar, mas procuramos orientar as pessoas que aqui se inscrevem para manter sempre um bom nível em tudo. Por isso que o MáximoAccess é disparado o melhor fórum de Access em língua Portuguesa/Brasileira.


Abraços.

Boa tarde, vitor3010
A sua reputação desceu em 50%.
Esperamos que reflita sobre o seu comportamento no fórum que tem muitos membros que se respeitam mutuamente e não permitimos faltas de respeito, muito menos premeditadas.