[Resolvido]Numeração sequencial

Boa tarde senhores!

Depois de algum tempo afastado é com prazer que retorno ao fórum para apreender com os senhores.

Tenho um BD com o Formulário Frm_Credencial que possui um campo Nr_Credencial que é digitado manualmente.

Gostaria que ao inserir um registro novo esse campo fosse preenchido de forma sequencial com base no último número cadastrado na tabela Tbl_Credencial, campo Nr_Credencial.

Por exemplo se o ultimo número (texto) foi 005 gostaria de obter, de forma automática o preenchimento do campo com 006 para o próximo registro.

Obrigado!

Seja Bem vindo de volta ao Fórum!

Temos uma porção de exemplo sobre sua dúvida! De uma pesquisada na sala repositórios e veja qual lhe agrada mais lhe agrada.
https://www.maximoaccess.com/search?search_keywords=numera%C3%A7%C3%A3o+em+falta&search_where=f7

Obrigado Fabio Paes pela disponibilidade em ajudar.

Tentei adequar o exemplo do BD "Numeraçao muda conforme ano" pois é mais ou menos isso que preciso, no entanto não funcionou devido o meu desconhecimento em programação

Estou anexando o BD que possui o formulário Frm_Credencial.
O campo que gostaria que possuísse numeração automática chama-se Nr_Credencial no formato "0000" e não "000/ano) conforme o exemplo do fórum.
A data não vem do sistema e sim do campo Dt_Expd_Credencial.

Como disse copiei o modulo "modnumeraçãoano" e adaptei da seguinte maneira.

Public Function NumeracaoAno() As String

Dim fazcodigo(1) As Integer, temporario As Integer

fazcodigo(1) = Nz(DMax("Left(Nr_Credencial,3)", "Frm_Credencial", "Right(Nr_Credencial,4)=Year(Date())"), 0)

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

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

End Function

No formulário coloquei

Private Sub Form_Open(Cancel As Integer)
DoCmd.GoToRecord , , acNewRec

If Not IsNull(Me.Nr_Credencial) Then
Exit Sub
Else
Me.Nr_Credencial.Value = "0000" & "/" & year(Date)
End If
End Sub

Apareceu 0000/2018 no campo Nr_Credencial, mas não atualiza ao inserir um novo registro e, no meu caso, seria somente 0001, 0002, etc uma vez que a data já está em outro campo.

obrigado pela disponibilidade

Olá, como a sua numeração Não tem nenhum critério (Será apenas o Ultimo+1), não precisa nem de Função para isso!

Basta no Botão de Salvar, ou em outro evento que mais se adequar ao seu Aplicativo, colocar esse comando:


Me.Nr_Credencial = Format(Nz(DMax("Nr_Credencial", "Tbl_Credencial"), 0) + 1, "0000")


Explicando o Comando:

DMax("Nr_Credencial", "Tbl_Credencial"): irá pegar o Maior valor do campo Nr_Credencial da tabela Tbl_Credencial

Nz(DMax("Nr_Credencial", "Tbl_Credencial"), 0): Utilizo o NZ(,0) para se caso não houver nenhum numero (For nulo o resultado) ele considere o valor como 0 (Zero).

Format(Nz(DMax("Nr_Credencial", "Tbl_Credencial"), 0) + 1, "0000"): Utilizo o Comando Format() para formatar o valor para o padrão que precisa (0000).

Obrigado Fábio Paes
Mais uma vez agradeço a disponibilidade do fórum.
Valeu

Grato pelo retorno e até a próxima se Deus quiser!