MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

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

    Cláudio Machado
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1327
    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, 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  [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.

    ahteixeira
    Moderador
    Moderador

    Respeito às Regras 100%

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

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

    Mensagem  ahteixeira em Qui 15 Jan 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
    Moderador
    Moderador

    Respeito às Regras 100%

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

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

    Mensagem  Noobezinho em Qui 15 Jan 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


    .................................................................................
    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 .

    Cláudio Machado
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1327
    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 22 Jan 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  [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.

    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

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

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

    Mensagem  Noobezinho em Qui 22 Jan 2015, 22:17

    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 .

    Avelino Sampaio
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3348
    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, 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


    .................................................................................
    ============ Quer aprender Access em alta velocidade ? ============

    || [Você precisa estar registrado e conectado para ver esta imagem.] Acesse o site UsandoAccess.com.br e veja um ótimo kit de ensino que tenho para você.

    ===========================================================

    Dilson
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1602
    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, 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.


    .................................................................................
    Atenção:
    => Antes de implementar qualquer dica, faça um backup do seu projeto;
    => Retorne para marcar o Resolvido ou continuar a discussão;
    => Sempre realize pesquisas antes de postar uma pergunta;

    Cláudio Machado
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1327
    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, 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  [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.

    Cláudio Machado
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1327
    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, 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  [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.

    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

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

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

    Mensagem  Noobezinho em Seg 26 Jan 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


    .................................................................................
    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 .

    Cláudio Machado
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1327
    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, 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  [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.

    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2503
    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, 12:43

    Ó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: Qua 07 Dez 2016, 18:18