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


3 participantes

    [Resolvido]Ajuda contar campo com critérios

    avatar
    ewertonms
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Ajuda contar campo com critérios Empty [Resolvido]Ajuda contar campo com critérios

    Mensagem  ewertonms 25/9/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
    Marcos Minoru
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Marcos Minoru 25/9/2014, 23:02

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



    Mande seu BD pra ficar mais fácil de conseguir ajuda.
    avatar
    ewertonms
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  ewertonms 26/9/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.

    https://www.dropbox.com/s/jnpx1re1bn5bl2k/bd%20teste%20sus.mdb?dl=0
    avatar
    ewertonms
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  ewertonms 26/9/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
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Alexandre Neves 26/9/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
    avatar
    ewertonms
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  ewertonms 26/9/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
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Alexandre Neves 26/9/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
    avatar
    ewertonms
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  ewertonms 26/9/2014, 15:51

    O link do banco está aqui
    https://www.dropbox.com/s/jnpx1re1bn5bl2k/bd%20teste%20sus.mdb?dl=0
    avatar
    ewertonms
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  ewertonms 26/9/2014, 15:57

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


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Alexandre Neves 26/9/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
    avatar
    ewertonms
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  ewertonms 26/9/2014, 16:49

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

    Conteúdo patrocinado


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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 29/3/2024, 00:51