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]Ajuda com DSum

    Compartilhe

    jorgek
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 72
    Registrado : 08/12/2012

    [Resolvido]Ajuda com DSum

    Mensagem  jorgek em Ter 11 Fev 2014, 11:26

    Bom dia, mestres! Smile
    Venho com mais uma dúvida!
    Então:
    Estou criando uma rotina em que a caixa de texto "Txt_Vale" recebe uma soma de acordo com alguns critérios.
    Exemplo:
    Código:
    Txt_Vale = DSum("Valor", "Tb_Vales", "[func] = " & Me.Combinação28 & " And [Dt_Desc] = #" & Me.mes & "#" And "Baixa" = False)

    Eu quero que só some os vales que não estão baixados.
    Até o critério de data funciona normalmente. Mas quando eu insiro mais um critério que é o And "Baixa" = False, recebo a mensagem de "Tipos incompatíveis".
    O que está errado?
    Desde já agradeço a ajuda de todos!
    Obs: O campo "Baixa" é "Sim/Não".
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: [Resolvido]Ajuda com DSum

    Mensagem  JPaulo em Ter 11 Fev 2014, 11:37

    Ola;

    Só testando;

    Txt_Vale = DSum("Valor", "Tb_Vales", "[func] = " & Me.Combinação28 & " And [Dt_Desc] = #" & Me.mes & "# And [Baixa] = False")

    Ou

    Txt_Vale = DSum("Valor", "Tb_Vales", "[func] = " & Me.Combinação28 & " And [Dt_Desc] = #" & Me.mes & "# And [Baixa] = 0")



    .................................................................................
    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.]

    jorgek
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 72
    Registrado : 08/12/2012

    Re: Ajuda com DSum

    Mensagem  jorgek em Ter 11 Fev 2014, 11:42

    Oi, JPaulo!

    Assim, [Baixa], vira tudo maiúsculo, [BAIXA] e quando eu clico no botão recebo a mensagem que "não pode localizar o campo '|' referido em sua expressão". Sad

    jorgek
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 72
    Registrado : 08/12/2012

    Re: Ajuda com DSum

    Mensagem  jorgek em Ter 11 Fev 2014, 11:54

    E no final, se por aspas, dá erro.
    avatar
    Avelino Sampaio
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3408
    Registrado : 04/04/2010

    Re: [Resolvido]Ajuda com DSum

    Mensagem  Avelino Sampaio em Ter 11 Fev 2014, 12:03

    Olá!

    vai uma dica para vc mesmo descobrir.  Teste os filtros separadamente.  Depois de funcionando de forma individual, junte todos. Exemplo:

    1 - primeiro teste:

    Txt_Vale = DSum("Valor", "Tb_Vales", "func = " & Me.Combinação28 )

    Se não funcionar é por que func é do tipo string e então é necessário usar o apóstrofe.

    Txt_Vale = DSum("Valor", "Tb_Vales", "func = '" & Me.Combinação28 & "'"

    2 - segundo teste

    Txt_Vale = DSum("Valor", "Tb_Vales", "baixa = 0")

    3 - terceiro teste com a data


    Depois de tudo funcionando junte tudo com o AND

    Veja aqui um pouco mais sobre filtragens

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

    Aguardamos

    jorgek
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 72
    Registrado : 08/12/2012

    Re: Ajuda com DSum

    Mensagem  jorgek em Ter 11 Fev 2014, 16:40

    Olá, mestre Avelino!

    Eu consegui fazendo desse jeito:
    Código:
    Txt_Vale = DSum("Valor", "Tb_Vales", "[func] = " & Me.Combinação28 & " And baixa = 0 And [Dt_Desc] = #" & Me.mes & "#")) Then

    Inverti, deixando o critério data para o final e utilizando a sua sintaxe.
    Muito obrigado mesmo!!!
    Pois depois desta ajuda, dali para frente ainda tive um longo caminho que, graças a DEUS e ao meu esforço, consegui elaborar a rotina inteira! Smile

      Data/hora atual: Seg 20 Nov 2017, 15:37