Gerar um protocolo

Boa tarde "Mestres", tudo bem?
Será que alguém poderia me dar uma luz?
Gostaria de gerar um protocolo com as seguintes configurações: MMAAAARegistro (mesanoregistro), por exemplo: 092012001.
Um forte abraço a todos.

Espero que isto te ajude.

DoCmd.GoToRecord , , acNewRec

Dim fazcodigo(1) As Integer, temporario As Integer, I As Integer

fazcodigo(1) = Nz(DMax("Left(CodigoDaRequisicao,4)", "Tbl_Requisicao_Produtos", "Right(CodigoDaRequisicao,4)=Year(Date())"), 0)

For I = 1 To UBound(fazcodigo)
If temporario < fazcodigo(I) Then temporario = fazcodigo(I)
Next

CodigoDaRequisicao = Format(temporario + 1, "0000") & "/" & year(Date)

Agora basta alterares a ultima linha de codigo para o formato que tu pretendes e alterar o campo de preenchimento mais a tabela.

Esse código terei que escrever direto no campo do protocolo ou no formulário? Na aba dados em qual linha devo escrever?

o codigo deves inseri-lo no botao quando faz inserir os dados na tabela.

Não entendi? Estou trabalhando com formulários.

insere o codigo que lhe dei dentro do formulario.