[Resolvido]Campo com numeração sequencial

Boa noite rapaziada!

Pessoal eu tô acrescentando em meu subformulário DetalhesDeVenda um campo "ITEM" com numeração sequencial, que deve
funcionar assim:

Sempre que eu acrescentar um item no subFormulário DetalhesDeVenda ele vai numerando a partir do 1; ou seja: item 1, item 2...item10
Eu adaptei o seguinte código extraído aqui do fórum no evento "No atual":

If Me.NewRecord Then
On Error Resume Next 'Apenas por segurança...
Me![Itens].DefaultValue = Nz(DMax("[itens]", "DetalhesDeVendas"), 0) + 1
End

Ele funciona, mas o problema é que quando eu fecho a venda e inicio uma nova venda, ele começa a numerar de onde parou na venda anterior. Eu gostaria que a cada nova venda ele começasse a numerar a partir do "item 1" novamente.

Podem me ajudar Por Favor?

Fico muito grato!

Amigo, vc deverá colocar um Criterio no Dmax() filtrando apenas pelo Numero da Venda atual...

DMax("[itens]", "DetalhesDeVendas","CodVenda = " & Me.CodVenda & "")

Desculpe! mas eu devo copiar esse código aonde?


Seria isso?

If Me.NewRecord Then
On Error Resume Next 'Apenas por segurança...
Me![Itens].DefaultValue = Nz(DMax("[itens]", "DetalhesDeVendas", "Ref = " & Me.Ref & ""), 0) + 1
End If

Eu coloquei dessa forma aí ele parou de contar.

O que pode ser?

É dessa forma mesmo amigo, mas temos que saber algumas coisas:

Ref Existe na tabela? Ele é Texto ou Numero?

me.Ref Existe campo com esse nome no Formulário?

O campo Ref existe na tabela detalhes de venda,  
me.Ref também existe no subFormulário DetalhesDeVendas!
O tipo de dados também é número.

Entao poste aqui o exemplo pq esta correto a escrita.

Ok!

Tô mandando um anexo do arquivo.
Grato!

Dorival meu amigo, confesso que fiquei confuso quanto ao Funcionamento do Seu PDV. Não consegui fazer uma venda e testar...


Porem, como lhe falei la em cima...

FabioPaes escreveu:Ref Existe na tabela? Ele é Texto ou Numero?

me.Ref Existe campo com esse nome no Formulário?

Bom, você não tem nenhum campo chamado Ref no Formulário. Este Campo se Chama txtRef

Portanto o Comando correto Fica assim:

Nz(DMax("itens", "DetalhesDeVendas", "Ref = " & Me.TxtRef & ""), 0) + 1

Se não der certo, por favor me fale como realizar a inserção dos produtos na Venda. se possível com print de tela.

Olá fábio!

Não deu certo não!

Quanto à inserção dos produtos é só clicar lá em cima no botão nova venda, e começar digitando pelo código do produto(de 1 a 65), depois a quantidade.


Eu inseri o código que te falei no evento "No atual" do SubFormulário, Caso queira verificar.
Vou tentando por aqui. Obrigado!

Amigo, esse codigo esta no lugar errado.

Remova do evento No Atual, e coloque no evento Apos atualizar do campo txtCodProduto

Private Sub TxtCodProduto_AfterUpdate()
Me![Itens] = Nz(DMax("[itens]", "DetalhesDeVendas", "Ref = " & Me.TxtRef & ""), 0) + 1
End Sub

Faça um teste!

Olá Fábio, bom Dia!

Cara! exatamente isso!
Funcionou perfeitamente!

Grato pelo empenho, e me desculpe pelas mancadas...

valeu!

Grato pelo retorno e até a proxima se Deus quiser!