MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Valor da tabela1 menor que valor da Tabela 2 - Usando o Dlookup

    Compartilhe

    gutembergue
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12
    Registrado : 11/01/2018

    [Resolvido]Valor da tabela1 menor que valor da Tabela 2 - Usando o Dlookup

    Mensagem  gutembergue em Seg 22 Jan 2018, 14:43

    Ola Pessoal...

    Estou com problema que não estou conseguindo resolver. E mais ou menos assim:

    Tenho um formulário chamado VENDAS, no qual eu digito o código do produto e a quantidade. Gostaria que ao digitar a quantidade ele analisasse esta quantidade digitar e se ela for maior do que a quantidade que eu tenho na tabela ESTOQUE, ele me retornaria dizendo que valor digito é maior do que a quantidade que tenho em estoque.

    Fico o aguardo.


    Última edição por gutembergue em Qua 31 Jan 2018, 13:46, editado 1 vez(es)
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9776
    Registrado : 04/11/2009

    Re: [Resolvido]Valor da tabela1 menor que valor da Tabela 2 - Usando o Dlookup

    Mensagem  JPaulo em Seg 22 Jan 2018, 15:17

    Ola seja bem vindo ao forum;

    Como se trata de tabelas diferentes, pode usar a função DLookup para simplificar;

    Veja como usar;
    [Você precisa estar registrado e conectado para ver este link.]


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

    gutembergue
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12
    Registrado : 11/01/2018

    Re: [Resolvido]Valor da tabela1 menor que valor da Tabela 2 - Usando o Dlookup

    Mensagem  gutembergue em Ter 30 Jan 2018, 09:48

    Ola pessoal estou com um problema é não estou conseguindo resolver. Gostaria da ajuda de vcs.

    Tenho uma caixa de texto, quando eu digito o código ele deveria buscar os dados em uma tabela. O problema é que ele sempre busca o primeiro dado da tabela, não buscar por exemplo o quinto ou vigésimo.

    Alguém poderia me ajudar, estou postando o código abaixo. O que está com problema é este que destaquei.


    Private Sub txtSenha_LostFocus()
    Me!txtNome = DLookup("[NOME_CLIENTE]", "CARTAO_GERADO", "[COD_CARTAO]= '" & Me!txtSenha & "'")
    Me!TxtCodCartao = DLookup("[COD_CLIENTE]", "CLIENTE", "[COD_CLIENTE_CARTAO_TEMP]= '" & Me!TxtCodCartao & "'")
    Me!txtCredito = DLookup("[VALOR_CREDITO_INICIAL]", "CARTAO_GERADO", "[VALOR_CREDITO_INICIAL_TEMP]= " & Me!txtCredito & "")
    Me!txtConsumido = DLookup("[VALOR_CREDITO_CONSUMIDO]", "CARTAO_GERADO", "[VALOR_CREDITO_CONSUMIDO_TEMP]= " & Me!txtConsumido & "")
    Me!txtValorVenda = DSum("([VALOR_VENDA_GERAL]*[QUANT_VENDAS])", "VENDAS_CARTAO", "[VALOR_VENDA_TEMP]= " & Me!txtValorVenda & "")
    Me!txtCreditoFinal = (([VALOR_CREDITO_CONSUMIDO_TEMP] + [VALOR_VENDA_TEMP]))
    DoCmd.OpenQuery "ATUALIZA_COD_CLIENTE_CARTAO"
    DoCmd.OpenQuery "ATUALIZA_VALORES_CARTAO"
    SendKeys "{F9}"
    End Sub
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4892
    Registrado : 15/03/2013

    Re: [Resolvido]Valor da tabela1 menor que valor da Tabela 2 - Usando o Dlookup

    Mensagem  ahteixeira em Ter 30 Jan 2018, 10:08

    Olá a todos

    Gutembergue, sei que é membro novo, no entanto tenha atenção às 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.
    14. É proibido adicionar links externos nos tópicos, que redirecionem para outros sites ("backlinks").
    15. É permitido adicionar links externos, nos códigos VBA dentro das Base de Dados.


    O tópico foi fundido e ajustei o titulo.

    Quanto à questão se o campo é numérico deveremos retirar as plicas, teste assim:
    Código:
    Me!TxtCodCartao = DLookup("[COD_CLIENTE]", "CLIENTE", "[COD_CLIENTE_CARTAO_TEMP]= " & Me!TxtCodCartao & "")

    Abraço

    gutembergue
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12
    Registrado : 11/01/2018

    Re: [Resolvido]Valor da tabela1 menor que valor da Tabela 2 - Usando o Dlookup

    Mensagem  gutembergue em Ter 30 Jan 2018, 10:45

    Ola Ahteixeira, realmente sou novo aqui. Gostaria de me desculpar por talvez ter infringido alguma regra, juro que não foi minha intensão.

    Desculpa mesmo pelo ocorrido.


    Mais a minha dúvida é o seguinte:

    Tenho uma tabela: CARTAO_GERADO com os seguintes campos:

    COD_CARTAO NOME_CLIENTE VALOR_CREDITO_INICIAL VALOR_CREDITO_CONSUMIDO
    74017 Gutembergue 115,00 112,00
    70554 Elber Cunha 300,00 134,50


    Tenho uma outra tabela que receberá os dados: CARTAO_CONSUMO_TEMP com os seguintes campos


    O correto deveria ser este:
    COD_CARTAO_TEMP NOME_CLIENTE_TEMP VALOR_CREDITO_INICIAL_TEMP VALOR_CREDITO_CONSUMIDO_TEMP
    70554 Elber Cunha 300,00 134,50


    Mais o que esta retornando é este:
    COD_CARTAO_TEMP NOME_CLIENTE_TEMP VALOR_CREDITO_INICIAL_TEMP VALOR_CREDITO_CONSUMIDO_TEMP
    70554 Elber Cunha 115,00 112,00

    Será que deu para entender minha dúvida.

    Obrigado pela atenção

    Gutenbergue

    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4892
    Registrado : 15/03/2013

    Re: [Resolvido]Valor da tabela1 menor que valor da Tabela 2 - Usando o Dlookup

    Mensagem  ahteixeira em Ter 30 Jan 2018, 14:51

    Olá Gutembergu,

    Se compreendi bem a questão com una consulta adicionar (INSERT ...) poderá obter facilmente o pretendio.
    Para compreender melhor, será que pode postar baxse de dados elementos envolvidos e dados de amostragem para se testar.
    Assim fica mais fácil para qualquer membro poder ajudar.

    Abraço a todos

    gutembergue
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12
    Registrado : 11/01/2018

    Re: [Resolvido]Valor da tabela1 menor que valor da Tabela 2 - Usando o Dlookup

    Mensagem  gutembergue em Ter 30 Jan 2018, 15:23

    Olá Ahteixeira,

    Estou anexando o banco de dados conforme sua solicitação.

    Obrigado pelo apoio.


    Abraços


    Gutenbergue
    Anexos
    Consumo.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (1.4 Mb) Baixado 2 vez(es)
    avatar
    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3171
    Registrado : 29/06/2012

    Re: [Resolvido]Valor da tabela1 menor que valor da Tabela 2 - Usando o Dlookup

    Mensagem  Noobezinho em Ter 30 Jan 2018, 16:05

    Gutenberg

    O Access é um banco de dados relacional.

    Isso quer dizer que para que ele funcione a contento, tem situações que ele precisa de relacionamento entre tabelas.

    No teu projeto tem a tabela vendas, onde deveria ter, o código da venda, data da venda, forma de pagamento (se foi dinheiro, cartão...),

    Valor Pago,sub-total, desconto, etc..

    Ele deveria esta relacionado com outra tabela, a qual chamo de  DetalhesVenda.

    Nessa tabela irá todos os detalhes, ou seja, os produtos vendidos.

    Então, sempre que quiser saber quanto vendeu de um determinado produto, fará uma consulta nessa tabela.

    O Estoque deverá ter todos os dados dos produtos e  a quantidade em estoque de cada um deles dele.

    A entrada de produtos terá outra tabela auxiliar para guardar as entradas.

    O formulário dessa tabela é que irá adicionar novas quantidades ao estoque.

    Espero que tenha entendido. por que senão terá problemas futuro com teu projeto.

    Outra coisa, procure saber na internet sobre homologação de módulo para frente de caixa no MS Access.

    [ ]'s


    .................................................................................
    Noobezinho

    * A solução funcionou?  [Você precisa estar registrado e conectado para ver esta imagem.] 
    Agradeça e feche o tópico clicando no botão Resolvido
    Se não sabe como, veja [Você precisa estar registrado e conectado para ver este link.].

    Como anexar imagem no teu post do fórum : [Você precisa estar registrado e conectado para ver este link.]

    * Criar arquivos.zip com o Winrar - veja [Você precisa estar registrado e conectado para ver este link.].

    Atualmente estou verificando se ajudamos alguém e não retornou.
    Se não deu retorno, não ajudo novamente .

    gutembergue
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12
    Registrado : 11/01/2018

    Re: [Resolvido]Valor da tabela1 menor que valor da Tabela 2 - Usando o Dlookup

    Mensagem  gutembergue em Ter 30 Jan 2018, 16:47

    Ola Noobezinho,

    Obrigado pela as orientações e suporte.

    Este projeto que estou criando é um projeto pequeno para fazer um controle de cartão de consumo de um clube recreativo. Será um banco pequeno que na verdade irá controlar somente o que o sócio tem de crédito no cartão e quando ele for comprando no bar do clube este crédito vai sendo abatido até zerar.

    Os produtos que aqui se encontra é simplesmente para fazer a venda no bar.

    Seria mais ou menos isto.

    O meu problema está justamente quando digito o código do cartão é me traz o código e o nome correto, mais os valores do crédito inicial e o crédito consumido ele traz o do primeiro do banco.

    Obrigado pelo apoio


    Abraços


    Gutenbergue
    avatar
    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3171
    Registrado : 29/06/2012

    Re: [Resolvido]Valor da tabela1 menor que valor da Tabela 2 - Usando o Dlookup

    Mensagem  Noobezinho em Ter 30 Jan 2018, 20:35

    Gutenberg


    Veja isso:

    Me!txtCodigo = DLookup("[COD_CLIENTE_CARTAO]", "CARTAO_GERADO", "[COD_CLIENTE_CARTAO_TEMP]= " & Me!txtSenha & "")
    O  campo [COD_CLIENTE_CARTAO_TEMP] não existe na tabela CartãoGerado então não tem como procurar

    Me!TxtCodCartao = DLookup("[COD_CLIENTE]", "CLIENTE", "[COD_CLIENTE_CARTAO_TEMP]= '" & Me!TxtCodCartao & "'")
    O mesmo é aqui com o mesmo campo

    Você está tentando comparar um campo de uma tabela com o campo de OUTRA tabela, não é assim que funciona.

    Veja que na primeira linha, está correto por isso houve retorno:

    Me!txtNome = DLookup("[NOME_CLIENTE]", "CARTAO_GERADO", "[COD_CARTAO]= '" & Me!txtSenha & "'")

    Reveja isso.

    Outra coisa muito importante, está mudando o nome de um mesmo dado  em cada tabela e formulário

    Se colocar o nome de NUMCARTAO numa tabela mantenha esse nome nas outras e nos formularios, assim,não se perde com os nomes,

    principalmente quem irá leu código.

    Por enquanto é isso, vamos por partes.


    .................................................................................
    Noobezinho

    * A solução funcionou?  [Você precisa estar registrado e conectado para ver esta imagem.] 
    Agradeça e feche o tópico clicando no botão Resolvido
    Se não sabe como, veja [Você precisa estar registrado e conectado para ver este link.].

    Como anexar imagem no teu post do fórum : [Você precisa estar registrado e conectado para ver este link.]

    * Criar arquivos.zip com o Winrar - veja [Você precisa estar registrado e conectado para ver este link.].

    Atualmente estou verificando se ajudamos alguém e não retornou.
    Se não deu retorno, não ajudo novamente .

    gutembergue
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12
    Registrado : 11/01/2018

    Re: [Resolvido]Valor da tabela1 menor que valor da Tabela 2 - Usando o Dlookup

    Mensagem  gutembergue em Qua 31 Jan 2018, 10:33

    Bom dia Noobezinho,

    Mais uma vez obrigado pelo apoio. Fiz como você me orientou e ficou assim:

    Me!txtCredito = DLookup("[VALOR_CREDITO_INICIAL]", "CARTAO_GERADO", "[COD_CARTAO]= " & Me!txtSenha & "")

    Porém retornou este erro: Erro em tempo de execução 3464: Tipo de dados incompatível na expressão de critério.


    Obrigado pela atenção.

    Abraços


    Gutenbergue
    avatar
    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3171
    Registrado : 29/06/2012

    Re: [Resolvido]Valor da tabela1 menor que valor da Tabela 2 - Usando o Dlookup

    Mensagem  Noobezinho em Qua 31 Jan 2018, 11:14

    Como disse, nomes diferentes para o mesmo dado começa a causar confusão.

    O cartão de crédito  é somente números, por que definiu como texto?

    Procure usar somente um nome para ele em todo aplicativo, veja isso:


    Me!txtCredito = DLookup("[VALOR_CREDITO_INICIAL]", "CARTAO_GERADO", "[COD_CARTAO]= ' " & Me!txtSenha & " ' ")
                                                                                                                                                                     ^                                  ^
    2 nomes para o mesmo dado, e como definiu ele como texto, tem que colocar as aspas  e como a frase SQL  já tem aspas duplas terá que usar aspas simples.

    Dê uma geral em todos os  Dlookups que vc tem


    Vou te mostrar como depurar o código, com um exemplo.

    Poderá sempre utilizar para verificar o retorno dos códigos.

    Note que a página de VBA tem uma margem na esquerda, onde então começa as linhas de código:

       |
    X | Private Sub txtSenha_LostFocus()
       |

    Se clicar ali no espaço entre a borda da página e essa margem, onde está o X no exemplo, a linha ficar toda pintada de marrom,

    significando que vc acabou de colocar um ponto de interrupção do código naquela linha.

    quando vc executar o código, no caso, clicando no botão Ok, o Access irá executar o código até essa linha, desse modo vc pode verificar

    os valores das variáves, pousando o mouse sobre elas.

    Para continuar o código para a próxima linha , é só clicar em F8.

    Para tirar o ponto de interrupção, é só clicar no mesmo local da linha em marrom

    [ ]'s


    .................................................................................
    Noobezinho

    * A solução funcionou?  [Você precisa estar registrado e conectado para ver esta imagem.] 
    Agradeça e feche o tópico clicando no botão Resolvido
    Se não sabe como, veja [Você precisa estar registrado e conectado para ver este link.].

    Como anexar imagem no teu post do fórum : [Você precisa estar registrado e conectado para ver este link.]

    * Criar arquivos.zip com o Winrar - veja [Você precisa estar registrado e conectado para ver este link.].

    Atualmente estou verificando se ajudamos alguém e não retornou.
    Se não deu retorno, não ajudo novamente .

    gutembergue
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12
    Registrado : 11/01/2018

    Re: [Resolvido]Valor da tabela1 menor que valor da Tabela 2 - Usando o Dlookup

    Mensagem  gutembergue em Qua 31 Jan 2018, 11:45

    Caro Noobezinho!!

    Mais uma vez agradeço pelas orientações muito bem colocadas.

    Depois de quebrar muito a cabeça, consegui resolver meu problema. Ficou assim:


    Private Sub txtSenha_LostFocus()
    Me!txtNome = DLookup("[NOME_CLIENTE]", "CARTAO_GERADO", "[COD_CARTAO]= '" & Me!txtSenha & "'")
    Me!TxtCodCartao = DLookup("[COD_CLIENTE_CARTAO]", "CARTAO_GERADO", "[COD_CARTAO]= '" & Me!txtSenha & "'")
    Me!txtCredito = DLookup("[VALOR_CREDITO_INICIAL]", "CARTAO_GERADO", "[COD_CARTAO]= '" & Me!txtSenha & "'")
    Me!txtConsumido = DLookup("[VALOR_CREDITO_CONSUMIDO]", "CARTAO_GERADO", "[COD_CARTAO]= '" & Me!txtSenha & "'")
    Me!txtValorVenda = DSum("([VALOR_VENDA_GERAL]*[QUANT_VENDAS])", "VENDAS_CARTAO", "[COD_CARTAO]= " & Me!txtSenha & "")
    Me!txtCreditoFinal = (([VALOR_CREDITO_CONSUMIDO_TEMP] + [VALOR_VENDA_TEMP]))
    DoCmd.OpenQuery "ATUALIZA_VALORES_CARTAO"
    SendKeys "{F9}"
    End Sub


    Obrigado pelas orientações e apoio

    Abraços


    Gutenbergue
    avatar
    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3171
    Registrado : 29/06/2012

    Re: [Resolvido]Valor da tabela1 menor que valor da Tabela 2 - Usando o Dlookup

    Mensagem  Noobezinho em Qua 31 Jan 2018, 11:50

    Que bom que conseguiu Wink

    Só faltou colocar o Resolvido no título do tópico.

    Basta editar uma das tuas mensagens e clicar no botão resolvido.

    Valeu o retorno !

    Boa sorte!


    .................................................................................
    Noobezinho

    * A solução funcionou?  [Você precisa estar registrado e conectado para ver esta imagem.] 
    Agradeça e feche o tópico clicando no botão Resolvido
    Se não sabe como, veja [Você precisa estar registrado e conectado para ver este link.].

    Como anexar imagem no teu post do fórum : [Você precisa estar registrado e conectado para ver este link.]

    * Criar arquivos.zip com o Winrar - veja [Você precisa estar registrado e conectado para ver este link.].

    Atualmente estou verificando se ajudamos alguém e não retornou.
    Se não deu retorno, não ajudo novamente .

      Data/hora atual: Qui 22 Fev 2018, 00:07