[Resolvido]Contar valores de um campo e enumera-los

Caríssimos forumeiros.

Boa tarde!

Tenho uma nova questão.

Tenho um campo chamado "ANO" e preciso enumerar os mesmos, conforme exemplo abaixo.

Exemplo:

2014 1
2015 1
2014 2
2015 2
2015 3
2015 4
2016 1
2015 5
2016 2
2016 3

Tenho tentando usar o Dcount mas não obtive exito. peço gentileza a contribuição dos amigos.

Boa tarde Andre,

A numeração que pretende empregar deverá ficar no mesmo campo ou em outro?
Você pretende enumerá-los a partir de agora ou os existentes?

Vai ficar num campo ao lado. E vai começar a partir de agora.

Andre

O DCount() é para contar os registros em uma tabela, que atenda um critério desejado.

A operação que deseja fazer, é de incremento de um número, na tabela.

Precisamos saber exatamente o que deseja fazer, para que possamos entender

e assim ajudar.


[ ]'s

Ok. Minha ideia é isolar o ano extraindo de uma data lançada manualmente. Após isso preciso enumera-lo. Com essa enumeração vou gerar uma autonumeração tendo o ano como parte desta numeração e sempre que iniciar um novo ano, inicia-se uma nova numeração. Ficando assim: 1500001; 1500002; 1500003; 15...; 1600001; 1600002; 16...;

Outr detalhe é que isso acontece numa tabela que é alimentada por outra tabela e não por um formulário.

Andre

Falou em ano, mas demonstrou em números:

Ainda está generalizado, descreva um passo a passo.

O que precisamos é exatamente como é a operação, as tabelas/consultas,
forms envolvidos.
Isolar ano e incrementar é simples, mas precisamos entender exatamente
como a coisa funciona.

"Outro detalhe é que isso acontece numa tabela que é alimentada por outra tabela e não por um formulário."

Precisa explicar isso também, como uma tabela alimenta outra, sem form.

Como pode ver, pode ser simples ou complexo.

E entenda, é você o desenvolvedor do teu sistema, o único que conhece o seu funcionamento.  

Aguardo...

Possuo uma tabela para cadastro de pedidos. Esses pedidos precisão de uma aprovação para serem produzidos. Então quando eu clico no botão aprovar ele pega os dados dessa tabela e copia para outra tabela repetindo este pedido n vezes a quantidade de produto do pedido principal nesta tabela.

Exemplo : Se eu tenho um pedido para produzir 20 cadeiras. Quando eu aprovo este pedido, ele copia este registro 20 vezes em outra tabela. Nesta tabela onde este pedido foi replicado 20 vezes é que vai controlar minha produção peça a peça. Esse número que preciso gerar é uma rastreabilidade para meus produtos. Esta rastreabilidade ja existe internamente no formato que expliquei anteriormente. 1500001, 1500002, .... (Ano com dois dígitos e uma sequencia de 5 dígitos sequenciais).


Estou anexando o arquivo no link abaixo para que possa entender melhor.

https://drive.google.com/folderview?id=0B1sMJ1YmJY1bRTZVNzVxUldiUFk&usp=sharing

Desde já agradeço.

Andre

Copie e cole o código abaixo.

Veja que mudei algumas "cositas" nele, por isso copie e cole todo ele.

Eu utilizei a EntradaNaLumar  para pegar o ano, se não for isso, é só mudar
de controle.

Tenha um bom estudo!

Código:


Private Sub Comando182_Click()

On Error GoTo Erro
Dim Qtde As Integer, I As Integer, rsMov As Recordset

If MsgBox("Confirma APROVAÇÃO do pedido para Fabrica?", vbYesNo + vbQuestion, "Atenção!") = vbYes Then
  
   Qtde = InputBox("Confirme Quantidade de peças.", "Quantidade de Peças")
   Set rsMov = CurrentDb.OpenRecordset("TESTE2")
  
   With rsMov

       For I = 1 To Qtde

  
        .AddNew
        !IdTeste1 = Me.IDst
        !PedidoInterno = Me.PedidoInterno
        !Rastreabilidade = Format(Me.EntradaNaLumar, "yy") & Format(Right(Nz(DMax("Rastreabilidade", "TESTE2"), 0) + 1, 5), "00000")
        !COTACAO = Me.COTACAO
        !EMPRESA = Me.EMPRESA
        !CodDoItem = Me.CodDoItem
        !PedidoCliente = Me.PedidoCliente
        !ItemPedido = Me.ItemPedido
        !TipoDeTransporte = Me.TipoDeTransporte
        !EntradaNaLumar = Me.EntradaNaLumar
        !DataEntrega = Me.DataEntrega
        !EntregaDoSetor = Me.EntregaDoSetor
        !PrevisaoDeFabrica = Me.PrevisaoDeFabrica
        !NATUREZA = Me.NATUREZA
        !SETOR = Me.SETOR
        !Desenho = Me.Desenho
        !DescricaoParaFabrica = Me.DescricaoParaFabrica
        !DescricaoComercial = Me.DescricaoComercial
        !ValorTotal = Me.ValorTotal
        !ValorUnitario = Me.ValorUnitario
        !PrevisaoDeCarteira = Me.PrevisaoDeCarteira
        !AnaliseDePedido = Me.AnaliseDePedido
        !QUEM = Me.QUEM
        !Observacoes = Me.Observacoes
        !SolicitacaoDePosterga = Me.SolicitacaoDePosterga
        !CONFIRMACAO = Me.CONFIRMACAO
        !OrcamentoEnviado = Me.OrcamentoEnviado
        !PedidoAprovado = Me.PedidoAprovado
        !Pendencias = Me.Pendencias
        !STATUS = Me.STATUS
        .Update
      Next I
   End With
   MsgBox "Pedido aprovado com sucesso.", vbInformation, strTitulo & strVersao
   Set rsMov = Nothing

Else
   MsgBox "Operação cancelada.", vbInformation, "Atenção!!"
End If
Sai:
Set rsMov = Nothing
Exit Sub
Erro:
MsgBox "Erro ao aprovar pedido.", vbInformation, "Atenção!!"

Resume Sai

End Sub


Amigão. Essa parte da duplicação do meu código funcionava bem antes.

com as alterações que você sugeriu, depois que eu confirmo a quantidade ele já pula pra mensagem de "Erro ao aprovar pedido".

Isso aconteceu comigo anteriormente e o que eu fiz subir o "For" uma linha acima, ou seja ele ficou antes do comando "Set". só que fiz isso agora no código que me enviou e não resolveu.

Andre

Essa é a forma correta do código.
Não há necessidade de abrir o recordset a cada registro.

Olha o teu exemplo modificado.

Como pode ver, aqui funfou legal, veja se funfa ai pra você.

Se não funfar, o problema está ai no teu computador.

Então, retorne para tentarmos descobri o que ta 'pegando'.

O arquivo que você me enviou esta pedindo senha.

Verdade

Como o get é publico eu coloquei senha para somente
o pessoal do fórum poder abrir. Só que esqueci de colocar

A senha é o teu nome: andre

Funcionou. Deu certo!

Obrigado...

Ótimo


Boa sorte!