[Resolvido] Contar data em uma coluna.

Bom dia galera! Estou iniciando em ACCESS, então paciencia. haha
Antes de postar minha dúvida, vou colocar meu objetivo final já aqui.

Eu pretendo que toda a vez que eu clique no botao criar novo registro, seja gerado um codigo no campo CODIGOINTERNO do meu formulario, esse codigo servira como o nome do meu novo registro cadastrado.

Enfim, como é esse codigo.

Seria o numero 9 + a data sem barras + a quantidade de registros no dia.

Entao por exemplo, se hoje eu cadastrei 5 registros e vou adicionar mais um.

Seria: 9 + 231013 + 06 = 923101306

Amanha o primeiro seria:
9 + 241013 + 01 = 924101301

Beleza.

Meu primeiro passou foi tentar contar, na coluna que contem as datas que foram cadastrados os registros, quantas datas são iguais ao dia de hoje.
Ou seja, sabendo quantas datas iguais a hoje tenho na minha coluna, saberei quantos projetos foram cadastrados hoje.
Função igual ao cont.se do excel, eu ja sei que não existe, dei uma pesquisada na internet e cheguei nessa formula aqui em uma caixa de texto.

=Sum(Iff([TAB_BancodeDados]![DATAINSERCAO] = Data(),1,0))

Já com o nome da minha coluna.

Esta dando erro de sintaxe :/
Tentei outras formas e nada, mas partindo daí.

Resolvendo isso, minha ideia era.
(Se fosse igual excel)
Ao Clicar em novo registro, no campo codigo interno já automaticamente
Concatenar o 9 + a data sem barras (ainda nao pensei nisso, mas talvez concatenar Dia + Mes + Ano) + A contagem da fórmula acima acrescentada de 1

Resumindo
Então se houvessem 5 registros cadastrados hoje.
Contaria 5, e ao clicar em novo registro o codigo gerado seria 923101306

Espero que tenha feito entender.
E obrigado pela paciencia e atenção!

Editando: Usei ponto e virgula no lugar das virgulas e ja acabou o problema de sintaxe, mas ainda não funciona :/

Bom dia colega, seja bem vindo ao fórum.

Poste um modelo do teu bd com as tabelas envolvidas para que possamos ver isto pra ti.

Cumprimentos.

Ainda estou começando, mas, segue

Muito obrigado pelo exemplo.
Vou estudar e trabalhar em cima dele, e qualquer coisa retorno aqui.

Boas Lupercio aguardaremos ver se ele consegue adaptar do Seu.

Obrigado.

1 - Estou entendendo, mas será que poderia me explicar o que acontece nesses 3 codigos? Não estou associando a necessidade deles, nem como eles rodam.

2 - As consultas tem necessidade? Pois fico com medo de depois que houver muito registro pesar o banco.

Private Sub Data_Teste_Exit(Cancel As Integer)
Me.Refresh
Me.Recalc
Me.TxTeste = DLast("[expr1]", "[C_Rdata]")
Me.TxtData = Me.Data_Teste
EndSub

-

Private Sub CODIGOINTERNO_Exit(Cancel As Integer)

Me.TxTeste = DLast("[expr1]", "[C_Rdata]")
Me.Refresh
Me.Recalc
End Sub

-

Public Sub filtro()

If CODIGOINTERNO <> "" Then
f1 = "[TxTeste] Like '*" & CODIGOINTERNO & "*'" 'Busca Campo1
f1 = f1 & " Or [TX_001] Like '*" & CODIGOINTERNO & "*'" 'Busca Campo2
f1 = f1 & " Or [TxtData] Like '*" & CODIGOINTERNO & "*'" 'Busca Campo3
Else
f1 = ""
End If


FilterOn = True

End Sub

Desculpe amigo esse último código pode deletar.
Public filtro!

Boas Piloto, como vai amigo? Espero que esteja bem!
Piloto por favor exclui as mensagem 4 para não poluir o fórum, obrigado!




Veja:
Private Sub Data_Teste_Exit(Cancel As Integer)
Me.Refresh
Me.Recalc
Me.TxTeste = DLast("[expr1]", "[C_Rdata]")
Me.TxtData = Me.Data_Teste
End Sub

Após você digitar a data no formulário,
Ao sair do campo:
Me.Refresh
Me.Recalc
Atualiza os dados.

Me.TxTeste = DLast("[expr1]", "[C_Rdata]")       Busca o último registro da consulta atualizado com a contagem da mesma.
Me.TxtData = Me.Data_Teste                           Me.TxtData essa caixa de texto , repete a data que você digitou.

Ao entrar no campo: CODIGOINTERNO

Me.CODIGOINTERNO = [TX_001] & [TextDia] & [TextMes] & [TextAno] & [TxTeste]  inseri os dados filtrados pelas caixas de texto, no campo: CODIGOINTERNO


Deletei o que não precisava.

Segue o bd exemplo novamente.

Consegui!
Com um pouco de paciencia para a leitura e com a ajuda de vocês consegui.
Vou colar aqui embaixo meu codigo adaptado para o que eu queria,
para conhecimento

Private Sub novoregistro_Click()
On Error GoTo Err_Novo_Click


DoCmd.GoToRecord , , acNewRec
Me.DATAINSERCAO = Date
Me.Refresh
Me.Recalc
Me.CodigoPolo = "09"
Me.ContaProjetos = DLast("[Expr1]", "[CON_Contar]")
If DLast("[Expr1]", "[CON_Contar]") < 10 Then
Me.CODIGOINTERNO = [CodigoPolo] & [TextDia] & [TextMes] & [TextAno] & "0" & [ContaProjetos]
Else
Me.CODIGOINTERNO = [CodigoPolo] & [TextDia] & [TextMes] & [TextAno] & [ContaProjetos]
End If
Exit_Novo_Click:
Exit Sub

Err_Novo_Click:
MsgBox Err.Description
Resume Exit_Novo_Click


End Sub

O fórum agradece o retorno!

Boa mandada Lupercio!

Cumprimentos.

Obrigado Piloto,