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 contar campo com critérios

    Compartilhe

    ewertonms
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 74
    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
    avatar
    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 : 74
    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 : 74
    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
    avatar
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6429
    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 : 74
    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
    avatar
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6429
    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 : 74
    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 : 74
    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?
    avatar
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6429
    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 : 74
    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: Ter 17 Out 2017, 08:53