Contar registros baseado em Critério =Environ("Username")

Galera,

boa tarde!

Preciso de uma ajuda:

Tenho uma tabela chamada PRINCIPAL, com os campos UserID e Status_SCT;

Preciso criar uma consulta ou código VBA que tenha a seguinte ação ao abrir o mdb:

Utilize a opção =Ambiente("Username") como critério para contar todos os registros da tabela PRINCIPAL que possuam o Status_SCT: "SLA VIOLADO e "EM ANDAMENTO" e apresente em tela a mensagem com o resultado

Como começar?

Agradeço desde já!!

Veja o link..talvez possa ser útil a ti.

https://www.maximoaccess.com/t4745-resolvidofuncao-dcount

Silvio,

obrigado pela dica.

Tentei montar uma consulta com base no artigo me indicou:

SELECT Count(PRINCIPAL.USER_ID) AS ContarDeUSER_ID, PRINCIPAL.STATUS_SCT FROM PRINCIPAL GROUP BY PRINCIPAL.STATUS_SCT HAVING (((Count(PRINCIPAL.USER_ID))=Environ("Username")) AND ((PRINCIPAL.STATUS_SCT)="SLA VIOLADO"));

Porém, ao executar a consulta, o Access retorna a mensagem: Tipo de dados incorretos na expressão critério.

Poderia dizer se estou no caminho certo?

Prezados,

boa tarde!

Ao executar a consulta abaixo, o Access retorna a mensagem: "Tipo de dados incorretos na expressão critério."

SELECT Count(PRINCIPAL.USER_ID) AS ContarDeUSER_ID, PRINCIPAL.STATUS_SCT FROM PRINCIPAL GROUP BY PRINCIPAL.STATUS_SCT HAVING (((Count(PRINCIPAL.USER_ID))=Environ("Username")) AND ((PRINCIPAL.STATUS_SCT)="SLA VIOLADO"));

Creio que a mensagem refere-se ao critério: =Environ("Username")

Poderiam me ajudar com a sintaxe?

Obrigado!

Oi amigo, para usar string na consulta sql usa-se aspas simples, ao inves de " use ', exemplo 'Username'

Teste ai, e depois nos de o feedback, eh muito importante, e se nao der, posta teu banco pra gente testar pra ver se alguma declaração de tipos de dados da tabela ta diferente.


Sucesso!!

Olá a todos,

Alex Cunha, ao retomar o nome do ulilizador via Environ("Username") , retorna tipo texto, tentou com aspa simples

Outra alternativa será assim:

Código:

Dim strSQL As String
strSQL = "SELECT Count(PRINCIPAL.USER_ID) AS ContarDeUSER_ID, PRINCIPAL.STATUS_SCT FROM PRINCIPAL GROUP BY PRINCIPAL.STATUS_SCT HAVING (((Count(PRINCIPAL.USER_ID))= '" & Environ("Username") & "') AND ((PRINCIPAL.STATUS_SCT)='SLA VIOLADO'));"


Veja como fica usando o DCount por exemplo:

Código:

DCount("*", "TabelaCadastro", "[Utilizador] = '" & Environ("Username") & "'")

Abraço