[Resolvido]Consultas com valores automaticos

Bom dia!

Acabei de me cadastrar no fórum e estou com um monte de duvidas, mais por enquanto a de maior prioridade é:

Tenho dois campos na minha tabela (Montante) e (Faixa de Valor) a regra é o seguinte:

1º - Se o Valor do (Montante) for igual a 80 então (Faixa de Valor) é "Limite"

2º - Se o Valor do (Montante) for >80 E <300 então (Faixa de Valor) é "Valor Baixo"

3º - Se o Valor do (Montante) for >= 300 então (Faixa de Valor) é "Valor Alto".

Já tentei fazer em VBA :

Dim Soma

   Soma = [Soma de Montante2]
   
   
    If [Soma de Montante2] = 80 Then
         [Faixa de Valores] = “Limite”
    ElseIf [Soma de Montante2] > 80 Then
         [Faixa de Valores] = “Valor_Baixo”
    ElseIf [Soma de Montante2] < 300 Then
         [Faixa de Valores] = “Valor_Baixo”
    ElseIf [Soma de Montante2] >= 300 Then
         [Faixa de Valores] = “Valor_Alto”
   
    End If

Mais não funciona, e tentei consulta Opção;

=Opção([Tabela Prioridade]![Faixa de Valores]-[Tabela Prioridade]![Soma de Montante2]=80;"Limite";[Tabela Prioridade]![Faixa de Valores]-[Tabela Prioridade]![Soma de Montante2]>80 E [Tabela Prioridade]![Faixa de Valores]!-[Tabela Prioridade]![Soma de Montante2]<300;"Valor Baixo";[Tabela Prioridade]![Faixa de Valores]-[Tabela Prioridade]![Soma de Montante2]>=300 ;"Valor Alto")

Porém não está funcionando.

Tente  assim,
   


 If [Soma de Montante2] = 80 Then
        FaixaValores = “Limite”
       
    ElseIf [Soma de Montante2] > 80 Or [Soma de Montante2] < 300 Then
        FaixaValores = “Valor_Baixo”
         
    ElseIf [Soma de Montante2] >= 300 Then
        FaixaValores = “Valor_Alto”

Código:


  Use esse, pois está da mesma forma que você enviou, 


  If [Soma de Montante2] = 80 Then
        [Faixa de Valores] = “Limite”

    ElseIf [Soma de Montante2] > 80 Or [Soma de Montante2] < 300 Then
        [Faixa de Valores] = “Valor_Baixo”

    ElseIf [Soma de Montante2] >= 300 Then
        [Faixa de Valores] = “Valor_Alto”


Att; Sidney

OK, obrigado!!!!

Agora acho que deu certo.

Valeu.

Se resolveu o problema, dê como assunto RESOLVIDO,

Att; Sidney

Ney, obrigado pela ajuda mais não funcionou.

Talvez tenha alguma maneira de colocar alguma regra na própria consulta?

Boa tarde,

só um palpite.... experimenta assim:

 If [Soma de Montante2] = "80" Then
        [Faixa de Valores] = “Limite”
End if  
If [Soma de Montante2] >"80" and < "300" Then
        [Faixa de Valores] = “Valor_Baixo”
End if
If [Soma de Montante2] >= "300" Then
        [Faixa de Valores] = “Valor_Alto”
       End If

Só um pitaco

Dim Soma

Soma = [Soma de Montante2]
select case soma

case soma = 80
[Faixa de Valores] = “Limite”

case soma > 80
[Faixa de Valores] = “Valor_Baixo”

case soma< 300
[Faixa de Valores] = “Valor_Baixo”

case soma>= 300 Then
[Faixa de Valores] = “Valor_Alto”

End select

É apenas uma ideia...

Olá, mais um pitaco
No código da mensagem n.  3 é só trocar o OR por AND e colocar o End If
Se o nome dos campos estiver bem, deve funcionar.
Abraço

Grande Amigo Alvaro...abraços....
De pitaco em pitacos, vamos agregando !

É mesmo isso Amigo Silvio.
Abraço de terras Lusas

Obrigado, Amigos consegui comas ajudas que vocês me deram.
No final ficou assim:

Private Sub Comando27_Click()
If [Soma_Montante] = "80" Then
[Faixa_Valores] = "LIMITE"

ElseIf [Soma_Montante] > "80" Then
[Faixa_Valores] = "VALOR BAIXO"

ElseIf [Soma_Montante] < "300" Then
[Faixa_Valores] = "VALOR BAIXO"

ElseIf [Soma_Montante] > "300" Then
[Faixa_Valores] = "VALOR ALTO"


End If
End Sub

Mais Facil que imaginava.

Obrigado, Amigos consegui comas ajudas que vocês me deram.
No final ficou assim:

Private Sub Comando27_Click()
If [Soma_Montante] = "80" Then
[Faixa_Valores] = "LIMITE"

ElseIf [Soma_Montante] > "80" Then
[Faixa_Valores] = "VALOR BAIXO"

ElseIf [Soma_Montante] < "300" Then
[Faixa_Valores] = "VALOR BAIXO"

ElseIf [Soma_Montante] > "300" Then
[Faixa_Valores] = "VALOR ALTO"


End If
End Sub

Mais Facil que imaginava.

Olá, obrigado pelo retorno.
Ao ler o código tenho imoressao que se testar 350 não vai dar certo, confirme.
Entretanto, veja este exemplo do nosso colega WSenna da técnica utilizada.
https://www.maximoaccess.com/t18276-calcular-idade-e-faixa-etaria-automaticamente?highlight=faxa+etaria
Abraço