MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Obter resultado consultando valor em duas colunas

    avatar
    thiagonsilvaa
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 359
    Registrado : 12/01/2017

    [Resolvido]Obter resultado consultando valor em duas colunas Empty [Resolvido]Obter resultado consultando valor em duas colunas

    Mensagem  thiagonsilvaa em 19/8/2020, 15:19

    Bom dia a todos !

    Tenho um formulário ao qual vou efetuar um cadastro.

    Nele possui um campo valor.
    Gostaria que, ao digitar o valor ele buscasse na tblfaixa a faixa do valor correspondente digitado (com base nas duas colunas) e retornasse em um outro campo a descrição correspondente.


    Tentei por consultas, vba e não tive resultados.

    Estou postando o anexo para que se alguém puder, analisar.

    Desde já, muito obrigado.
    Anexos
    [Resolvido]Obter resultado consultando valor em duas colunas AttachmentDB.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (35 Kb) Baixado 1 vez(es)
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1148
    Registrado : 13/12/2016

    [Resolvido]Obter resultado consultando valor em duas colunas Empty Re: [Resolvido]Obter resultado consultando valor em duas colunas

    Mensagem  Alexandre Fim em 19/8/2020, 16:17

    Ola Thiago,

    Fiz uma implementação no código que faz esta validação, conforme abaixo:
    [Resolvido]Obter resultado consultando valor em duas colunas Valida11

    O sistema exibe quando não há faixa equivalente ao valor, e não permite salvar os dados:
    [Resolvido]Obter resultado consultando valor em duas colunas Valida12


    Segue versão do arquivo anexo.

    Espero ter ajudado.

    Boa sorte.
    Anexos
    [Resolvido]Obter resultado consultando valor em duas colunas AttachmentDB_v2.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (30 Kb) Baixado 4 vez(es)


    .................................................................................
    - Procure sempre anexar seu projeto para análise do problema/dúvida.
    - Ao copiar/colar um código VBA, procure entender seu funcionamento.
    - Se o problema foi resolvido, não se esqueça de marcar o tópico como RESOLVIDO.
    avatar
    thiagonsilvaa
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 359
    Registrado : 12/01/2017

    [Resolvido]Obter resultado consultando valor em duas colunas Empty Re: [Resolvido]Obter resultado consultando valor em duas colunas

    Mensagem  thiagonsilvaa em 19/8/2020, 16:33

    Boa tarde meu caro !

    Perfeitamente funcionando.

    Eu tinha usado um código pra fazer um loop, porém estava retornando apenas a última faixa da tabela:

    Código:
        Dim db As dao.Database
        Dim rs As Recordset
       
        Set db = CurrentDb()
        Set rs = db.OpenRecordset("select * from tblfaixa ")
       
       
        Do While Not rs.EOF
        If valor>= rs("valorminimo") AND Valorpersonalidade <= rs("valormaximo") Then

        Descricao= rs("descricao")

        End If
        rs.MoveNext
        Loop

    Teoricamente meu raciocínio estava correto, era conveniente fazer um loop pra fazer a varredura das tabelas e encontrar a faixa correta.
    Porém falhei na escrita do código.

    Agradeço demais pela força !

    Muito obrigado !!!
    avatar
    thiagonsilvaa
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 359
    Registrado : 12/01/2017

    [Resolvido]Obter resultado consultando valor em duas colunas Empty Re: [Resolvido]Obter resultado consultando valor em duas colunas

    Mensagem  thiagonsilvaa em 19/8/2020, 16:33

    Tópico resolvido
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1148
    Registrado : 13/12/2016

    [Resolvido]Obter resultado consultando valor em duas colunas Empty Re: [Resolvido]Obter resultado consultando valor em duas colunas

    Mensagem  Alexandre Fim em 19/8/2020, 16:59


    Sim, seu raciocínio estava correto, porém, tinha um erro nesta linha:

    If Valor >= rs("valorminimo") And Valorpersonalidade <= rs("valormaximo") Then

    Mas o importante é que vc entendeu a implementação realizada e o problema foi solucionado.

    O fórum agradece.

    Boa sorte no teu projeto

    Abraço



    .................................................................................
    - Procure sempre anexar seu projeto para análise do problema/dúvida.
    - Ao copiar/colar um código VBA, procure entender seu funcionamento.
    - Se o problema foi resolvido, não se esqueça de marcar o tópico como RESOLVIDO.

      Data/hora atual: 27/10/2020, 05:42