[Resolvido]numeracao sequencial

NADIRONUNES 19/1/2012, 11:58

NADIRONUNES: Super Avançado; Respeito às regras :

Sexo :
Localização :
Mensagens : 578
Registrado : 30/08/2010

Mensagem nº1

numeracao sequencial

Mensagem NADIRONUNES 19/1/2012, 11:58

Public Function NumeracaoAno() As String
'By JPaulo@2009
Dim fazcodigo(1) As Integer, temporario As Integer

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

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

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

End Function

tenho este modulo e queria que ele funcionasse sem a parte do ano e com 9 digitos

criquio 19/1/2012, 12:31

criquio

criquio: Moderador Global; Respeito às regras :

Sexo :
Localização :
Mensagens : 11229
Registrado : 30/12/2009

Mensagem nº2

Re: [Resolvido]numeracao sequencial

Mensagem criquio 19/1/2012, 12:31

Não seria o caso de apenas formatar o campo chave primária na tabela com 000000000? Assim sendo, basta incrementar um nz(DMax("Código", "NomeDaTabela), 0) + 1

.................................................................................

Meu novo site: www.vcssistemas.com.br

Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.

DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
1 - faça uma cópia do aplicativo
2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
3 - use o Compactar/Reparar
4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)

Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
Positive as mensagens que achar útil, no canto superior direito delas.

criquio 5/5/2012, 13:12