[Resolvido]Numeração Personalizada no formulário

Public Function NextNumAno() As String
'Gera o próximo código da tabela de numeração/ano
Dim db As DAO.Database
Dim rst As DAO.Recordset
Dim intYear As Integer
Dim strSql As String

'Ano atual, conforme o sistema
intYear = Year(Date)

'Verifica o último código para o ano
strSql = "SELECT CLng(Left$(NumAno, Len(NumAno)-5)) As Num, " & _
"CInt(Right$(NumAno, 4)) As Ano FROM tab_Entrevista " & _
"WHERE CInt(Right$(NumAno, 4))=" & CStr(intYear) & _
" ORDER BY CLng(Left$(NumAno, Len(NumAno)-5)) DESC"
Set db = CurrentDb()
Set rst = db.OpenRecordset(strSql, dbOpenDynaset)
With rst
    If .BOF And .EOF Then
        NextNumAno = "0001." & CStr(intYear)
    Else
        .MoveFirst
        NextNumAno = CStr(!Num + 1) & "." & CStr(intYear)
        NextNumAno = Format(NextNumAno, "000")
    End If
    .Close
End With
Set rst = Nothing
Set db = Nothing
End Function

Function ProximoNumero() As String
'Função que busca o último número e acrescenta o ano atual

    Dim strSql As String
    Dim rstDoc As DAO.Recordset
    Dim numeroEncontrado As Integer
    
    'Cria a consulta SQL em ordem descendente para que o último numero fique em primeiro
    strSql = "Select NumAno From tab_Entrevista " & _
                "Where (Right(NumAno,4)=" & Format(Date, "yyyy") & ") " & _
                "Order By NumAno Desc"

    'Abre o recordset
    Set rstDoc = CurrentDb.OpenRecordset(strSql, dbOpenDynaset)
    
    'Se encontrou algum numero, valida a quantidade de carateres para excluír o ano
    If rstDoc.RecordCount > 0 Then
        If Len(rstDoc!NumAno) = 5 Then numeroEncontrado = Mid(rstDoc!NumAno, 1, 1)
        If Len(rstDoc!NumAno) = 6 Then numeroEncontrado = Mid(rstDoc!NumAno, 1, 2)
        If Len(rstDoc!NumAno) = 7 Then numeroEncontrado = Mid(rstDoc!NumAno, 1, 3)
        If Len(rstDoc!NumAno) = 8 Then numeroEncontrado = Mid(rstDoc!NumAno, 1, 4)
        If Len(rstDoc!NumAno) = 9 Then numeroEncontrado = Mid(rstDoc!NumAno, 1, 5)
    Else
        numeroEncontrado = 0
    End If

    'Próximo número = numero encontrado +1 mais o ano atual
    ProximoNumero = numeroEncontrado + 1 & Format(Date, "yyyy")

    'Fecha o recordset
    rstDoc.Close
    Set rstDoc = Nothing
End Function