[Resolvido]Contar Registro na Tabela

Bom dia guerreiros,
Tenho a tblLancamentos que contem os campos "matricula"(texto), "funcionario" (texto) e "DtSaida" (Data/Hora) e, ocorre que será necessário que ao tentar inserir um novo registro através do formulário, seja feita a contagem de registros dentro do mês por matrícula.
Ex
na tabela já possui os seguintes registros
1158864 - Tauron - 10/12/2022
2265153 - Paulo - 10/12/2022
1158864 - Tauron - 10/12/2022

ao inserir um novo registro do Paulo, após preencher o campo DtSaida me retorne a quantidade de registro no mês 12/2022

Tentei:
Criei dois campos (Format(Campo, "MMYYYY"): "DTi" (busca mês e ano atual) e "NData" (busca mês e ano do campo DtSaida do formulário)

QUANT = DCount("funcionario", "tblLancamento", "Matricula = '" & Me!Matricula & "' And Dti = " & NData & "")

Opa, Bom dia/Boa tarde

Um exemplo que eu tenho aqui (Obs.: Ele não é meu, garimpei, estava com um problema similar)

Espero que ajude !

Obrigado Luis pela tentativa.

No seu exemplo eu necessitaria de um subformulário para realizar a contagem mas, no meu caso, a contagem deve ser realizada diretamente na tabela utilizando os critérios (matricula e format(NomedoCampo, "mm/yyyy").

Campos (tabela e formulário): Matricula (texto) - Funcionario (texto) - DtSaida (data)

criei um campo para que possa me retorna o periodo do novo registro (Permes)

O objetivo é que ao inserir a data seja feita uma pesquisa na tabela e me retorne a quantidade de registros no periodo (mm/yyyy) daquela matricula

Código:



Private Sub DtSaida_AfterUpdate()
[color=#ff3300]Aqui me retorna o mês e ano do novo lançamento.[/color]
Me!Permes = DLookup("[DtSaida]", "tblLancamento", "[Matricula] = '" & Me!Matricula & "' and DtSaida = " & Format(Me!DtSaida, "MM/YYYY") & "")

[color=#ff3300]Aqui deveria me retornar a quantidade de registros já existentes na tabela [/color]
QtV = DCount("funcionario", "tblLancamento", "Matricula = '" & Me!Matricula & "'And & Permes = " & Format(Me!DtSaida, "MM/YYYY") & "")
End Sub



Consegui isolar o formulário e as tabelas principais envolvidas no assunto (ao abrir o formulário dará muitos erros mas não irá interferir nos teste referente ao objetivo)

Pode-se notar que o Turon possui dois registros enquanto que Tauron apenas um.

Ao tentar registrar mais um lancamento (para qualquer um dos dois) está retornando 1, sendo que no caso do Turon deveria ser 2.

Seu DCount tinha dois problemas

1 - o And estava colado do '

2 - Você formatou a data apresentada no formulário para apenas mês e ano e usou ela para pesquisar/contar na tabela. Porém, isso 01/2023 (do formulário) não é igual a isso 01/01/2023 (da tabela). Também é necessário dizer a função que o formato da data na tabela deveria mudar para ser comparado/pesquisado/contado.

Código:

DCount("DtSaida", "tblLancamento", "Matricula = '" & Me!Matricula & "' And Format(DtSaida, 'mm/yyyy') = '" & Format(Me!PerAtual, "mm/yyyy") & "'")

Muitíssimo obrigado Damasceno Jr.

Agora irei implementar algumas rotinas .