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


5 participantes

    [Resolvido]Passar valor de Select Case para caixa de texto. Onde está o erro??

    Cláudio Machado
    Cláudio Machado
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1636
    Registrado : 17/03/2011

    [Resolvido]Passar valor de Select Case para caixa de texto. Onde está o erro?? Empty [Resolvido]Passar valor de Select Case para caixa de texto. Onde está o erro??

    Mensagem  Cláudio Machado 15/1/2015, 18:27

    Boa tarde galera.

    Estou utilizando o cdigo abaixo para passar um valor de para uma caixa de texto em um form.
    Estou usando na ação "Atual" do form.
    Simplesmente o valor da caixa é sempre o primeiro case, não faz a função como deveria.
    Onde está o erro? Poderiam me ajudar.
    Obrigado.

    Código:


    Select Case Me.ValorTotal_RE

    Case Is <= "99,99"
        Variação_Percentual = 20
        Variação = ValorTotal_RE * Variação_Percentual / 100 + ValorTotal_RE
       
    Case "100,00" To "499,99"
        Variação_Percentual = 18
        Variação = ValorTotal_RE * Variação_Percentual / 100 + ValorTotal_RE

    Case "500,00" To "899,99"
        Variação_Percentual = 12
        Variação = ValorTotal_RE * Variação_Percentual / 100 + ValorTotal_RE

    Case "900,00" To "1.099,99"
        Variação_Percentual = 10
        Variação = ValorTotal_RE * Variação_Percentual / 100 + ValorTotal_RE

    Case "1.100,00" To "1.999,99"
        Variação_Percentual = 8
        Variação = ValorTotal_RE * Variação_Percentual / 100 + ValorTotal_RE

    Case "2.000,00" To "2.999,99"
        Variação_Percentual = 6
        Variação = ValorTotal_RE * Variação_Percentual / 100 + ValorTotal_RE
       
    Case "3.000,00" To "4.999,99"
        Variação_Percentual = 5
        Variação = ValorTotal_RE * Variação_Percentual / 100 + ValorTotal_RE

    Case "5.000,00" To "9.999,99"
        Variação_Percentual = 4
        Variação = ValorTotal_RE * Variação_Percentual / 100 + ValorTotal_RE

    Case Is > "10.000,00"
        Variação_Percentual = 6
        Variação = ValorTotal_RE * Variação_Percentual / 100 + ValorTotal_RE
       
    End Select




    .................................................................................
    " Nunca cruze os braços diante de qualquer problema ou dificuldade, pois o maior homem do mundo Jesus,  morreu de braços abertos."

    Agradeça e feche o tópico clicando no botão Resolvido. Se não sabe como, veja  AQUI.
    Não esqueça de clicar no Joinha [Resolvido]Passar valor de Select Case para caixa de texto. Onde está o erro?? 90dssg para agradecer a dica que solucionou seu problema.
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7996
    Registrado : 15/03/2013

    [Resolvido]Passar valor de Select Case para caixa de texto. Onde está o erro?? Empty Re: [Resolvido]Passar valor de Select Case para caixa de texto. Onde está o erro??

    Mensagem  Alvaro Teixeira 15/1/2015, 20:22

    Olá, teste assim:
      Case Is <= "99.99"  'separador decimais

    ou caso seja numerico assim:
      Case Is <= 99.99

    Verifique se não fica melhor no acontecimento BeforeUpdate
    Não testado, abraço.
    Noobezinho
    Noobezinho
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4140
    Registrado : 29/06/2012

    [Resolvido]Passar valor de Select Case para caixa de texto. Onde está o erro?? Empty Re: [Resolvido]Passar valor de Select Case para caixa de texto. Onde está o erro??

    Mensagem  Noobezinho 15/1/2015, 20:43

    Claudio

    Me.ValorTotal_RE é uma caixa de texto de campo com valor numérico ou string

    Se for numérico, retire as aspas dos valores.

    []'s

    Noob


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.
    Cláudio Machado
    Cláudio Machado
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1636
    Registrado : 17/03/2011

    [Resolvido]Passar valor de Select Case para caixa de texto. Onde está o erro?? Empty Re: [Resolvido]Passar valor de Select Case para caixa de texto. Onde está o erro??

    Mensagem  Cláudio Machado 22/1/2015, 19:13

    Obrigado pela ajuda amigos, mas não funcionou.


    .................................................................................
    " Nunca cruze os braços diante de qualquer problema ou dificuldade, pois o maior homem do mundo Jesus,  morreu de braços abertos."

    Agradeça e feche o tópico clicando no botão Resolvido. Se não sabe como, veja  AQUI.
    Não esqueça de clicar no Joinha [Resolvido]Passar valor de Select Case para caixa de texto. Onde está o erro?? 90dssg para agradecer a dica que solucionou seu problema.
    Noobezinho
    Noobezinho
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4140
    Registrado : 29/06/2012

    [Resolvido]Passar valor de Select Case para caixa de texto. Onde está o erro?? Empty Re: [Resolvido]Passar valor de Select Case para caixa de texto. Onde está o erro??

    Mensagem  Noobezinho 22/1/2015, 22:17

    Disponibilize parte do aplicativos , tabela e formulário em questão para analisarmos.

    Noob


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.
    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]Passar valor de Select Case para caixa de texto. Onde está o erro?? Empty Re: [Resolvido]Passar valor de Select Case para caixa de texto. Onde está o erro??

    Mensagem  Avelino Sampaio 23/1/2015, 10:03

    Olá!

    Acrescente a função msgbox() na posição indicada e nos diga qual foi o valor informado

    Select Case Me.ValorTotal_RE
    msgbox me.ValorTotal_RE
    Case Is <= "99,99"
    Variação_Percentual = 20
    Variação = ValorTotal_RE * Variação_Percentual / 100 + ValorTotal_RE
    ...

    Aguardamos


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


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1743
    Registrado : 11/11/2009

    [Resolvido]Passar valor de Select Case para caixa de texto. Onde está o erro?? Empty Re: [Resolvido]Passar valor de Select Case para caixa de texto. Onde está o erro??

    Mensagem  Dilson 23/1/2015, 10:51

    O titulo do tópico foi modificado para facilitar os motores de busca.

    De: Onde est[a o erro??
    Para: Passar valor de Select Case para caixa de texto. Onde está o erro??

    Recomendo clareza nos título dos tópicos, assim como recomenda a regra n° 2 do fórum.
    Cláudio Machado
    Cláudio Machado
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1636
    Registrado : 17/03/2011

    [Resolvido]Passar valor de Select Case para caixa de texto. Onde está o erro?? Empty Re: [Resolvido]Passar valor de Select Case para caixa de texto. Onde está o erro??

    Mensagem  Cláudio Machado 26/1/2015, 17:54

    Obrigado Dilson e desculpe, mas estava com problemas no teclado.
    Segue exemplo para ver se conseguem ajudar.
    Obrigado pela ajuda antecipadamente.


    .................................................................................
    " Nunca cruze os braços diante de qualquer problema ou dificuldade, pois o maior homem do mundo Jesus,  morreu de braços abertos."

    Agradeça e feche o tópico clicando no botão Resolvido. Se não sabe como, veja  AQUI.
    Não esqueça de clicar no Joinha [Resolvido]Passar valor de Select Case para caixa de texto. Onde está o erro?? 90dssg para agradecer a dica que solucionou seu problema.
    Cláudio Machado
    Cláudio Machado
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1636
    Registrado : 17/03/2011

    [Resolvido]Passar valor de Select Case para caixa de texto. Onde está o erro?? Empty Re: [Resolvido]Passar valor de Select Case para caixa de texto. Onde está o erro??

    Mensagem  Cláudio Machado 26/1/2015, 20:02

    Fiz conforme o Noobezinho indicou e funcionpu até o valor exato de 900,00, acima desse valor ele pôe zero em todos os outros pedidos.
    Vejam como ficou.

    Código:


    Select Case ValorTotal_RE

    Case Is <= 99, 99
        Variação_Percentual = 20
        Variação = ValorTotal_RE * Variação_Percentual / 100 + ValorTotal_RE
           
    Case 100, 0 To 499, 99
        Variação_Percentual = 18
        Variação = ValorTotal_RE * Variação_Percentual / 100 + ValorTotal_RE

    Case 500, 0 To 899, 99
        Variação_Percentual = 12
        Variação = ValorTotal_RE * Variação_Percentual / 100 + ValorTotal_RE

    Case 900, 0 To 1.099, 98
        Variação_Percentual = 10
        Variação = ValorTotal_RE * Variação_Percentual / 100 + ValorTotal_RE

    Case 1.099, 99 To 1.999, 98
        Variação_Percentual = 8
        Variação = ValorTotal_RE * Variação_Percentual / 100 + ValorTotal_RE

    Case 1.999, 99 To 2.999, 98
        Variação_Percentual = 6
        Variação = ValorTotal_RE * Variação_Percentual / 100 + ValorTotal_RE
       
    Case 2.999, 99 To 4.999, 98
        Variação_Percentual = 5
        Variação = ValorTotal_RE * Variação_Percentual / 100 + ValorTotal_RE

    Case 4.999, 99 To 9.999, 98
        Variação_Percentual = 4
        Variação = ValorTotal_RE * Variação_Percentual / 100 + ValorTotal_RE

    Case 9.999, 99 To 14.999, 98
        Variação_Percentual = 2
        Variação = ValorTotal_RE * Variação_Percentual / 100 + ValorTotal_RE
       
    Case Is > 14.999, 99
        Variação_Percentual = 0
        Variação = ValorTotal_RE * Variação_Percentual / 100 + ValorTotal_RE
       
    End Select



    .................................................................................
    " Nunca cruze os braços diante de qualquer problema ou dificuldade, pois o maior homem do mundo Jesus,  morreu de braços abertos."

    Agradeça e feche o tópico clicando no botão Resolvido. Se não sabe como, veja  AQUI.
    Não esqueça de clicar no Joinha [Resolvido]Passar valor de Select Case para caixa de texto. Onde está o erro?? 90dssg para agradecer a dica que solucionou seu problema.
    Noobezinho
    Noobezinho
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4140
    Registrado : 29/06/2012

    [Resolvido]Passar valor de Select Case para caixa de texto. Onde está o erro?? Empty Re: [Resolvido]Passar valor de Select Case para caixa de texto. Onde está o erro??

    Mensagem  Noobezinho 26/1/2015, 21:22

    Claudio


    Experimente:

    Código:

    Select Case Me.ValorTotal_RE

    Case Is <= CCur("99,99")
        Variação_Percentual = 20
        Variação = ValorTotal_RE * Variação_Percentual / 100 + ValorTotal_RE
        
    Case CCur("100,00") To CCur("499,99")
        Variação_Percentual = 18
        Variação = ValorTotal_RE * Variação_Percentual / 100 + ValorTotal_RE

    Case CCur("500,00") To CCur("899,99")
        Variação_Percentual = 12
        Variação = ValorTotal_RE * Variação_Percentual / 100 + ValorTotal_RE

    Case CCur("900,00") To CCur("1.099,99")
        Variação_Percentual = 10
        Variação = ValorTotal_RE * Variação_Percentual / 100 + ValorTotal_RE

    Case CCur("1.100,00") To CCur("1.999,99")
        Variação_Percentual = 8
        Variação = ValorTotal_RE * Variação_Percentual / 100 + ValorTotal_RE

    Case CCur("2.000,00") To CCur("2.999,99")
        Variação_Percentual = 6
        Variação = ValorTotal_RE * Variação_Percentual / 100 + ValorTotal_RE
        
    Case CCur("3.000,00") To CCur("4.999,99")
        Variação_Percentual = 5
        Variação = ValorTotal_RE * Variação_Percentual / 100 + ValorTotal_RE

    Case CCur("5.000,00") To CCur("9.999,99")
        Variação_Percentual = 4
        Variação = ValorTotal_RE * Variação_Percentual / 100 + ValorTotal_RE

    Case CCur("10.000,00") To CCur("14.999,99")
        Variação_Percentual = 2
        Variação = ValorTotal_RE * Variação_Percentual / 100 + ValorTotal_RE
        
    Case Is > CCur("14.999,99")
        Variação_Percentual = 0
        Variação = ValorTotal_RE * Variação_Percentual / 100 + ValorTotal_RE

       
    End Select


    [ ]'s

    Noob


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.
    Cláudio Machado
    Cláudio Machado
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1636
    Registrado : 17/03/2011

    [Resolvido]Passar valor de Select Case para caixa de texto. Onde está o erro?? Empty Re: [Resolvido]Passar valor de Select Case para caixa de texto. Onde está o erro??

    Mensagem  Cláudio Machado 27/1/2015, 12:30

    Perfeito Noob!!!
    Muito obrigado mesmo.
    Saudações cheers cheers


    .................................................................................
    " Nunca cruze os braços diante de qualquer problema ou dificuldade, pois o maior homem do mundo Jesus,  morreu de braços abertos."

    Agradeça e feche o tópico clicando no botão Resolvido. Se não sabe como, veja  AQUI.
    Não esqueça de clicar no Joinha [Resolvido]Passar valor de Select Case para caixa de texto. Onde está o erro?? 90dssg para agradecer a dica que solucionou seu problema.
    Noobezinho
    Noobezinho
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4140
    Registrado : 29/06/2012

    [Resolvido]Passar valor de Select Case para caixa de texto. Onde está o erro?? Empty Re: [Resolvido]Passar valor de Select Case para caixa de texto. Onde está o erro??

    Mensagem  Noobezinho 27/1/2015, 12:43

    Ótimo Claudio !

    Valeu o retorno.

    Boa sorte!


    Noob


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.

    Conteúdo patrocinado


    [Resolvido]Passar valor de Select Case para caixa de texto. Onde está o erro?? Empty Re: [Resolvido]Passar valor de Select Case para caixa de texto. Onde está o erro??

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 21/11/2024, 19:42