[Resolvido]Ajuda contar campo com critérios

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

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



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

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

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

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

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

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

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

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

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

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