[Resolvido]Alteração do código de numeração automática com número anual

Boa tarde pessoal do fórum!
Ao gerar um novo registro gostaria que ele gera-se em outro formato. Exemplo: em vez de gerar no formato 0001/2015 gerar no formato 001/2015 etc...

Consegui alterá-lo quando a tabela esta sem registro, mas depois aparece: Tipos Incompatíveis.

'Criado por Balem em 28/07/14
Private Sub Nome_Dirty(Cancel As Integer)
If Me.RecordsetClone.RecordCount = 0 Then
' a tabela está sem registros
  Me.txtContador = Format("1", "0000") & "/" & Year(Date)
 
Else
  If Val(Right(DMax("[contador]", "Clientes", "Right([contador],4)= " & Year(Date)), 4)) <> Year(Date) Then
     MsgBox "Reiniciando contagem dos registros para o novo ano", vbInformation, "Aviso"
     Me.txtContador = Format("1", "0000") & "/" & Year(Date)
  Else
 
  Me.txtContador = Format(Left(DMax("[contador]", "Clientes", "Right([contador],4)= " & Year(Date)), 4) + 1, "0000") & "/" & Year(Date)

  End If
End If
End Sub


OBS: Sou inciante em VBA.

Basta alterar estas duas linhas;

Me.txtContador = Format("1", "000") & "/" & Year(Date)

Me.txtContador = Format(Left(DMax("[contador]", "Clientes", "Right([contador],3)= " & Year(Date)), 4) + 1, "000") & "/" & Year(Date)

E sendo uma alteração, tem de ser de novo mesmo (tabela vazia).

Olá, JPaulo

Fiz a alteração e aparece: Uso de 'Null' inválido

Linha: If Val(Right(DMax("[contador]", "Clientes", "Right([contador],3)= " & Year(Date)), 4)) <> Year(Date) Then


OBS: Quando eu altero essa linha e coloco o numero 4 em vez do 3. Ao inserir registro só aparece: /2015 etc...

A linha que lhe passei está errada, é no Left que deve alterar para 3 e não no right que é do ano;

Format(Left(DMax("[contador]", "Clientes", "Right([contador],4)= " & Year(Date)), 3) + 1, "000") & "/" & Year(Date)

JPaulo,

Funcionou, muito obrigado.

Fico feliz.

Obrigado pelo retorno o forum agradece.

Neste Natal ajude...