[Resolvido]Contador Recomeçar Em Um Novo Mês

Olá pessoal!

Tenho uma tblRegistro que é alimentada a partir de um formulário. Além do campo "idRegistro" (chave primária) tenho também outro campo chamado "seqMes". Este campo "seqMes" deve recebe, a partir do início de cada mês, uma sequência de número começando de 1. Gostaria que quando o mês virá este número recomeçasse do 1 automaticamente, para eu não precisar colocar manualmente.

Grato

Ronaldo Costa

Olá Ronaldo, será qualquer coisa como mumeracao que muda ao ano.
Não falta exemplos, Veja:
https://www.maximoaccess.com/t20018-resolvidonumeracao-muda-conforme-ano-0000-ano-atual

Será adapatar para a inicialiazaçao com a mudsnça de mês (ou data selecionada.)

Sou da opinião que deve manter o Id do registo (numeraçao automática) e criar um novo campo para a numeração.

Fica a minha opinião, qualquer coisa estamos cá.

Abraço

Ok que, foi o que fiz.
Mantive o campo numeração automática e consegui o que queria.

Obrigado

Olá, pode partilhar como resolveu.
Os utilizadores do fórum agradecem.

Nota, não se esqueça de dar o tópico como resolvido.
Abraço

Desculpem-me!

Na verdade, eu precisava que uma mesma sequência seguisse até o final do mês ao registrar uma saída de caixa ou uma entrada, ou seja, uma mesma sequência para duas tabelas diferentes. Assim: digamos que fiz o registro de 10 entradas, a sequência seguiu de 1 a 10, aí ao fazer o registro de uma saída, esse primeiro registro de saída recebe a sequência 11. Se voltar às entradas será gerado a sequência 12 e assim vai...

O que fiz:
-Crie uma consulta união com as duas tabelas usando os campos "seq" (que recebe a sequência) e o campo "refContador" (format(data(),"yyyymm"), capta o Ano/Mês da data do registro); estes campos, comuns às duas tabelas.
-Criei uma função que capta o maior valor da consulta união e caso o ano/mês da data atual não seja encontrado na consulta, o contador começa do 1 ou se o ano/mês se achar na consulta o contador acrescenta 1 ao ultimo valor encontrado.
-Coloquei a função na propriedade "valor padrão" de cada formulário e pronto.

Segue a função que criei.

Public Function fncContador()
Dim intContadorRegistro As String
Dim strSeqMes As Variant

On Error GoTo erroVazio

intContadorRegistro = DMax("[seq]", "cstContador")
strSeqMes = DMax("[refContador]", "cstContador")

If strSeqMes = Format(Date, "yyyymm") Then
fncContador = intContadorRegistro + 1
Else
fncContador = 1
End If
Exit Function

erroVazio:
fncContador = 1

End Function

Olá Ronaldo Costa, obrigado pelo retorno.
Os utilizadores do fórum agradecem.

Não se esqueça de dar o tópico como resolvido, veja como fazer:
https://www.maximoaccess.com/t860-resolucao-de-topicos
Abraço

OK!