'Contador no formato numero/ano
Public Function ContadorDeRegistros(strCampo As String, strSQL As String)
    'Autor: Carlos em 20/01/99 e-mail: crpmoura@ig.com.br
    'Contador de registros 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 = Year(Date)

    'Abre a Tabela
    Set tbl = DB.OpenRecordset(strSQL)
    'Se não há registros na tabela
    If tbl.RecordCount = 0 Then
        'Primeiro registro
        ContadorDeRegistros = 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
            ContadorDeRegistros = strNum & "/" & AnoData
        Else
            MsgBox "O sistema iniciará uma nova contagem dos registros" _
                & vbCrLf & " em função da virada do ano", vbInformation, "ATENÇÃO"
            ContadorDeRegistros = 1 & "/" & AnoData
        End If
    End If
    'formata o número
    ContadorDeRegistros = StrZero(ContadorDeRegistros, 10)
    tbl.Close
    Set DB = Nothing
End Function  

quote:

---

Postado originalmente por jrlopes:
Paulo;

Desculpa, mas não estou a conseguir. Cada vez me convenço mais que não percebo nada de access. Será pedir muito que me mandes ficheiro de exemplo para eu ver e entender o que devo fazer. Obrigado e aproveito para expressar a minha admiração por toda a gente que está disponivel para ajudar.
JRLopes@iol.pt

---

Else
        tbl.MoveLast   'foi acrescentado
        'pega o registro
        strMax = tbl(strCampo)
        'Pega o ano
  

 'formata o número
   'ContadorDeRegistros = StrZero(ContadorDeRegistros, 10)
    ContadorDeRegistros = Trim(ContadorDeRegistros)