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]Passar valor de Select Case para caixa de texto. Onde está o erro??

    Compartilhe
    avatar
    Cláudio Machado
    VIP
    VIP

    Respeito às Regras 100%

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

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

    Mensagem  Cláudio Machado em Qui 15 Jan 2015, 11:57 pm

    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  [Você precisa estar registrado e conectado para ver este link.].
    Não esqueça de clicar no Joinha [Você precisa estar registrado e conectado para ver esta imagem.] para agradecer a dica que solucionou seu problema.
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4647
    Registrado : 16/03/2013

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

    Mensagem  ahteixeira em Sex 16 Jan 2015, 1:52 am

    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.
    avatar
    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

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

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

    Mensagem  Noobezinho em Sex 16 Jan 2015, 2:13 am

    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


    .................................................................................
    Noobezinho

    * A solução funcionou?  [Você precisa estar registrado e conectado para ver esta imagem.] 
    Agradeça e feche o tópico clicando no botão Resolvido
    Se não sabe como, veja [Você precisa estar registrado e conectado para ver este link.].

    Como anexar imagem no teu post do fórum : [Você precisa estar registrado e conectado para ver este link.]

    * Criar arquivos.zip com o Winrar - veja [Você precisa estar registrado e conectado para ver este link.].

    Atualmente estou verificando se quem está pedindo ajuda, ajudamos e não retornou.
    Se a pessoa em questão não deu retorno, não tentarei ajudar novamente .
    avatar
    Cláudio Machado
    VIP
    VIP

    Respeito às Regras 100%

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

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

    Mensagem  Cláudio Machado em Sex 23 Jan 2015, 12:43 am

    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  [Você precisa estar registrado e conectado para ver este link.].
    Não esqueça de clicar no Joinha [Você precisa estar registrado e conectado para ver esta imagem.] para agradecer a dica que solucionou seu problema.
    avatar
    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

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

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

    Mensagem  Noobezinho em Sex 23 Jan 2015, 3:47 am

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

    Noob


    .................................................................................
    Noobezinho

    * A solução funcionou?  [Você precisa estar registrado e conectado para ver esta imagem.] 
    Agradeça e feche o tópico clicando no botão Resolvido
    Se não sabe como, veja [Você precisa estar registrado e conectado para ver este link.].

    Como anexar imagem no teu post do fórum : [Você precisa estar registrado e conectado para ver este link.]

    * Criar arquivos.zip com o Winrar - veja [Você precisa estar registrado e conectado para ver este link.].

    Atualmente estou verificando se quem está pedindo ajuda, ajudamos e não retornou.
    Se a pessoa em questão não deu retorno, não tentarei ajudar novamente .
    avatar
    Avelino Sampaio
    Moderador
    Moderador

    Respeito às Regras 100%

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

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

    Mensagem  Avelino Sampaio em Sex 23 Jan 2015, 3:33 pm

    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
    avatar
    Dilson
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

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

    Mensagem  Dilson em Sex 23 Jan 2015, 4:21 pm

    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.
    avatar
    Cláudio Machado
    VIP
    VIP

    Respeito às Regras 100%

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

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

    Mensagem  Cláudio Machado em Seg 26 Jan 2015, 11:24 pm

    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  [Você precisa estar registrado e conectado para ver este link.].
    Não esqueça de clicar no Joinha [Você precisa estar registrado e conectado para ver esta imagem.] para agradecer a dica que solucionou seu problema.
    avatar
    Cláudio Machado
    VIP
    VIP

    Respeito às Regras 100%

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

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

    Mensagem  Cláudio Machado em Ter 27 Jan 2015, 1:32 am

    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  [Você precisa estar registrado e conectado para ver este link.].
    Não esqueça de clicar no Joinha [Você precisa estar registrado e conectado para ver esta imagem.] para agradecer a dica que solucionou seu problema.
    avatar
    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

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

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

    Mensagem  Noobezinho em Ter 27 Jan 2015, 2:52 am

    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


    .................................................................................
    Noobezinho

    * A solução funcionou?  [Você precisa estar registrado e conectado para ver esta imagem.] 
    Agradeça e feche o tópico clicando no botão Resolvido
    Se não sabe como, veja [Você precisa estar registrado e conectado para ver este link.].

    Como anexar imagem no teu post do fórum : [Você precisa estar registrado e conectado para ver este link.]

    * Criar arquivos.zip com o Winrar - veja [Você precisa estar registrado e conectado para ver este link.].

    Atualmente estou verificando se quem está pedindo ajuda, ajudamos e não retornou.
    Se a pessoa em questão não deu retorno, não tentarei ajudar novamente .
    avatar
    Cláudio Machado
    VIP
    VIP

    Respeito às Regras 100%

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

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

    Mensagem  Cláudio Machado em Ter 27 Jan 2015, 6:00 pm

    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  [Você precisa estar registrado e conectado para ver este link.].
    Não esqueça de clicar no Joinha [Você precisa estar registrado e conectado para ver esta imagem.] para agradecer a dica que solucionou seu problema.
    avatar
    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

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

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

    Mensagem  Noobezinho em Ter 27 Jan 2015, 6:13 pm

    Ótimo Claudio !

    Valeu o retorno.

    Boa sorte!


    Noob


    .................................................................................
    Noobezinho

    * A solução funcionou?  [Você precisa estar registrado e conectado para ver esta imagem.] 
    Agradeça e feche o tópico clicando no botão Resolvido
    Se não sabe como, veja [Você precisa estar registrado e conectado para ver este link.].

    Como anexar imagem no teu post do fórum : [Você precisa estar registrado e conectado para ver este link.]

    * Criar arquivos.zip com o Winrar - veja [Você precisa estar registrado e conectado para ver este link.].

    Atualmente estou verificando se quem está pedindo ajuda, ajudamos e não retornou.
    Se a pessoa em questão não deu retorno, não tentarei ajudar novamente .

      Data/hora atual: Ter 12 Dez 2017, 9:28 pm