MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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

    [Resolvido]Adaptar Dsum com critério.

    XPTOS
    XPTOS
    Super Avançado
    Super Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 596
    Registrado : 20/01/2014

    [Resolvido]Adaptar Dsum com critério. Empty [Resolvido]Adaptar Dsum com critério.

    Mensagem  XPTOS 21/3/2021, 16:57

    Amigos,
    Gostaria de percorrer uma tabela e verificar os registros NULL's e exibir na mensagem, porém, encontrei dificuldades, uma vez que este código retorna somente todos os registros da tabela. Não está obedecendo o critério. Alguém sabe como contornar?

    Código:

    Dim Teste As String
    Teste = "CurrentDb.Execute SELECT Enviado.Nota FROM Enviado WHERE IsNull(Nota) = True"

    Dim ValorXML1 As Currency
    ValorXML1 = DSum("ValorPago", "Enviado", "'nota = Teste'")
    MsgBox "Importado(s) " & nCount & " arquivo(s)" & vbCrLf & _
    "Total R$ " & Format(ValorXML1, "#,##0.00;(#,##0.00)") & "", vbInformation, "PRONTO"


    .................................................................................
    Grato,
    Noobezinho
    Noobezinho
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Adaptar Dsum com critério. Empty Re: [Resolvido]Adaptar Dsum com critério.

    Mensagem  Noobezinho 21/3/2021, 18:57

    ValorXML1 = DSum("[ValorPago]","Enviado", "IsNull([Nota])")

    Procure identificar teus objetos e controles.
    Ex.: tbl_Enviado(s)

    { }'s

    Balem


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.
    XPTOS
    XPTOS
    Super Avançado
    Super Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 596
    Registrado : 20/01/2014

    [Resolvido]Adaptar Dsum com critério. Empty Re: [Resolvido]Adaptar Dsum com critério.

    Mensagem  XPTOS 21/3/2021, 19:59

    Boa amigo, obrigado!

    Funcionou legal.


    .................................................................................
    Grato,
    Noobezinho
    Noobezinho
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Adaptar Dsum com critério. Empty Re: [Resolvido]Adaptar Dsum com critério.

    Mensagem  Noobezinho 21/3/2021, 20:06

    Ótimo!

    Não esqueça da dica que te dei, hoje vc reconhece teu código porque está

    mexendo com ele, mas amanhã n vai lembrar tudo, e vai ser um ir e vir nas tabelas

    pra saber que campo o controle está ser referindo.

    Boa sorte

    Balem


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.

      Data/hora atual: 13/6/2021, 01:22