[Resolvido]Consulta com critério contar Data maior que

Boa noite, galera! Tenho um BD access 97.
NeleTenho uma tabela: Cadastro.
Ela tem 2 colunas: Data e Status
Gostaria que me ajudassem com um código para contar todos os registros da Tabela: Cadastro seguindo os seguintes 2 critérios: data > 7 dias e palavras Atrasada e Em Andamento. Precisa ainda exibir o a contagem resultante num campo do formulário. Agradeço a ajuda desde já!

O código seria algo como:

Código:

Dim lngTotal

lngTotal = DCount("[Data]&[Status]", "Cadastro", "[Data]>'7' & [Status]='Atrasada' ou [Status]='Em Andamento")

me.nomedocampo.value = lngTotal

Olá, amigo. Obrigado pela dica, mas tá dando erro. Mandei anexos.

Segue.

Olá a todos,

Alex Cunha, tente assim:

Código:

Dim lngTotal As Long
lngTotal = DCount("*", "Cadastro", "[Data] < date()-7 AND [Status] = 'Atrasada' OR [Data] < date()-7 AND [Status] = 'Em Andamento'")
Me.nomedocampo.Value = lngTotal


Aproveito para informar que deve evitar de usar palavras reservadas como nome de campos ou objectos, neste caso "Data"

Abraço

ahteixeira, obrigado, cara. Funcionou perfeitamente!

Poderia me dar um último help?

Estou tentando incluir mais um critério no seu código pra filtrar também pelo usuário logado no Windows.

Já tentei: Environ("USERNAME") e getIDUsuarioAtual() mas não consegui.

A tabela Cadastro tem um campo chamado: USER_ID, que tem na sua estrutura, como valor padrão: =Ambiente("Username").

Obrigado mais uma vez!

Alex Cunha, obrigado pelo retorno.

Estou no telemóvel, mas tente assim:

Código:

Dim lngTotal As Long
lngTotal = DCount("*", "Cadastro", "[Data] < date()-7 AND [Status] = 'Atrasada' AND [USER_ID] = '" & Environ("Username") & "'" OR [Data] < date()-7 AND [Status] = 'Em Andamento' AND [USER_ID] = '" & Environ("username") & "'")
Me.nomedocampo.Value = lngTotal


Abraço

Obrigado pelo esforço, mas deu erro de sintaxe.
Mandei zip em anexo.

Obrigado pela paciência!

Olá Alex,

Aproveite para ver os outros tópicos que tem em aberto e nao deu continuidade.
Os membros merecem e agradecem o retorno.

Se ficaram resolvidos, nao se esqueça de os marcar com Resolvido.

Possivelmente só amanha é que estou com PC

Abraço

Combinado!

Olá Alex Cunha,

Tinha uma aspa dupla a mais.
Era só ajustar, tem que ficar mais atento e compreender o que se está a fazer.  

Código:

Dim lngTotal As Long
lngTotal = DCount("*", "Cadastro", "[Data] < date()-7 AND [Status] = 'Atrasada' AND [USER_ID] = '" & Environ("Username") & "' OR [Data] < date()-7 AND [Status] = 'Em Andamento' AND [USER_ID] = '" & Environ("username") & "'")
Me.nomedocampo.Value = lngTotal


Verifico que tem diversos tópicos abertos à qual não deu continuidade.
Os membros do fórum merecem e agradecem o retorno.

Reveja a conduta  que tem adotado e regularize a situação.

Abraço

ahteixeira, muito obrigado mestre.
Vou seguir suas orientações e encerrar os tópicos.

Grande abraço!

Olá Alex,

Obrigado pelo retorno, ficamos então aguardar.

Não se esqueça de dar o tópico como Resolvido, veja como fazer:
https://www.maximoaccess.com/t860-resolucao-de-topicos

Abraço