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


4 participantes

    [Resolvido]Erro de calculo do Access

    bigfill
    bigfill
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 477
    Registrado : 27/03/2015

    [Resolvido]Erro de calculo do Access Empty [Resolvido]Erro de calculo do Access

    Mensagem  bigfill 22/6/2016, 21:40

    Boa tarde a todos do fórum, Estou tentando implementar um código em um formulário porem o access não reconhece o valor 100 como maior que 1 a 99.

    Já tentei entender o por que mais ainda não compreendi. Criei um código para a coluna de "JUN" que faz uma conta para identificar se o valor da coluna "OK" e maior que a coluna "AVERAGE", ao preencher a coluna "JUN" aparece uma MsgBox e no titulo informa se o access reconheceu o valor como maior ou meno.

    Segue o banco para analise, o intuito deste calculo e identificar se o valor que for digitado esta fora do target do gráfico, caso esteja o usuário devera preencher uma ficha de plano de ação.

    exceto o taget contendo o valor 100 os demais o calculo funciona.

    Espero que possam me ajudar
    Anexos
    [Resolvido]Erro de calculo do Access AttachmentErro de calculo.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (66 Kb) Baixado 7 vez(es)
    marceloarboit
    marceloarboit
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 147
    Registrado : 09/07/2015

    [Resolvido]Erro de calculo do Access Empty Re: [Resolvido]Erro de calculo do Access

    Mensagem  marceloarboit 23/6/2016, 12:12

    Bom dia bigfill

    Talvez seja porque o seu campo está em formato tipo Texto. Esses dias eu tive um problema desses e resolvi alterando o campo para número.

    Talvez seja isso.

    Abs.,
    Marcelo.
    bigfill
    bigfill
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 477
    Registrado : 27/03/2015

    [Resolvido]Erro de calculo do Access Empty Re: [Resolvido]Erro de calculo do Access

    Mensagem  bigfill 23/6/2016, 12:44

    Bom dia marceloarboit, também achei que poderia ser isso, mais alterei e não resolveu.

    Uma forma de resolver que eu encontrei foi multiplicar tanto o valor do target quanto o valor a ser comparado, desta forma eu resolvo meu problema mais queria compreender o por que deste erro do access.

    a multiplicação ficaria assim:

    Atualmente se comparo
    Código:
    If 100 > 80 then
    Msgbox "Maior"
    else
    Msgbox "Menor"

    Resultado = Menor

    Mais testei com um calculo e o resultado e diferente.
    Código:
    If 100 * 3 > 80 * 3 then
    Msgbox "Maior"
    else
    Msgbox "Menor"

    Resultado = Maior

    pale
    cleverson_manaus
    cleverson_manaus
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1022
    Registrado : 23/09/2011

    [Resolvido]Erro de calculo do Access Empty Re: [Resolvido]Erro de calculo do Access

    Mensagem  cleverson_manaus 23/6/2016, 13:24

    Bom dia,

    Por experiência , recomendo que crie duas variáveis para armazenar os resultados das multiplicações e em seguida realizar as comparações.

    Abraços,


    Cleverson


    .................................................................................
    afro

    "É fazendo que se aprende a fazer aquilo que se deve aprender a fazer."(Aristóteles)
    - Dúvida resolvida!!! Marcar o tópico como resolvido!!!
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3900
    Registrado : 04/04/2010

    [Resolvido]Erro de calculo do Access Empty Re: [Resolvido]Erro de calculo do Access

    Mensagem  Avelino Sampaio 23/6/2016, 13:39

    Olá!

    Esta é seu código:

    Private Sub JUNHO_AfterUpdate()
    If IsNull(Me.JUNHO) Then
    Me.Anexo6 = Null
    Else
    Dim Verd As string
    Dim Amar As string
    Dim Verm As string
    Verd = Me.RANGE_OK
    Amar = Me.RANGE_AVERAGE
    Verm = Me.RANGE_KO
    If Verd > Amar Then
    MsgBox "Verde " & Verd & " Amarelo " & Amar, vbInformation, "Maior"
    Else
    MsgBox "Verde " & Verd & " Amarelo " & Amar, vbInformation, "Menor"
    End If
    End If
    'DoCmd.OpenForm "JustificativaJun2"
    End Sub


    Por que colocou as variáveis como string ?

    Quando vc compara duas strings ele analisa o primeiro caractere.

    100 > 80  O que vc quer saber do Access é se 1 é maior 8.  Entendeu ?

    100avel > 89avel :::> false

    Altere as variáveis parar:

    Dim Verd As long
    Dim Amar As long
    Dim Verm As long

    Sucesso!


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso vitalício ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    bigfill
    bigfill
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 477
    Registrado : 27/03/2015

    [Resolvido]Erro de calculo do Access Empty Re: [Resolvido]Erro de calculo do Access

    Mensagem  bigfill 23/6/2016, 14:19

    Bom dia a todos, mais uma vez o mestre Avelino Sampaio matou a charada, alterei String por Long e resolveu o problema.


    Agradeço a colaboração de todos.
    Muito obrigado

    cheers

    Conteúdo patrocinado


    [Resolvido]Erro de calculo do Access Empty Re: [Resolvido]Erro de calculo do Access

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 24/11/2024, 12:16