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