MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

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


2 participantes

    [Resolvido]Erro em Cálculo de Campo via VBA.

    Sagres
    avatar
    Sagres
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 30
    Registrado : 03/08/2011
    • Mensagem nº1

    [Resolvido]Erro em Cálculo de Campo via VBA. Empty Erro em Cálculo de Campo via VBA.

    Mensagem  Sagres 4/2/2012, 16:55

    Prezados boa tarde.

    Tenho um formulário que através do comando de um botão executa o cálculo abaixo, porém este cálculo funciona até R$ 0,80. Um valor menor que este ele zera o campo.

    Sabe me dizer onde a estrutura falhou? Porque ele realiza o cálculo corretamente até R$ 0,80? Após isto o retorno do cálculo é R$0?

    ______________________________________________________________________________
    If Me.ValorUnitário And Quantidade <> "" Then
    ValorTotal.Value = ValorUnitário * Quantidade
    Else
    ValorUnitário.Value = 0
    Quantidade.Value = 0
    ValorTotal.Value = 0
    End If
    ______________________________________________________________________________

    Sguardo o retorno dos expert's

    Muito Obrigado.

    Sagres
    • Ir para o topo
    Assis
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4772
    Registrado : 06/11/2009
    • Mensagem nº2

    [Resolvido]Erro em Cálculo de Campo via VBA. Empty Re: [Resolvido]Erro em Cálculo de Campo via VBA.

    Mensagem  Assis 4/2/2012, 17:14

    O erro tem que estar aqui
    If Me.ValorUnitário And Quantidade <> "" Then


    .................................................................................
    *** Só sei que nada sei ***
    • Ir para o topo
    Sagres
    avatar
    Sagres
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 30
    Registrado : 03/08/2011
    • Mensagem nº3

    [Resolvido]Erro em Cálculo de Campo via VBA. Empty Re: [Resolvido]Erro em Cálculo de Campo via VBA.

    Mensagem  Sagres 4/2/2012, 17:18

    Prezado Assis.

    Este código apenas verifica se os campos estão preenchidos, correto?

    Onde exatamente ele influencia no resultado final?

    Muito Obrigado pela valiosa ajuda.

    Sagres
    • Ir para o topo
    Assis
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4772
    Registrado : 06/11/2009
    • Mensagem nº4

    [Resolvido]Erro em Cálculo de Campo via VBA. Empty Re: [Resolvido]Erro em Cálculo de Campo via VBA.

    Mensagem  Assis 4/2/2012, 17:22


    Poste aqui a tabela e o form aonde faz este calculo

    Versão 2003


    .................................................................................
    *** Só sei que nada sei ***
    • Ir para o topo
    Sagres
    avatar
    Sagres
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 30
    Registrado : 03/08/2011
    • Mensagem nº5

    [Resolvido]Erro em Cálculo de Campo via VBA. Empty Re: [Resolvido]Erro em Cálculo de Campo via VBA.

    Mensagem  Sagres 4/2/2012, 17:33

    a tabela onde o cálculo é feito é a DADOS

    O formulário onde está o botão para realização do cálculo é o emissão de pedidos.
    Anexos
    [Resolvido]Erro em Cálculo de Campo via VBA. AttachmentBD.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (358 Kb) Baixado 8 vez(es)


    Última edição por Sagres em 4/2/2012, 17:39, editado 1 vez(es)
    • Ir para o topo
    Assis
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4772
    Registrado : 06/11/2009
    • Mensagem nº6

    [Resolvido]Erro em Cálculo de Campo via VBA. Empty Re: [Resolvido]Erro em Cálculo de Campo via VBA.

    Mensagem  Assis 4/2/2012, 17:35

    Filipe tem de por aqui a Base de Dados ou parte dela


    .................................................................................
    *** Só sei que nada sei ***
    • Ir para o topo
    Sagres
    avatar
    Sagres
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 30
    Registrado : 03/08/2011
    • Mensagem nº7

    [Resolvido]Erro em Cálculo de Campo via VBA. Empty Re: [Resolvido]Erro em Cálculo de Campo via VBA.

    Mensagem  Sagres 4/2/2012, 17:40

    Prezado Assis,

    BD postado.

    Desculpe pelo equívoco...

    Aguardo seu retorno.

    Muito obrigado.

    Sagres.
    • Ir para o topo
    Assis
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4772
    Registrado : 06/11/2009
    • Mensagem nº8

    [Resolvido]Erro em Cálculo de Campo via VBA. Empty Re: [Resolvido]Erro em Cálculo de Campo via VBA.

    Mensagem  Assis 4/2/2012, 17:56

    Filipe

    Aonde postou a BD... aqui nã está.

    Se tiver dificuldades em postar aqui no forum, envia para o meu mail

    anibal.assis@sapo.pt


    .................................................................................
    *** Só sei que nada sei ***
    • Ir para o topo
    Convidad
    avatar
    Convidad
    Convidado


    • Mensagem nº9

    [Resolvido]Erro em Cálculo de Campo via VBA. Empty Re: [Resolvido]Erro em Cálculo de Campo via VBA.

    Mensagem  Convidad 4/2/2012, 18:03



    If Me.ValorUnitário <> "" And Me.Quantidade <> ""
    • Ir para o topo
    Sagres
    avatar
    Sagres
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 30
    Registrado : 03/08/2011
    • Mensagem nº10

    [Resolvido]Erro em Cálculo de Campo via VBA. Empty Re: [Resolvido]Erro em Cálculo de Campo via VBA.

    Mensagem  Sagres 4/2/2012, 18:04

    bd enviado via e-mail.
    • Ir para o topo
    Assis
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4772
    Registrado : 06/11/2009
    • Mensagem nº11

    [Resolvido]Erro em Cálculo de Campo via VBA. Empty Re: [Resolvido]Erro em Cálculo de Campo via VBA.

    Mensagem  Assis 4/2/2012, 22:28

    Filipe

    Teste a formula que o amigo Norberto colocou na mensagem Nº 9

    Bom fim de semana


    .................................................................................
    *** Só sei que nada sei ***
    • Ir para o topo
    Sagres
    avatar
    Sagres
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 30
    Registrado : 03/08/2011
    • Mensagem nº12

    [Resolvido]Erro em Cálculo de Campo via VBA. Empty Re: [Resolvido]Erro em Cálculo de Campo via VBA.

    Mensagem  Sagres 7/2/2012, 19:47

    Prezados,

    Acho que o problema não está nesta fórmula, pois o campo é calculado normalmente até um determinado valor.

    O problema é que a fórmula retorna valor zero para os cálculos dos produtos com valor infeior a R$ 0,80.

    Teria de achar alguma fórmula que calcule o valor desde R$ 0,01.

    Aguardo a ajuda.

    Obrigado.

    felipe.
    • Ir para o topo
    Convidad
    avatar
    Convidad
    Convidado


    • Mensagem nº13

    [Resolvido]Erro em Cálculo de Campo via VBA. Empty Re: [Resolvido]Erro em Cálculo de Campo via VBA.

    Mensagem  Convidad 7/2/2012, 20:12


    Tente assim:

    If Me.ValorUnitário = "" Or IsNull(Me.ValorUnitário) Then Me.ValorUnitário = 0
    If Me.Quantidade = "" Or IsNull(Me.Quantidade) Then Me.Quantidade = 0
    Me.ValorTotal = Nz(Me.ValorUnitário) * Nz(Me.Quantidade)

    Verifique os Formatos de exibição dos campos e se não há algum tipo arredondamento interferindo.
    • Ir para o topo
    Sagres
    avatar
    Sagres
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 30
    Registrado : 03/08/2011
    • Mensagem nº14

    [Resolvido]Erro em Cálculo de Campo via VBA. Empty Re: [Resolvido]Erro em Cálculo de Campo via VBA.

    Mensagem  Sagres 15/2/2012, 02:02

    norbs verificarei e retornarei.

    Desde já muito obrigado.

    Sagres
    • Ir para o topo
    Sagres
    avatar
    Sagres
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 30
    Registrado : 03/08/2011
    • Mensagem nº15

    [Resolvido]Erro em Cálculo de Campo via VBA. Empty Re: [Resolvido]Erro em Cálculo de Campo via VBA.

    Mensagem  Sagres 25/2/2012, 16:45

    Norbs muito Obrigado.

    Com o código repassado e a correção dos formatos do campo a correção foi efetuada e o BD funcionou perfeitamente.

    Obrigado.

    Sagres

    • Ir para o topo
    Convidad
    avatar
    Convidad
    Convidado


    • Mensagem nº16

    [Resolvido]Erro em Cálculo de Campo via VBA. Empty Re: [Resolvido]Erro em Cálculo de Campo via VBA.

    Mensagem  Convidad 25/2/2012, 18:10


    Ótimo, agradecemos o retorno!
    • Ir para o topo
    Conteúdo patrocinado

    Conteúdo patrocinado


    • Mensagem nº17

    [Resolvido]Erro em Cálculo de Campo via VBA. Empty Re: [Resolvido]Erro em Cálculo de Campo via VBA.

    Mensagem  Conteúdo patrocinado

    • Ir para o topo
      Data/hora atual: 15/5/2024, 15:08