Campo com Auto Numeração com Ano junto 0000/aa

Mais uma dúvida:

É possivel usar um campo com autonumeração com ano junto? Por exemplo:

Tenho o campo nprocesso nesse formato: 0001/12

gostaria que o campo fosse auto numerado dessa forma: 0002/12, 0003/12, 0004/12....

Mas que na mudança do ANO voltasse ao nº 0001/13, 0002/13, 0004/13,..

Da pra fazer isso num único campo?

Colega boa tarde......vá no no menu busca (acima) e digite "numeração personalizada". irá encontrar vários exemplos do que procura....

CONSEGUI NA INTERNET ESSE CÓDIGO QUE FICOU ÓTIMO:


TABELA : TblNumAno
FORM: FrmNumAno
CAMPOS: NumAno (texto) 'coloque no Valor Padrão = NextNumAno()
Descricao (texto)


MÓDULO: BasNumeracao


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 = Format(Date, "yy")

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

A minha dúvida agora é se ELE VAI FUNCIONAR BEM EM REDE? SERÁ QUE DOIS USUÁRIOS VÃO GERAR O MESMO REGISTRO?

REGRAS DO FÓRUM

1. Tenha paciência com quem coloca aqui as suas duvidas.
2. Clareza nos títulos dos tópicos e duvidas, evite a linguagem MSN.
3. Não colocar diversas vezes a mesma dúvida.
4. Explicar detalhadamente o problema e informar a versão do seu Office + Sistema Operativo.
5. Retorne sempre se deu certo, esse retorno é muito importante.
6. Respeite toda a equipe Staff e demais membros deste fórum.
7. Use sempre o botão Busca, sempre que tiver uma dúvida e antes de abrir tópicos.
8. Não usar palavras como "Urgente". O fórum é livre e ninguém é obrigado a responder com urgência.
9. A publicidade é proíbida e só pode ser feita pelo Administrador ou depois de aprovada pelo Administrador.
10. Se o seu tópico não for respondido, tem o direito de fazer um Up ao final de 24horas!
11. A colocação de Códigos ou Exemplos, devem constar sempre os créditos de quem o elaborou.
12. Fale, não GRITE! Só letras Maiúsculas, na Internet é o mesmo que gritar!

Atenção às regras...

Você vem aqui pedir ajuda, e depois vai na Net buscar códigos para o ajudar-mos ? Isso é ético ?

Veja na sala de Exemplos, aqui mesmo;

http://maximoaccess.forumeiros.com/t72-numeracao-muda-conforme-ano

Bom dia Alexandre, tudo tranquilo......
O que escreveu na busca da net, porque não escreveu no famoso busca do forum como havia lhe dito.....
É tão simples.....quando indicamos é porque soubemos o que indicamos.....não fique chatioado....