Numerar um determinado item

Bom pessoal eu tenho em meu estoque tipos de cabos porém preciso classifica-los em lances, e colocar tipo uma numeração automática de lance, por exemplo o que for cabo ele escreve Lance-001 para o segundo cabo escreve Lance-002 já tentei utilizar um código disponível aqui no fórum e não obtive sucesso, eu tenho uma coluna na minha tabela denominada lance, onde cada item que não for cabo deverá retornar N/A. Como sou iniciante tanto em access quanto VBA, teria a possibilidade de alguém me auxiliar? Agradeço desde já! A ideia é fazer um contador que incremente um código de lance para cada cabo, bom agradeço de mais a ajuda de vocês do fórum!

Olá, veja se ajuda:
http://www.usandoaccess.com.br/tutoriais/video-programacao-de-relatorios.asp?id=1#inicio
Abraço

Amigo agradeço a sua contribuição, mas não é bem isso que procuro, conforme havia descrito tenho a necessidade de classificar os itens de acordo como descrito no inicio deste tópico.

Olá Grieco Fernandes,
A resposta era para outro tópico
Abraço

Olá Grieco Fernandes, quando à dúvida, talvez seja melhor postar o que tem.
Apenas onenvolvido na questão com dados significativos.
Assim fica mais fácil para qualquer membro ajudar.
Abraço

Agradeço aparentemente achei uma solução entretanto não é bem o que eu desejava, vou dar mais um tempo para ver se alguém aparece para comentar uma solução melhor, porém adaptei o código do mestre JPaulo de numeração personalizada. Caso ninguém sugira alguma solução eu encerro o tópico!

Olá, poste o código que tem, o que esta acontecer de errado.
Abraço

O código disponibilizado pelo mestre JPaulo eu alterei só uns parâmetros porém, se eu atualizar o campo da quantidade ele continua incrementando quantas vezes eu atualizar e eu queria que incrementasse apenas uma única vez, tem como? Segue o código:

Private Sub Qtd_AfterUpdate()
'--- Dar Refresh no formulário de compras (equivalente ao F5)
Forms!frmCompras.Refresh
Me.Unidade.Requery
'---
'----
Dim nE As String, pN As String
Dim cod As String
cod = Left(Me.Descrição, 4)
If IsNull(Me.Qtd) Or Me.Qtd = "" Then
MsgBox "Preencha a quantidade", vbCritical
DoCmd.CancelEvent
ElseIf cod = "Cabo" Then
'------
'encontrar o ultimo numero na tabela
nE = Nz(DMax("ID", "Entrada", "[Código] = '" & Me.Código.Value & "'"), 0)
  If IsNull(nE) Or nE = "" Or nE = "0" Then
  'se não existir numeração, insere o numero + 001 para iniciar
      nE = Me.Código.Value & " " & Me.Qtd.Value & "-" & "001"
  'devolve ao campo a nova numeração
      Me.ID.Value = nE
  Else
  'se já existir numeração na tabela, acrescenta +1
      pN = Right(DMax("ID", "Entrada", "[Código] = '" & Me.Código.Value & "'"), 3) + 1
  'devolve ao campo a nova numeração
      Me.ID.Value = Me.Código.Value & " " & Me.Qtd.Value & "-" & Format(pN, "000")
  End If
Else
Me.ID.Value = "N/A"
End If
End Sub

Olá, assim já começa a ficar mais compreensivo.
Então so deve efectuar a numeraçao quando é adicionado o registo? É isso?
Abraço