Zerar numeração sequencial ao mudar o ano

Boa tarde Pessoal,
Esta é minha primeira mensagem aqui. Não consegui achar nada a respeito.
Precisa fazer um formulário de numeração de ofícios (Sequencial) mas quando o ano mudar zera a sequencia.
O meu problema é que quando duas pessoas clicam no botão de gerar o número se repete. Precisa esperar pelo menos 1 segundo para não repetir.
Estou postando aqui o meu exemplo.

Agradeço pela oportunidade.
Marcelo

mjuliani25, bom dia""!!

Este procedimento esta sendo realizado em rede? se sim, sugiro que você crie um campo de numeração automática.

att; Sidney

Sidney, boa tarde.

Sim, estou usando em rede. Se utilizo o código "auto numérico", precisarei todo ano criar tabela nova, uma situação que não gostaria que acontecesse. Estou usando um módulo (que achei muito bom) do J. Paulo.

E neste momento fiz uma adaptação (gambiarra), onde ,quando dois usuários clicarem ao mesmo tempo, e, pra quem não pegou o número, retorna mensagem que a sua "sessão expirou". Ao clicar novamente faço o formulário atualizar e fica normal.

Obrigado

Marcelo

Julian
Cole este código num módulo

Código:

Public Function ContadorDeRegistos(strCampo As String, strsql As String)
'Autor: Carlos em 20/01/99 e-mail: crpmoura@ig.com.br
'Contador de registos personalizado no formato numero/ano
Dim strNum As String, db As Database
Dim strMax As String, CampoAno As String
Dim AnoData As String, tbl As Recordset

Set db = CurrentDb
'Ano tirado da data do sistema
AnoData = Format(Date, "yyyy")
   
    'Abre a Tabela
    Set tbl = db.OpenRecordset(strsql)
    'Se não há registos na tabela
    If tbl.RecordCount = 0 Then
    'Primeiro registro
    ContadorDeRegistos = 1 & "/" & AnoData
 Else
    'pega o  registro
    strMax = tbl(strCampo)
    'Pega o ano
    CampoAno = Mid(strMax, (InStr(1, strMax, "/")) + 1, 4)
    'Aqui testo o Ano do último registro com o do sistema
    'Se  for igual continue a contagem se não...
    If CampoAno = AnoData Then
      strNum = left(strMax, (InStr(1, strMax, "/") - 1)) + 1
      ContadorDeRegistos = strNum & "/" & AnoData
    Else
      MsgBox "O sistema iniciará uma nova contagem dos registos" _
              & vbCrLf & " em função da virada do ano", vbInformation, "ATENÇÃO"
      ContadorDeRegistos = 1 & "/" & AnoData
    End If
End If
'formata o número
'ContadorDeRegistos = StrZero(ContadorDeRegistos, 10)
tbl.Close
Set db = Nothing
End Function


Este código fica no form que tem a contagem

Código:

[code]Dim sql As String
sql = "SELECT [seu ID],[Seu Campo]"
sql = sql & " FROM [Sua Tabela]"
sql = sql & " ORDER BY [Seu ID] DESC"
Me.[Seu Campo] = ContadorDeRegistos("[Seu Campo]", sql)
Err[/code]

O campo da tabela de tem de ser Tipo texto

Espero que resulte


Luís Anrtunes

mjuliani25 escreveu:Não consegui achar nada a respeito.

uma pesquisa e no fórum achei os links abaixo. veja se ajuda
https://www.maximoaccess.com/t1540-resolvidoformula-de-numeracao-automatica
https://www.maximoaccess.com/t19791-numero-automatico-reeinicar-o-contador-quando-mudar-o-ano
https://www.maximoaccess.com/t25133-resolvidoreiniciar-numeracao-no-inicio-do-ano
https://www.maximoaccess.com/t2054-resolvido-zerar-numeracao-automatica-a-cada-ano

da uma olhadinha neste exemplo do Plinio Mabesi.

Boa noite Pessoal!

Valeu pelas dicas, consegui adpatar o modelo do Plinio Mabesi que foi postado pelo Tauron utiliando o padrão 0000/aa.

Alguem poderia, por favor, finalizar este post. Parece que nosso amigo Bruno já está satisfeito com o reultado.