[Resolvido]Contador com Numeração Automática/ Mês/Ano!

Pessoal, Boa Tarde!
Consegui um código aqui no fórum a muito tempo que me foi útil em quase 100% neste momento e gostaria se possível adaptar para minha necessidade.
Copiei este Código(Módulo) onde consigo retornar no campo que quero numerar o número do ID da Tabela + o ano atual, sendo que na virada do ano é reiniciado a numeração partindo do início. Segue exemplo onde funciona na perfeição:

Registro
ID: 12 , retorna 0012/2014
ID: 13 , retorna 0013/2014 e assim por diante.
Quando da virada do ano, segue:
Exibe uma mensagem avisando que o ano virou e será iniciado uma nova contagem. Segue:
ID: 234, retorna 0001/2015 (isto na virada do ano).

O que quero seria incluir o MÊS no meio desta numeração, como segue:

ID: 12, retorna 0012.02/2014 (Este seria o mês de fevereiro), segue o módulo:

Public Function ContaRegistros(strCampo As String, strSql As String)

Dim strNum As String, db As Database
Dim strMax As String, CampoAno As String
Dim AnoData As String, tbl As Recordset

Set db = CurrentDb

AnoData = Year(Date)
   
 
   Set tbl = db.OpenRecordset(strSql)
   
   If tbl.RecordCount = 0 Then
 
   ContaRegistros = 1 & "/" & AnoData
Else
   
   strMax = tbl(strCampo)
 
   CampoAno = Mid(strMax, (InStr(1, strMax, "/")) + 1, 4)
 
   If CampoAno = AnoData Then
      strNum = left(strMax, (InStr(1, strMax, "/") - 1)) + 1
      ContaRegistros = strNum & "/" & AnoData
   Else
      MsgBox "O sistema iniciará uma nova contagem dos registros" _
             & vbCrLf & " em função do ano ter mudado", vbInformation, "ATENÇÃO..."
      ContaRegistros = 1 & "/" & AnoData
   End If
End If
ContaRegistros = StrZero(ContaRegistros, 10)
tbl.Close
Set db = Nothing
End Function

Gostaria de saber onde entraria o mÊs neste código.

desde já agradeço,

Bom dia AP,

Eu fiz algumas alterações no código, porém não pude testar pois não tenho Access instalado, dê uma olhada:

Código:


-- Sempre defina o tipo de retorno das funções, caso contrário sempre retornará tipo Variant (ocupa mais espaço na RAM)
Public Function ContaRegistros(strCampo As String, strSql As String) As String
    Dim strNum As String, db As Database, tbl As Recordset
    Dim strMax As String, CampoAno As String
    Dim MesData As String, AnoData As String
    
    Set db = CurrentDb
    
    MesData = Month(Date)
    AnoData = Year(Date)
    
    Set tbl = db.OpenRecordset(strSql)
    
    If tbl.RecordCount = 0 Then
        ContaRegistros = 1 & "." & MesData & "/" & AnoData
    Else
       strMax = tbl(strCampo)
       CampoAno = Mid(strMax, (InStr(1, strMax, "/")) + 1, 4)
      
       If CampoAno = AnoData Then
          strNum = Left(strMax, (InStr(1, strMax, "/") - 1)) + 1
          ContaRegistros = strNum & "." & MesData & "/" & AnoData
       Else
          MsgBox "O sistema iniciará uma nova contagem dos registros" _
                 & vbCrLf & " em função do ano ter mudado", vbInformation, "ATENÇÃO..."
          ContaRegistros = 1 & "." & MesData & "/" & AnoData
       End If
    End If
    
    ContaRegistros = StrZero(ContaRegistros, 10)
    tbl.Close
    
    Set db = Nothing
End Function


Perfeito!
Funcionou na totalidade. Muito agradecido...
Em breve vou postar o BD para exemplo.
Mais uma vez muito grato,

Amigos do fórum! Estou com um problema no código que nosso amigo Marco Messa, gerou uma adaptação onde testei e funcionou como mencionado em post anterior, mas agora está com um erro.

O número sequencial é acrescido de valores multiplicados.

Ex:
Primeiro lançamento nº 00001.4/2014 (Onde 1 é o registro, o 4 é o mês e 2014 é o ano)
No próximo lançamento me retorna 00015.4/2014 (Acrescentou 14 números)
No Próximo lançamento me retorna 00155.4/2014 (Acrescentou 140 números)
No próximo lançamento me retorna 01555.4/2014 (Acrescentou 1400 números), ou seja está multiplicando o últimovalor acrescido por 10 ( ex: 14x10, 140x10 e assim sucessivamente).
Caso alguém possa me ajudar nesta questão.
Marco Messa , se puder testar.
Fico no aguardo e desde já agradeço,
Att

...

...

Alessandro

Experimente esse código que modifiquei para você de um outro tópico que ajudei.

Lembrando que o campo do código é texto.

Experimente adaptá-lo ao teu código

Abraços

Noob

consegue converter para 2003?
Desde já agradeço

Oops , esqueci de colocar em mdb também


Mas taí


Abraços

Noob

Noobezinho, muito grato pela atenção. Já salvei como exemplo aqui.
Mas tem um porém. Funciona para todo o ano, mas quando virar o ano ele dá continuidade na sequencia dos registros. Ex:

000324.12.2014 este seria o último registro de 2014, quando vou inserir o 1º em 2015, me retorna 000325.1.2015, onde na verdade quero que fique como 00001.1.2015 e no código que postei anteriormente faz desta maneira. O que me intriga é que estava funcionando e não consigo identificar onde alterei que não consigo retomar.
Mai uma vez muito obrigado

Boa noite amigo, ve se da certo esse..

Fernando Amigão exatamente isso. Vou adaptar ao meu projeto.
Mai uma vez fico grato,
Ao Noob fico grato pela atenção e ajuda.
Att,

Agradecemos o retorno... Sucesso!!