Sistema de geração de números

Bom dia Mestres!

Venho mais uma vez recorrer ao conhecimento de vocês. Preciso desenvolver um sisteminha para que os funcionários possam pegar, pela rede, números sequênciais que serão usados para elaboração de ofícios, na tabela, onde ficará registrado, deve conter o seguintes campos número/ano; data; setor e nome (funcionário), até aí tudo bem. Ocorre que na maioria das vezes um único funcionário tem que pegar varios números de uma só vez, e eu gostaria de elaborar um fomulário para a geração destes numeros, por exemplo: De número 1/2013 A 10/2013; data(); setor; nome. Atualmente uso uma planilha do excel, mas está se tornando obsoleta, pois todo ano tenho que montar outra planilha e renumerar, além de que as vezes alguns setores esquencem ela aberta e minimizada, impedindo que outro setores possam gravar dados nela.
De ante mão agradeço.

Bom dia Marcelo !

De uma olhada nesse Link.

Adapte os campos necessários para a execução do mesmo. Use o evento ao abrir do teu fomulário ou em um botão !

Bons estudos e sucesso.

Silvio

Csso não tenha entendido..uma explicação:

Private Sub Form_Load()
DoCmd.GoToRecord , , acNewRec
Dim fazcodigo(1) As Integer, temporario As Integer, I As Integer
fazcodigo(1) = Nz(DMax("Left(idcliente,4)", "Tblcliente", "Right(,4)=Year(Date())"), 0)
For I = 1 To UBound(fazcodigo)
If temporario < fazcodigo(I) Then temporario = fazcodigo(I)Next
nCliente = Format(temporario + 1, "0000") & "/" & Year(Date)
End Sub

Onde:

a- idcliente --> chave primária da tabela em questão.
b- Tblcliente --> tabela.
c- ncliente --> campo que eu desejo onde ocorra a auto numeração.