[Resolvido]Numeração Personalizada

Olá, Amigos.

Estou trabalhando para realizar uma numeração especial para controle de Membros de uma Igreja. O que eu preciso é que a numeração seja igual ao exemplo:

Numeração Automática - Nome Membro
J-0001 João Marcos
A-0002 Adriana Rodrigues

Para cada nome de cada membro o sistema terá que pegar a primeira Letra e adicionar um numeral.

Mas ainda não vi nenhum exemplo destes. Aguardo resposta. Desde já agradeço.

Nesse caso, talvez seja melhor usar campo texto no lugar da AutoNumeração. No seu formulário, colocar assim:

Me.Código = Left(Me.Nome, 1) & "-" & Right(DMax("Código", "NomeTabela"), 4) + 1

Coloque o formato do campo apropiado para imprimir o número correto na tabela.

Pode ser assim ?

http://www.speedyshare.com/files/27551906/teste.rar

Está feito encima do Joelho. O Criquio já deu a dica , mas só para não perder o que fiz

Public Function ContaRegistro(strCampo As String, NomeTabela As String) As String
Dim strMax As String
strMax = DMax(strCampo, NomeTabela)
ContaRegistro = "AM-" & Right(strMax, Len(strMax) - InStr(1, strMax, "-")) + 1
End Function

Valew, é isso mesmo que eu precisei. Obrigado a todos.

Desculpe Mestre, quando postei não reparei que também o tinha feito também, foi ao mesmo tempo

Então assunto terminado

Tambem desculpo aos dois, estava com o Access aberto e fiz tambem no joelho.

No meu programa, está dando um erro de copilação e não acho o problema..

E qual é o erro? Aponta para que linha?

Usando o modelo do amigo acima que está em anexo.

no meu programa, ele dá erro de copilação no "me.ID" (funçao ou membro não econtrado)

Exemplo do VBA:

Private Sub NomeMembro_AfterUpdate()
Me.NumeracaoPersonalizada.Value = UCase$(Left(Me.NomeMembro, 1)) & "-" & "000" & Me.ID
Me.NumeracaoPersonalizada.Requery
End Sub

Olhe nas referências se não tem alguma escrito AUSENTE. Se tiver, desabilite-a e teste novamente,

Mas onde encontro estas referencias, que sou leigo em VBA..

É na janela do vba, aonde você digita os códigos, como esse que deu o problema. Clique em Ferramentas, no menu, e escolha Referências.

Você tem o campo ID de autonumeração na tabela ?

Esse campo não deve exitir na sua tabela, tem de acrescentá-lo lá.

Olá JPaulo, por gentileza, vc sabe dizer-me se esse exemplo ainda está disponivel em algum outro lugar, pois precisava de algo parecido, mas o link está off. Ignore minha solicitação JPaulo, não tinha visto que o amigo joãomarcos tinha repetido o código do exemplo.
Saudações.