bollywood actresses hair loss hair rehab london contact number cheap hair extensions brazilian curly hair with closure hair extension fails human hair wigs black ponytail hairstyles 2018 sunny hair extensions uk hair extensions remy hair extensions weft koko one piece hair extensions clip hair
É possível o uso do 'Between' dentro da condição 'If'?

É possível o uso do Between dentro da condição If?

Adquira a assinatura vitalícia do site e passe a ter acesso aos arquivos exemplos, vídeos, revistas, livros e ao kit de montagem de ribbons. Você terá suporte por e-mail, caso necessite tirar dúvidas pontuais. Clique AQUI e veja como obter um dos nossos planos. Clique AQUI e faça uma visita a seção Downloads do site e verifique as centenas de arquivos que estará à sua disposição. Clique AQUI e faça uma visita a seção Vídeos do site e veja a lista que estará disponível ao se tornar o nosso assinante vitalício. Clique AQUI e saiba mais detalhes sobre o kit de montagem de ribbons (deixe seus aplicativos com aspecto profissional).

Usuário Leandro:

Bom dia.

Estou tentado criar um critério para a função "If" que seria o valor entre dois números.

A ideia é a de executar um procedimento, de acordo com o valor do uma textbox.

Tentei das seguintes formas e não consegui:

If Me.txtValor.Value = Between 81 and 100 Then
e
If Me.txtValor.Value = > 81 and < 100 Then

Como poderia ser feito?

Suporte:

Leandro,

experimente assim:

If Eval(Me!cboValor & " Between 81 and 100") Then

else

end if

Usuário Leandro:

Avelino,

não entendo o que está acontecendo.

Fiz um BD pra teste, onde, ao mudar o valor de uma caixa de combinação, algumas caixas de texto alteram de cor.

Se o valor selecionado for entre 0 e 20, apenas uma caixa muda de cor, se o valor selecionado for entre 21 e 40, duas caixas mudam de cor, etc...

O código If Eval(Me!cboValor & " between 81 and 100") Then  funciona perfeitamente para esse caso.

Porém no BD que estou desenvolvendo, não uso uma caixa de combinação, e sim uma caixa de texto calculada, que retorna uma porcentagem.  Nesse caso, o código não está funcionando.

Usei o mesmo código no "Change" da caixa de texto que retorna o valor desejado, assim, todas as vezes em  que o cálculo alterar o valor na caixa, a mudança nas cores será efetuada.

Tentei usar If Eval(Me!cboValor & " between 0,81 and 1") Then, por ser porcentagem, mas também não funcionou, apresentando a seguinte caixa de erro:

"Erro 2432
A expressão que você inseriu contém uma sintaxe inválida ou você
precisa delimitar o texto entre aspas"

Ou seja, ao alterar o botão txtAno, os cálculos são realizados e a caixa "Texto1359" é preenchida com um valor em porcentagem.

Se esse valor for entre 30% e 40%, a caixa "rt100G" é preenchida com a cor "12632256"...

O que pode ser?

Suporte:

Leandro,

altere o valor da percentagem, usando o ponto:

If Eval(Me.Texto1359 & "between 0.3 and 0.4") Then
    Me.rt100G.BackColor = 12632256
End If

End Sub

Se tem mais de uma cor para alterar, talvez seja melhor utilizar o Select Case. Exemplo:

Select Case me!Texto1359
case 0 to 0.29
   Me.rt100G.BackColor = 0
case 0.3 to 0.4
    Me.rt100G.BackColor = 12632256
case 0.41 to 0.79 
   Me.rt100G.BackColor = vbBlue
case 0.80 to 1
   Me.rt100G.BackColor = vbRed
end select

Usuário Leandro:

Boa tarde, Avelino.

Funcionou nos dois casos, tanto com o "If" quanto com o "Select Case".

Acabei usando o Select Case, pois achei que ficou ligeiramente mais rápido que o If.


 

 


Não há comentário

Envie seu comentário: