MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

5 participantes

    [Resolvido]Consultas com valores automaticos

    avatar
    Matheus Bacha
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 29
    Registrado : 19/05/2015

    [Resolvido]Consultas com valores automaticos Empty [Resolvido]Consultas com valores automaticos

    Mensagem  Matheus Bacha 19/5/2015, 14:02

    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.
    Sidney
    Sidney
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 427
    Registrado : 08/10/2012

    [Resolvido]Consultas com valores automaticos Empty Re: [Resolvido]Consultas com valores automaticos

    Mensagem  Sidney 19/5/2015, 14:13

    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”
    Sidney
    Sidney
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 427
    Registrado : 08/10/2012

    [Resolvido]Consultas com valores automaticos Empty Re: [Resolvido]Consultas com valores automaticos

    Mensagem  Sidney 19/5/2015, 14:35

    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
    avatar
    Matheus Bacha
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 29
    Registrado : 19/05/2015

    [Resolvido]Consultas com valores automaticos Empty Re: [Resolvido]Consultas com valores automaticos

    Mensagem  Matheus Bacha 19/5/2015, 14:56

    OK, obrigado!!!!

    Agora acho que deu certo.

    Valeu.
    Sidney
    Sidney
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 427
    Registrado : 08/10/2012

    [Resolvido]Consultas com valores automaticos Empty Re: [Resolvido]Consultas com valores automaticos

    Mensagem  Sidney 19/5/2015, 15:00

    Se resolveu o problema, dê como assunto RESOLVIDO,

    Att; Sidney
    avatar
    Matheus Bacha
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 29
    Registrado : 19/05/2015

    [Resolvido]Consultas com valores automaticos Empty Re: [Resolvido]Consultas com valores automaticos

    Mensagem  Matheus Bacha 20/5/2015, 14:51

    Ney, obrigado pela ajuda mais não funcionou.

    Talvez tenha alguma maneira de colocar alguma regra na própria consulta?
    Roberto_1977
    Roberto_1977
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 831
    Registrado : 01/10/2013

    [Resolvido]Consultas com valores automaticos Empty Re: [Resolvido]Consultas com valores automaticos

    Mensagem  Roberto_1977 20/5/2015, 15:56

    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


    .................................................................................
    Para saber como marcar tópico como [Resolvido] Click Aqui Cool
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4936
    Registrado : 20/04/2011

    [Resolvido]Consultas com valores automaticos Empty Re: [Resolvido]Consultas com valores automaticos

    Mensagem  Silvio 20/5/2015, 18:26

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


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Consultas com valores automaticos Empty Re: [Resolvido]Consultas com valores automaticos

    Mensagem  Alvaro Teixeira 20/5/2015, 19:01

    Olá, mais um pitaco rabbit
    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
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4936
    Registrado : 20/04/2011

    [Resolvido]Consultas com valores automaticos Empty Re: [Resolvido]Consultas com valores automaticos

    Mensagem  Silvio 20/5/2015, 19:01

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


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Consultas com valores automaticos Empty Re: [Resolvido]Consultas com valores automaticos

    Mensagem  Alvaro Teixeira 20/5/2015, 19:17

    É mesmo isso Amigo Silvio.
    Abraço de terras Lusas cheers
    avatar
    Matheus Bacha
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 29
    Registrado : 19/05/2015

    [Resolvido]Consultas com valores automaticos Empty Re: [Resolvido]Consultas com valores automaticos

    Mensagem  Matheus Bacha 21/5/2015, 14:32

    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.
    avatar
    Matheus Bacha
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 29
    Registrado : 19/05/2015

    [Resolvido]Consultas com valores automaticos Empty Re: [Resolvido]Consultas com valores automaticos

    Mensagem  Matheus Bacha 21/5/2015, 14:33

    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.
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Consultas com valores automaticos Empty Re: [Resolvido]Consultas com valores automaticos

    Mensagem  Alvaro Teixeira 21/5/2015, 17:41

    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

      Data/hora atual: 27/9/2022, 19:20