[Resolvido]Relatório com controles provenientes de duas consultas

Boa tarde meus caros.
Estou com o seguinte problema.
Tenho duas consultas que contam registros. Eu estou meio lesado por ter terminado com remédios e não consegui transformar em uma. Acho que não dá. Mas vamos lá.
Uma das consultas conta as ocorrências de um campo, e outra consulta conta ocorrências de outros campos. Seguem as mesmas.

SELECT count(sigilo) AS demandas_em_sigilo
FROM controle_demanda
WHERE sigilo = TRUE;

SELECT COUNT(encerrado) AS encerradas
FROM controle_demanda
WHERE encerrado = TRUE;

Preciso agora carregar o resultado destas consultas de preferência em labels, mas em campos já adiantaria, visto que eu os formataria para aparentar ser labels.

Bem, se tiver uma forma de fazer isto facilmente no Access, e souberem eu agradeço muito. Eu gostaria de fazer assim como rolam os formulários através das consultas, em que são dispostos todos os campos automaticamente.

Access Versão 2010.

Obrigado desde já.

Existe sim, a função interna DLookup, dê uma pesquisada aqui mesmo.

Oi, JPaulo e obrigado por ter respondido.
Mas acho que não estamos falando da mesma coisa.
O que eu quis dizer foi o seguinte. Eu quero um relatório que exiba os valores provenientes das duas consultas acima. Pelo que entendi ela autopreenche campos.
Eu quero gerar um relatório que exiba as contagens dos selects com labels. Acho que é até mais simples.


Ex:


Demandas encerradas: 51
Demandas de caráter sigiloso: 2
Demandas enviadas: 4
Demandas não respondidas: 7

Porém eu queria colocar em um mesmo relatório e não sei com obter os campos do Access.

E por ai vai. Para contar no banco eu teria que dar um Count(*), na expressão SQL, não sei se há como fazer uma consulta só que conte todos os campos, é complexa.

Bem, me ajudem ai.

Obrigado.

Boa tarde, Edson

Com a permissão do Mestre JPaulo

Não utilize o título da mensagem como texto da mesma.
Neste seu caso, crie rótulos no relatório e no acontecimento ao abrir do relatório coloque
dim Rst as dao.recordset

'rótulo RtlSigiloso
set rst=currentdb.openrecordset("SELECT count(sigilo) AS demandas_em_sigilo FROM controle_demanda WHERE sigilo = TRUE;")
if rst.recordcount>0 then rst.movelast : rst.movefirst
RtlSigiloso.caption= "Demandas de caráter sigiloso: " & rst.recordcount

'rótulo RtlEncerrado
set rst=currentdb.openrecordset("SELECT COUNT(encerrado) AS encerradas FROM controle_demanda WHERE encerrado = TRUE;")
if rst.recordcount>0 then rst.movelast : rst.movefirst
RtlEncerrado.caption= "Demandas encerradas: " & rst.recordcount

Obrigado Alexandre.
Sua solução deve resolver com certeza, mas, está mostrando apenas 1 em ambos os rótulos. Eu não tenho domínio de uso dos recordsets, mas creio que esteja relacionado a algo com os mesmos.
Poderia verificar se os códigos necessitam de alguma correção e me informar?
Usei até um MsgBox mas continuou na mesma.

Obrigado novamente.

E eu não tenho tabela para experimentar.
O SQL do recordset pode-o testar colocando numa consulta e abrir a consulta

Tentarei comentar o código para ver se estou entendendo realmente o que está fazendo.


'rótulo RtlSigiloso
'Setando a consulta no Recordset, do banco de dados corrente.
set rst=currentdb.openrecordset("SELECT count(sigilo) AS demandas_em_sigilo FROM controle_demanda WHERE sigilo = TRUE;")

'Se houver mais de 0 registro então vá para final e vá para o primeiro registro.
if rst.recordcount>0 then rst.movelast : rst.movefirst

'A propriedade Caption do RtlSigiloso recebe a contagem dos registros.
RtlSigiloso.caption= "Demandas de caráter sigiloso: " & rst.recordcount

Minha pergunta foi: Por acaso você não estaria movendo o rst para o primeiro registro?

Os rótulos estão sendo exibidos da seguinte forma;

Demandas de caráter sigiloso: 1, sendo que, se eu rodar a query no banco há 15 ocorrências. Ou seja 15. Pode verificar se seu código apresenta algum erro?

Está certo nos comentários do código
Não tenho como experimentar sem dados.
O recordset assume o recordcount sem falhas se percorrer todos os registos. Bastava movê-lo para o último, mas é usual fazer assim porque, caso se precise de trabalhar com ele para outras finalidades ele está no primeiro registo.

Obrigado, resolveu. Nosso erro era dar count 2 vezes, se a sentença SQL já tinha o count, então retornava uma linha. Removi o count da sentença e o Recordset contou a quantidade de linhas retornadas.
Procurei alguma outra função, mas, dai entendi a lógica e preferi remover o Count da sentença e o código ficou assim:

Set Rst = CurrentDb.OpenRecordset("SELECT * FROM controle_demanda WHERE sigilo = TRUE;")
'If Rst.RecordCount > 0 Then Rst.MoveFirst: Rst.MoveLast
Rst.MoveLast
RtlSigiloso.Caption = "Sigilosas: " & Rst.RecordCount
MsgBox (Rst.RecordCount)