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 : 1346
    Registrado : 17/03/2011

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

    Mensagem  Cláudio Machado em Qui Jan 15, 2015 6:27 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 : 4295
    Registrado : 15/03/2013

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

    Mensagem  ahteixeira em Qui Jan 15, 2015 8:22 pm

    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 Qui Jan 15, 2015 8:43 pm

    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 : 1346
    Registrado : 17/03/2011

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

    Mensagem  Cláudio Machado em Qui Jan 22, 2015 7:13 pm

    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 Qui Jan 22, 2015 10:17 pm

    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 : 3385
    Registrado : 04/04/2010

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

    Mensagem  Avelino Sampaio em Sex Jan 23, 2015 10:03 am

    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 : 1695
    Registrado : 11/11/2009

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

    Mensagem  Dilson em Sex Jan 23, 2015 10:51 am

    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 : 1346
    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 Jan 26, 2015 5:54 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 : 1346
    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 Jan 26, 2015 8:02 pm

    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 Seg Jan 26, 2015 9:22 pm

    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 : 1346
    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 Jan 27, 2015 12:30 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 Jan 27, 2015 12:43 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 Ago 22, 2017 11:37 pm