MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Ajuda contar campo com critérios

    Compartilhe

    ewertonms
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 64
    Registrado : 20/09/2012

    [Resolvido]Ajuda contar campo com critérios

    Mensagem  ewertonms em Qui 25 Set 2014, 21:16

    Olá Pessoal eu tenho uma tabela chama tblSUSAgenda e preciso contar quantos atendimentos tem de um determinado tipo para cada data e informar qual a menor data que ainda não completou a quantidade de cadastros que preciso

    tipo assim dia 25/09 tem 5 atendimentos BERA e preciso de 7 agendados então eu mostro pro usuário que no dia 25/09 tem vaga disponível em uma txtbox se ele quiser marcar mais pra frente pode porém enquanto não preencher todas as vagas desse dia a textbox n mude a data mais próxima para agendar outro BERA a data tem que ser maior que o dia corrente

    Marcos Minoru
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 88
    Registrado : 22/08/2014

    Re: [Resolvido]Ajuda contar campo com critérios

    Mensagem  Marcos Minoru em Qui 25 Set 2014, 23:02

    Ewerton, onde são informadas estas datas? Subformulário, listbox...?



    Mande seu BD pra ficar mais fácil de conseguir ajuda.

    ewertonms
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 64
    Registrado : 20/09/2012

    Re: [Resolvido]Ajuda contar campo com critérios

    Mensagem  ewertonms em Sex 26 Set 2014, 12:28

    Olá segue a parte do banco q quero mudar, eu preciso que no form onde mostra o ultimo agendamento, mude para "agendamento disponivel em:" e calcule quando o atendimento especificado for menor que uma quantidade especifica tipo quando "acompanhamento" for menor que 10 ele mostre qual a menor data em que isso ocorre.

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

    ewertonms
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 64
    Registrado : 20/09/2012

    Re: [Resolvido]Ajuda contar campo com critérios

    Mensagem  ewertonms em Sex 26 Set 2014, 13:39

    Eu consegui o seguinte SQL fazendo a consulta no modo design que atende o que eu preciso:

    SELECT TOP 1 tblSUSagenda.tp_consulta AS Atendimento, Min(tblSUSagenda.id_data) AS Menor_data, Count(tblSUSagenda.tp_consulta) AS Quantidade
    FROM tblSUSagenda
    WHERE (((tblSUSagenda.hora)<="12:30"))
    GROUP BY tblSUSagenda.tp_consulta, tblSUSagenda.id_data
    HAVING (((tblSUSagenda.tp_consulta) Like "ACOMPANHAMENTO") AND ((Min(tblSUSagenda.id_data))>=Date()) AND ((Count(tblSUSagenda.tp_consulta))<14) AND ((tblSUSagenda.id_data) Is Not Null))
    ORDER BY Min(tblSUSagenda.id_data);

    porém eu n sei como usar ela em VBA para exibir somente o id_data resultado dessa consulta na textbox

    Sad

    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 5889
    Registrado : 05/11/2009

    Re: [Resolvido]Ajuda contar campo com critérios

    Mensagem  Alexandre Neves em Sex 26 Set 2014, 13:59

    Boa tarde,

    Dim Rs as dao.recordset
    set rs=currentdb.openrecordset("SELECT TOP 1 tp_consulta AS Atendimento, Min(id_data) AS Menor_data, Count(tp_consulta) AS Quantidade
    FROM tblSUSagenda
    WHERE hora<="12:30"
    GROUP BY tp_consulta, id_data
    HAVING tp_consulta Like 'ACOMPANHAMENTO' AND Min(id_data)>=Date() AND Count(tp_consulta)<14 AND Not IsNull(id_data)
    ORDER BY Min(id_data);"
    msgbox rs(1)
    setr s=nothing


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo

    ewertonms
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 64
    Registrado : 20/09/2012

    Re: [Resolvido]Ajuda contar campo com critérios

    Mensagem  ewertonms em Sex 26 Set 2014, 15:04

    Boa tarde Alexandre, pra esse valor ficar em um campo texto onde eu coloco o código? Eu coloquei no load do form mas tá dando erro "era esperado separador ou lista" e eu quero somente o valor do "id_data" o nome do atendimento e quantidade n preciso

    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 5889
    Registrado : 05/11/2009

    Re: [Resolvido]Ajuda contar campo com critérios

    Mensagem  Alexandre Neves em Sex 26 Set 2014, 15:39

    Sem os dados é mais difícil
    Dim Rs as dao.recordset
    set rs=currentdb.openrecordset("SELECT TOP 1 tp_consulta AS Atendimento, Min(id_data) AS Menor_data, Count(tp_consulta) AS Quantidade FROM tblSUSagenda WHERE hora<='12:30' GROUP BY tp_consulta, id_data HAVING tp_consulta Like 'ACOMPANHAMENTO' AND Min(id_data)>=Date() AND Count(tp_consulta)<14 AND Not IsNull(id_data) ORDER BY Min(id_data);"
    SuaCaixaTexto= rs(1)
    set rs=nothing


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo

    ewertonms
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 64
    Registrado : 20/09/2012

    Re: [Resolvido]Ajuda contar campo com critérios

    Mensagem  ewertonms em Sex 26 Set 2014, 15:51

    O link do banco está aqui
    [Você precisa estar registrado e conectado para ver este link.]

    ewertonms
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 64
    Registrado : 20/09/2012

    Re: [Resolvido]Ajuda contar campo com critérios

    Mensagem  ewertonms em Sex 26 Set 2014, 15:57

    Deu certo Alexandre, obrigado só me tira outra dúvida, aquele 1 dentro do "Rs(1)" significa o que?

    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 5889
    Registrado : 05/11/2009

    Re: [Resolvido]Ajuda contar campo com critérios

    Mensagem  Alexandre Neves em Sex 26 Set 2014, 16:17

    O recordset tem campo(s). Podem ser indicados pelo índice, que começa pelo 0. Assim, "Rs(1)" identifica o 2º campo do recordset


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo

    ewertonms
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 64
    Registrado : 20/09/2012

    Re: [Resolvido]Ajuda contar campo com critérios

    Mensagem  ewertonms em Sex 26 Set 2014, 16:49

    Muito obrigado, ajudou muito cara!!! thanks!!!

      Data/hora atual: Dom 04 Dez 2016, 14:12