MaximoAccess

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

Obrigado

Administração do MaximoAccess

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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

    [Resolvido]soma desconto

    crysostomo
    crysostomo
    VIP
    VIP

    Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1446
    Registrado : 23/01/2018

    [Resolvido]soma desconto Empty [Resolvido]soma desconto

    Mensagem  crysostomo em 9/11/2020, 17:06

    Boa tarde colegas. estou com dificuldade em somar o desconto  estou.

    Código:
    Function descontoDaLista()
       'SOMAR DESCONTO DA LISTA
    Dim desconto As Currency, d As Integer
     On Error GoTo Trata_Erro
      
      For d = 1 To Me.listaDeVendas.ListCount - 1
    desconto = desconto + Me.listaDeVendas.Column(4, d)
    Next d
    Me.txtDescontoAbaixo = desconto
    Trata_Erro:
    MsgBox "Erro gerado: " & Err.Number & " - " & Err.Description & "", vbCritical, "Erro"

    End Function
    o erro está gerando 0- eu busquei sobre esse erro e não encontrei
    esta dando outros problemas ,mas de primeiro não consigo resolver o problema gerado


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    =>Nois
    =>Nois
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 879
    Registrado : 09/11/2012

    [Resolvido]soma desconto Empty Re: [Resolvido]soma desconto

    Mensagem  =>Nois em 9/11/2020, 17:37

    uma sugestão :

    porque criar uma função, voce pode criar uma sub
    e o desconto declare como double e tente rodar

    sub descontoDaLista()
    'SOMAR DESCONTO DA LISTA
    Dim desconto As double, d As Integer
    On Error GoTo Trata_Erro

    For d = 1 To Me.listaDeVendas.ListCount - 1
    desconto = desconto + Me.listaDeVendas.Column(4, d)
    Next d
    Me.txtDescontoAbaixo = desconto
    Trata_Erro:
    MsgBox "Erro gerado: " & Err.Number & " - " & Err.Description & "", vbCritical, "Erro"

    End sub


    .................................................................................
    Att. Nois

    Se tudo não der certo... tente de novo drunken
    crysostomo
    crysostomo
    VIP
    VIP

    Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1446
    Registrado : 23/01/2018

    [Resolvido]soma desconto Empty Re: [Resolvido]soma desconto

    Mensagem  crysostomo em 9/11/2020, 18:16

    Nois , essa é uma das questões .
     uma delas é essa gera o mesmo erro
     ele pode somar , mas o erro é gerado, e como já fiz outras vesses de ocultar o erro  la na frente começa a  puxar 4 erros seguido.
    [Resolvido]soma desconto Sem_tz89


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    =>Nois
    =>Nois
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 879
    Registrado : 09/11/2012

    [Resolvido]soma desconto Empty Re: [Resolvido]soma desconto

    Mensagem  =>Nois em 9/11/2020, 18:21

    posta uma parte do bd

    quando declara um "for" entende-se que para ele ir avançado para outras linhas no entanto ele "Grava" e para
    não entendi o porque do uso

    For d = 1 To Me.listaDeVendas.ListCount - 1
    desconto = desconto + Me.listaDeVendas.Column(4, d)
    Next d
    Me.txtDescontoAbaixo = desconto


    .................................................................................
    Att. Nois

    Se tudo não der certo... tente de novo drunken
    crysostomo
    crysostomo
    VIP
    VIP

    Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1446
    Registrado : 23/01/2018

    [Resolvido]soma desconto Empty Re: [Resolvido]soma desconto

    Mensagem  crysostomo em 9/11/2020, 19:21

    a soma resolvi, mas gerando o mesmo erro que estou buscando o que significa mas nada


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    =>Nois
    =>Nois
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 879
    Registrado : 09/11/2012

    [Resolvido]soma desconto Empty Re: [Resolvido]soma desconto

    Mensagem  =>Nois em 9/11/2020, 19:31

    Mata o erro assim então

    on error resume next


    não é a melhor solução mas ja resolve


    .................................................................................
    Att. Nois

    Se tudo não der certo... tente de novo drunken
    crysostomo
    crysostomo
    VIP
    VIP

    Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1446
    Registrado : 23/01/2018

    [Resolvido]soma desconto Empty Re: [Resolvido]soma desconto

    Mensagem  crysostomo em 9/11/2020, 19:37

    nois,  o medo é  se outra pagina puxar o código desse, porque quando criei os campo total e subtotal e o botão remover tanto ele voltou com erro. Vu refazer diferente para ver ...


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    crysostomo
    crysostomo
    VIP
    VIP

    Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1446
    Registrado : 23/01/2018

    [Resolvido]soma desconto Empty Re: [Resolvido]soma desconto

    Mensagem  crysostomo em 10/11/2020, 14:45

    estou passando mal nesse sistema, o problema é que ele não quer remover item so remove se eu adicionar desconto, o total não é subtraído sendo que o comando adicionar é do mesmo formato do remover


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    =>Nois
    =>Nois
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 879
    Registrado : 09/11/2012

    [Resolvido]soma desconto Empty Re: [Resolvido]soma desconto

    Mensagem  =>Nois em 10/11/2020, 14:50

    fica difícil de te ajudar sem postar nada


    .................................................................................
    Att. Nois

    Se tudo não der certo... tente de novo drunken
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2441
    Registrado : 22/11/2016

    [Resolvido]soma desconto Empty Re: [Resolvido]soma desconto

    Mensagem  DamascenoJr. em 10/11/2020, 14:55

    Não está acontecendo nenhum erro.

    O problema é que não tem tratamento no código impedindo o código de seguir para a parte que mostraria o erro (se ele existisse).

    Em resumo: cadê o exit sub antes de trata_erro?

    crysostomo gosta desta mensagem

    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2441
    Registrado : 22/11/2016

    [Resolvido]soma desconto Empty Re: [Resolvido]soma desconto

    Mensagem  DamascenoJr. em 10/11/2020, 23:04

    crysostomo, a dica que dei resolveu?


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    crysostomo
    crysostomo
    VIP
    VIP

    Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1446
    Registrado : 23/01/2018

    [Resolvido]soma desconto Empty Re: [Resolvido]soma desconto

    Mensagem  crysostomo em 10/11/2020, 23:11

    Boa noite Dasmasceno.
    Eu estava fazendo pela depuração, mas não exibiu nenhum erro ou não ter entendido como usar.
    Como o problema é formatação e o problema estava no campo do Desconto entendi que o campo não podia ficar vazio se não dava erro de formatação, mas mesmo assim nao entendi o porque deste peoblema então fiz  o seguinte;
    Quando faço a busca de preços ele já coloca o campo Me.txtDesconto="0,00" para não ficar  vazio.
    Mas mesmo assim continuo preocupado lá na frente não dar problema.


    Última edição por crysostomo em 10/11/2020, 23:15, editado 1 vez(es)


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2441
    Registrado : 22/11/2016

    [Resolvido]soma desconto Empty Re: [Resolvido]soma desconto

    Mensagem  DamascenoJr. em 10/11/2020, 23:14

    crysostomo, me refiro a caixa de mensagem mostrando o erro 0.

    Colocou o exit sub antes do trata_erro?


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    crysostomo
    crysostomo
    VIP
    VIP

    Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1446
    Registrado : 23/01/2018

    [Resolvido]soma desconto Empty Re: [Resolvido]soma desconto

    Mensagem  crysostomo em 10/11/2020, 23:20

    No momento estou fora do computador.quando mexer de novo eu te falo pois troquei alguns códigos.


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    crysostomo
    crysostomo
    VIP
    VIP

    Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1446
    Registrado : 23/01/2018

    [Resolvido]soma desconto Empty Re: [Resolvido]soma desconto

    Mensagem  crysostomo em 11/11/2020, 14:10

    Bom dia Dasmarceno .
     como falamos ontem eu  coloquei o exit sub por ter colocado em sub, mas um novo problema surgiu, não soma com os centavos.
     Vou pesquisar aqui onde está o erro


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.

      Data/hora atual: 24/11/2020, 08:36