[Resolvido]Autonumeração personalizada.

Boa tarde, estou aplicando o código do amigo João Paulo:

Private Sub Categoria_AfterUpdate()
Dim numeroencontrado As String, proximoNumero As Integer
'By JPaulo ® Maximo Access
'encontrar o ultimo numero na tabela
numeroencontrado = Nz(DMax("Identificação", "Cadastro de Produto", "Categoria = '" & Me.Categoria.Value & "'"), 0)
If IsNull(numeroencontrado) Or numeroencontrado = "" Or numeroencontrado = "0" Then
'se não existir numeração, insere o equipamento + 001 para iniciar
numeroencontrado = Me.Categoria.Value & "-" & "001"
'devolve ao campo a nova numeração
Me.Identificação.Value = numeroencontrado
Else
'se já existir numeração na tabela, acrescenta +1
proximoNumero = Right(DMax("Identificação", "Cadastro de Produto", "Categoria = '" & Me.Categoria.Value & "'"), 3) + 1
'devolve ao campo a nova numeração
Me.Identificação.Value = Me.Categoria.Value & "-" & Format(proximoNumero, "000")
End If
End Sub

Só que da o erro em anexo.

Alguém pode me ajudar???

Verifique o tamanho do campo na tabela. Pelo jeito ele está configurado para receber menos caracteres do que o inserido.

Criquio, você é fera, foi na raiz do problema.


muito obrigado.