MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Campo com numeração sequencial

    avatar
    Dorival J
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 69
    Registrado : 02/05/2016

    [Resolvido]Campo com numeração sequencial Empty [Resolvido]Campo com numeração sequencial

    Mensagem  Dorival J em 28/12/2016, 00:45

    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!



    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3913
    Registrado : 14/08/2013

    [Resolvido]Campo com numeração sequencial Empty Re: [Resolvido]Campo com numeração sequencial

    Mensagem  FabioPaes em 28/12/2016, 17:00

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

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



    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    avatar
    Dorival J
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 69
    Registrado : 02/05/2016

    [Resolvido]Campo com numeração sequencial Empty Re: [Resolvido]Campo com numeração sequencial

    Mensagem  Dorival J em 28/12/2016, 21:40

    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?
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3913
    Registrado : 14/08/2013

    [Resolvido]Campo com numeração sequencial Empty Re: [Resolvido]Campo com numeração sequencial

    Mensagem  FabioPaes em 29/12/2016, 11:46

    É 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?


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    avatar
    Dorival J
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 69
    Registrado : 02/05/2016

    [Resolvido]Campo com numeração sequencial Empty Re: [Resolvido]Campo com numeração sequencial

    Mensagem  Dorival J em 29/12/2016, 23:22

    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.
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3913
    Registrado : 14/08/2013

    [Resolvido]Campo com numeração sequencial Empty Re: [Resolvido]Campo com numeração sequencial

    Mensagem  FabioPaes em 30/12/2016, 01:25

    Entao poste aqui o exemplo pq esta correto a escrita.


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    avatar
    Dorival J
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 69
    Registrado : 02/05/2016

    [Resolvido]Campo com numeração sequencial Empty Re: [Resolvido]Campo com numeração sequencial

    Mensagem  Dorival J em 30/12/2016, 10:35

    Ok!

    Tô mandando um anexo do arquivo.
    Grato!
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3913
    Registrado : 14/08/2013

    [Resolvido]Campo com numeração sequencial Empty Re: [Resolvido]Campo com numeração sequencial

    Mensagem  FabioPaes em 30/12/2016, 20:20

    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.


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    avatar
    Dorival J
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 69
    Registrado : 02/05/2016

    [Resolvido]Campo com numeração sequencial Empty Re: [Resolvido]Campo com numeração sequencial

    Mensagem  Dorival J em 30/12/2016, 22:22

    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!
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3913
    Registrado : 14/08/2013

    [Resolvido]Campo com numeração sequencial Empty Re: [Resolvido]Campo com numeração sequencial

    Mensagem  FabioPaes em 31/12/2016, 00:13

    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!


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    avatar
    Dorival J
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 69
    Registrado : 02/05/2016

    [Resolvido]Campo com numeração sequencial Empty Re: [Resolvido]Campo com numeração sequencial

    Mensagem  Dorival J em 31/12/2016, 11:41

    Olá Fábio, bom Dia!

    Cara! exatamente isso!
    Funcionou perfeitamente!

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

    valeu!
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3913
    Registrado : 14/08/2013

    [Resolvido]Campo com numeração sequencial Empty Re: [Resolvido]Campo com numeração sequencial

    Mensagem  FabioPaes em 1/1/2017, 15:57

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


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!

      Data/hora atual: 27/5/2020, 09:36