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]Consulta com critério contar Data maior que

    Compartilhe

    lekcunha
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 35
    Registrado : 06/11/2014

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

    Mensagem  lekcunha em 22/9/2018, 00:00

    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á!Wink

    Ricardo Monteiro
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 46
    Registrado : 27/11/2017

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

    Mensagem  Ricardo Monteiro em 24/9/2018, 22:23

    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


    .................................................................................
    Ricardo Freitas Monteiro

    lekcunha
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 35
    Registrado : 06/11/2014

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

    Mensagem  lekcunha em 24/9/2018, 23:56

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

    lekcunha
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 35
    Registrado : 06/11/2014

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

    Mensagem  lekcunha em 24/9/2018, 23:57

    Segue.[Você precisa estar registrado e conectado para ver esta imagem.]
    [Você precisa estar registrado e conectado para ver esta imagem.]
    [Você precisa estar registrado e conectado para ver esta imagem.]
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

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

    Mensagem  ahteixeira em 25/9/2018, 14:02

    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

    lekcunha
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 35
    Registrado : 06/11/2014

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

    Mensagem  lekcunha em 25/9/2018, 19:15

    ahteixeira, obrigado, cara. Funcionou perfeitamente! Very Happy

    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! Wink
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

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

    Mensagem  ahteixeira em 25/9/2018, 19:59

    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

    lekcunha
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 35
    Registrado : 06/11/2014

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

    Mensagem  lekcunha em 25/9/2018, 22:05

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

    Obrigado pela paciência!
    Anexos
    Erro.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (118 Kb) Baixado 1 vez(es)
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

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

    Mensagem  ahteixeira em 25/9/2018, 22:54

    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

    lekcunha
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 35
    Registrado : 06/11/2014

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

    Mensagem  lekcunha em 26/9/2018, 01:59

    Combinado!
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

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

    Mensagem  ahteixeira em 26/9/2018, 12:29

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

    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

    lekcunha
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 35
    Registrado : 06/11/2014

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

    Mensagem  lekcunha em 26/9/2018, 15:07

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

    Grande abraço! cheers
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

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

    Mensagem  ahteixeira em 26/9/2018, 15:28

    Olá Alex,

    Obrigado pelo retorno, ficamos então aguardar.

    Não se esqueça de dar o tópico como Resolvido, veja como fazer:
    [Você precisa estar registrado e conectado para ver este link.]

    Abraço

      Data/hora atual: 15/11/2018, 04:43