[Resolvido]Contar registros no access com data de hoje

Amigos, quem pode me ajudar?

Fiz uma base de cadastro no access, conforme PDF em anexo para cadastrar alguns itens.
Eu preciso que na caixa de texto "CUBAGEM DO DIA" mostre a quantidade de registros do dia de "HOJE", mas não sei como fazer isso.
Para contar todos os registros, independente da data estou usando a expressão abaixo e deu certo:
=DContar("[ITEM]";"Relatório de Cubagem Peças")

Agora não sei qual expressão usar para que conte apenas os registros inseridos no dia de hoje.

Tabela:
DATA CADASTRO    CATEGORIA    TIPO EMBALAGEM    ITEM
15/07/2019            FLEXÍVEL        PLÁSTICO BOLHA    71102-TEM-M00  
15/07/2019            FLEXÍVEL        PLÁSTICO BOLHA    74157-T7T-M00
15/07/2019            FLEXÍVEL        PLÁSTICO BOLHA    71102-TEM-M10
16/07/2019            SÓLIDA           CAIXA PLÁSTICA      51621-T7T-M01
16/07/2019            FLEXÍVEL        PLÁSTICO BOLHA    71125-TRY-M00
22/07/2019            FLEXÍVEL        PLÁSTICO BOLHA    71103-TM6-M00
22/07/2019            FLEXÍVEL        PLÁSTICO BOLHA    71103-T9L-M00

No aguardo da ajuda dos amigos...


Construtor de expressões:
=DContar("[ITEM]";"Relatório de Cubagem Peças")

Olá RGomes, tente isso:

=DCount("[InformeAquiOCódigo]", "InformeAquisuaTabela", "[InformeAquioCampoQuedesejaPesquisar] = 'InformeAquioValorQueDesejaPesquisar'")


Espero ter ajudado.

boa sorte !!

Alexandre, fiz o código conforme abaixo, mas não conta os registro inseridos hoje.

=DContar("[ITEM]";"Relatório de Cubagem Peças";"[TxtDtCadastro]='hoje()'")

O campo fica zerado.

Informe a data, conforme abaixo:

=DContar("[ITEM]";"Relatório de Cubagem Peças";"[TxtDtCadastro]=#29/07/2019#")

Amigo, não deu certo.

quando uso =DContar("[ITEM]";"Relatório de Cubagem Peças";"[TxtDtCadastro]='#DATA()#'") o campo fica zerado.

quando uso =DContar("[ITEM]";"Relatório de Cubagem Peças";"[TxtDtCadastro]='#15/07/2019#'") o campo fica zerado.

quando uso =DContar("[ITEM]";"Relatório de Cubagem Peças";"[TxtDtCadastro]=#29/07/2019#") o campo mostra o total sem considerar a data especifica.

RGomes,

Particularmente, não utilizo essas funções do Access, mas acredito que vc deve colocar a data no formato "mm/dd/yyyy".

TxtDtCadastro é o campo da sua tabela?


Exemplo:

=DContar("[ITEM]";"Relatório de Cubagem Peças";"[TxtDtCadastro]=#07/29/2019#")


Tente isso.

Você tá usando a função na propriedade do campo?


boa sorte

Faça o seguinte, no campo "DATA CADASTRO", na propriedade Após Atualizar, coloque o seguinte código:

Call ContarDias


No mesmo formulário, copie e cole o código abaixo:

Código:



Function ContarDias() As Variant
On Error GoTo trata_erro
Dim db          As DAO.Database
Dim rs          As DAO.Recordset
Dim sSQL        As String

    Set db = CurrentDB
   
    sSQL = "SELECT COUNT(ITEM) as TOT_REG FROM [Cubagem Pecas] WHERE [DATA CADASTRO] = #" & Format(Date, "mm/dd/yyyy") & "#"
    Set rs = db.OpenRecordset(sSQL)
   
    Me.[SeuCampoDaTela] = rs("TOT_REG").Value
   
    rs.Close
    Set rs = Nothing
   
    Exit Function
   
trata_erro:
    MsgBox "Erro gerado: " & Err.Number & " - " & Err.Description & "", vbCritical, "Erro!!!"
    Exit Function

End Function



Boa Sorte

Infelizmente não deu certo!
Sou muito fraco em programação!



TxtDtCadastro é o campo da sua tabela?
SIM, ELE É UM CAMPO COM VALOR PADRÃO "=Data()" , POIS QUERO QUE AO ABRIR O FORMULÁRIO OS CADASTROS JÁ FIQUEM COM A DATA DO DIA.


Você tá usando a função na propriedade do campo?
ESTOU USANDO ESSA FUNÇÃO DIRETAMENTE NA FONTE DO CONTROLE DE UM CAMPO CRIADO NO FORMULÁRIO DO ACCESS

Ok Rogério,

Para resolver seu problema é simples, mas tem algum enrosco ai.
Por gentileza, se possível poste aqui seu banco de dados (somente partes envolvidas) para solucionarmos.

Grato

[]'s

Agradeço a tentativa em ajudar, mas o arquivo access está com quase 8 mb e aqui tem limitação de tamanho para envio.

Vou tentar arrumar de outras formas.

Alexandre, Bom dia.

Segue base zipada para avaliação do amigo.

Quero que no campo cubagem do dia conte os registros do dia de hoje e no campo cubagem total conte todos os registros.

Se puder me ajudar eu agradeço.

Olá Rgomes,

Não conseguir mexer no seus sistema pq aqui no cliente não tem Access na máquina que eu trabalho.
Posso fazer em casa e em seguida te mandar, ok !!

Mas nada impede que os amigos aqui do fórum também possam te ajudar.

[]'s

Resolvido usando

Código:

=DContar("[item]";"Relatório de Cubagem Peças";"[DATA CADASTRO]=#" & Format(Data();"mm/dd/yyyy") & "#")

Muito obrigado Ivan e todos que me ajudaram.

FUNCIONOU!!!

GRUPO SHOW!!!

Valeu Rgomes !!!
boa sorte !!

Grande IvanJR,
Como sempre, a postos em ajudar !!!

O fórum agradece o retorno. Sucesso.

Alexandre: