[Resolvido]Numeração personalizada tipo 001/2014 porém começando de 300

Olá Feras de Plantão, boa tarde.

Gente, já vasculhei o Forum de ponta a ponta e não encontrei nada para me ajudar com o meu problema.

Seguinte, possuo um código que gera a numeração personalizada 001/ano que retorna ao 0 (zero) com a mudança do ano.
Contudo, o BD já possui vários registros e o que pretendo é que esse novo tipo de numeração personalizada dê continuidade ao último registro já existente.

Na verdade esse banco de dados não possuia essa numeração personalizada e a mesma era feita na unha, digitando-se o número/ano tal num campo do tipo texto.

Abraços, WSenna

WSenna


Meu amigo veja se esse exemplo  te ajuda.

A chamada para o código VBA está na propriedade Em sujo da caixa de texto "Nome".

Estude o código VBA.
É retornado assim: 0001/2014.

Você pode tirar um zero, caso deseja, na função format().

Abraços

Noob

Olá Noobezinho, boa noite.

Amigão, gostei do código, bem simples e atende perfeitamente ao que preciso.
Eu estava utilizando outro código bem mais complexo porém não me possibilitava mudar a inicial.
Grande abraço, e tenha um ótimo final de semana.

WSenna

Que bom que gostou

Valeu o retorno

Forte abraço e

Boa sorte


Noob

Só um detalhe Amigo Noobezinho.

Da forma como esá escrito o código toda vê que o usuário digitar alguma coisa no campo Cliente o txtContador será incrementado de + 1. Daí fiz uma pequena modificação que lhe passo a seguir:

 If Not IsNull([txtContador]) Then
 MsgBox "O número da GRDP não será incrementado.   ", vbInformation, "  InfoBasic Smart System"
 Me.frmGuiaRemSub.SetFocus
 DoCmd.CancelEvent

 ElseIf Me.RecordsetClone.RecordCount = 0 Then
  Me.txtContador = Format("1", "0000") & "/" & Year(Date)
 
 Else

  If Val(Right(DMax("[contador]", "tblGuiaRemessa"), 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]", "tblGuiaRemessa"), 4) + 1, "0000") & "/" & Year(Date)
  Me.frmGuiaRemSub.SetFocus

  End If
 End If

Abraços, WSenna

WSenna


Certo, meu amigo

Esse código, escrevi para ser usando somente em formulário para adição de registro e não para edição.
Caso ele seja usado num formulário para adição e edição, então sim, tua modificação é oportuna.

Grande Abraço

Nb

Olá pessoal, o exemplo dado anteriormente e o código melhorado é quase o que preciso. O que queria é que a função numerasse conforme o valor de um campo de texto.

Passo a explicar. Para numerar ofícios eu iria escolher de uma combo box a opção "oficio" que sendo o primeiro do ano daria 001/2015, de seguida iria numerar um "despacho" e queria que ele desse novamente o 001/2015. Quando numerasse outro oficio daria o 002/2015. E por aí em diante.

Já tentei a função Dcount e DMax, mas ando a fazer qualquer coisa mal que só me dá erros.

Obrigado pela atenção

Ricardo

Existem dois modos de se fazer isso:

1º - Ter duas tabelas, uma para oficios e outra para despachos.
      Dessa forma não precisará modificar o código e utilizar cada tabela,
      conforme o documento.

2º - Caso queira usar a mesma tabela para os dois tipos de documentos,
      deverá usar um dado que diferencie um do outro para utilizar como
      referência na incrementação do código.

       Um exemplos simples:
         
      Dmax("[codigo]","tabela",[aqui o critério para diferenciar um doc de outro])

[ ]'s

Boa noite,

Em relação à sua resposta, não consigo perceber bem o que devo fazer.

Para ser mais fácil, deixo aqui o exemplo daquilo que pretendo. Neste caso tenho 3 documentos diferentes numerados e o objectivo seria estarem todos numerados como 0001/2015, apenas haveria uma numeração 0002/2015 se existissem dois documentos do mesmo tipo. Fica aqui o meu exemplo.

Preciso de ajuda com o critério na função Dmax!

Deixo também uma BD que usava no meu serviço anterior e que funciona em access 2007 32 bit, só que agora uso o 2013 e não consegui pôr a funcionar. Então decidi fazer um que conseguisse perceber o funcionamento Numeradores

Agradeço a ajuda possível