[Resolvido]Auto Numeração com letra no começo (SP Ano - "0000")

Olá a todos

Eu verifiquei no fórum sobre auto numeração encontrei, só nesse formato do JPaulo

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

Mas eu estou precisando no seguinte formato
Tenho um campo com nome (Nome do Setor)dentro do Formulario (Fcomfiguração) que cada usuário preenche com a região de trabalho SP, RJ,SC....
Gostaria de criar com o formato do auto numeração (SP) year(Date) “0000” assim SP2011/0001 de acordo com a região escolhida

Fico muito Grato pela ajuda

no evento onde vais aplicar a numeraçaoautomatica coloca:

me.CampoaReceberNum = me.NomedoSetor & " " & NumeracaoAno

Oi Bitabit

Não deu certo o campo que esta SP (nomedosetor) esta em outro fomulario (Fcomfiguração) da erro

Grato

Tente assim:

NumeracaoAno = Forms!Fconfiguração!nomedosetor & Format(temporario + 1, "000") & "/" & year(Date)

Oi Criquio

Desculpa como sou leigo nesse assunto, fiz assim mas não deu certo, confirma se é isso mesmo.

Option Compare Database

Public Function NumeracaoAno() As String

Dim fazcodigo(1) As Integer, temporario As Integer
fazcodigo(1) = Nz(DMax("Left(Código,3)", "Manutenção", "Right(Código,4)=Year(Date())"), 0)


For I = 1 To UBound(fazcodigo)

If temporario < fazcodigo(I) Then temporario = fazcodigo(I)
Next

NumeracaoAno = Forms!Fconfiguracao!CaixaSetor & Format(temporario + 1, "000") & "/" & year(Date)


End Function

Você precisa ver o tipo de dados do seu campo. Como você está incluindo letras, se for tipo número poderá dar erros. Teste em uma cópia do aplicativo, mudar o campo para texto.

Bom dia Criquio

o campo esta como Texto

essa outra linha continua assim mesmo

fazcodigo(1) = Nz(DMax("Left(Código,3)", "Manutenção", "Right(Código,4)=Year(Date())"), 0)



Option Compare Database

Public Function NumeracaoAno() As String

Dim fazcodigo(1) As Integer, temporario As Integer
fazcodigo(1) = Nz(DMax("Left(Código,3)", "Manutenção", "Right(Código,4)=Year(Date())"), 0)


For I = 1 To UBound(fazcodigo)

If temporario < fazcodigo(I) Then temporario = fazcodigo(I)
Next

NumeracaoAno = Forms!Fconfiguracao!CaixaSetor & Format(temporario + 1, "000") & "/" & year(Date)


End Function

Abraço

Informe o seguinte:

1 - Aparece alguma mensagem de erro?
2 - Se sim, mostra que linha no vba?
3 - É gravado alguma coisa no campo?
4 - Se sim o que é gravado no campo?

está informando Erro em tempo de execução '2450':

nesta linha: NumeracaoAno = Forms!Regiao!UF & Format(temporario + 1, "000") & "/" & year(Date)

Eu estou postando para ficar mais fácil. O negocio ta deixando eu loco rsrsrsrrssr

http://www.4shared.com/file/NJjb1lQY/exemplo.html

Obrigado por estar ajudando

Tentei outros formatos mas não deu certo

NumeracaoAno = [Forms]![Regiao]![UF] & Format(temporario + 1, "000") & "/" & Year(Date)

só que aparece assim no campo 001(Forms Regiao!UF)2011 e não cria outro registo

Eis sua solução amigão.. estude e observe a lógica usada na mesma..


Public Function NumeracaoAno() As Variant
Dim fazcodigo(1) As String, temporario As String 'As Variáveis foram aplicadas em String para não gerar incompatibilidade
fazcodigo(1) = Nz(DMax("Left(Código,3)", "Manutenção", "Right(Código,4)=Year(Date())"), 0)

For I = 1 To UBound(fazcodigo)

If temporario < fazcodigo(I) Then temporario = fazcodigo(I)
Next

temporario = Nz(DMax("Mid(Código,3,3)", "Manutenção")) 'Aplicada esta linha para adicionar à variável o último numero na tabela

If IsNull(temporario) Or temporario = "" Then GoTo Continuar 'Esta linha foi adicionada pois se for o primeiro registro
'A linha acima retorna um valor nulo gerando erro, então quando
'for inserir o primeiro registro ela remete para o código
'Continuar, que não tem a linha temporario = Nz(Dmax(.......


NumeracaoAno = Forms!Regiao!UF & Format(temporario + 1, "000") & "/" & year(Date)
Exit Function 'Encerra a função para não continuar o código, pois foi encontrado último registro válido na tabela

Continuar: 'Aqui é remetido quando o registro é o primeiro da tabela
fazcodigo(1) = Nz(DMax("Left(Código,3)", "Manutenção", "Right(Código,4)=Year(Date())"), 0)

For I = 1 To UBound(fazcodigo)

If temporario < fazcodigo(I) Then temporario = fazcodigo(I)
Next
NumeracaoAno = Forms!Regiao!UF & Format(temporario + 1, "000") & "/" & year(Date)

End Function 'Encerra a função

Exemplo já corrigido

http://dl.dropbox.com/u/26441349/Caseli_13_08_11_1.rar

**** O form onde está a UF tem que esta aberto

Deu certo Mestre Harysohn, Valeu

Muito bom este forum

Obrigado

So faltou o resolvido amigão..

Bom trabalho

por agora eu coloco.