Selecionar valor mais próximo.

Olá senhores, muito bom dia!

Tenho uma tabela chamada "Tab_CadFator", e nessa tabela tenho as colunas "Fator" e "Aproveitamento".

Acessando o formulário, posso selecionar os registro da tabela "Tab_CadFator" através de uma combo box, onde ao selecionar o fator desejado, ele me traz automaticamente o Aproveitamento.

Neste mesmo formulário, além destes dois campos derivados da tabela, tenho um campo não associado que realizada o cálculo do fator de acordo com os dados do produto.

A intenção é que o valor mais próximo da combo box seja selecionado de acordo com o resultado do campo não associado.

Exemplo:

Ao preencher os campos Chave_A com o valor "99" e Chave_B com o valor "42", o campo não associado realiza o cálculo (Chave_A / Chave_B), exemplo:

99 / 42 --> Fator = 2,357142857

Na minha combobox, o valor mais próximo seria "2,357598425", então o mesmo deveria ser selecionado automaticamente por ser o valor mais próximo.

Alguém teria ideia de como resolver este problema?

Grato a todos!

Bom dia,
para facilitar, poderia nos preparar um arquivo para tentarmos algo.
Gostaria ainda de saber se os dados da combo vem de alguma tabela e se atende algum critério.

Olá Marcelo.

Ao preencher o campo Chave(A) e Chave (B), deve-se clicar em calcular.

Ao clicar em calcular, o campo "Fator" é atualizado com o cálculo definido por mim, porém o resultado deste calculo deve ser igual a um registro da combo box.

Recomenda-se utilizar os seguintes dados:

Chave (A) = 99
Chave (B) = 42

Resultado: 2,35714285714286
Selecionar Registro da Combo box mais próximo: 2,35759842519684

O Resultado: 2,35714285714286 e o que deve ir para a combo é 2,35759842519684?
E o valor é mais próximo para cima ou para baixo?

Não consegui testar, pois seu VBA está com senha.

Desculpe amigo, segue novamente arquivo desbloqueado.. rsrs

Sim, isso mesmo, o que deve ir para a combo box é um valor que esteja na tabela TabCad_Fator.

Não há critério de proximidade pro arredondamento, apenas arredondar para o valor mais próximo.

Cumprimentos.

Boa tarde,

Crie uma consulta e dê o seguinte nome: qryConvert
A sql da consulta é a seguinte:

Código:

SELECT Cdbl(Fator) AS dblFator FROM Tab_CadFator;

Substitua o código do evento ao clicar do botão Btn_Calcular, por código abaixo:

Código:

   Dim dblRes As Double 'Variável para receber o valor calculado para comparação
    Dim dblVM As Double 'Variável para receber o valor mais proximo acima
    Dim dblVN As Double 'Variável áta receber o valor mais próximo abaixo
    'Variáveis para receberem a subtração
    Dim dblDVM As Double
    Dim dblDVN As Double
    
    'Calculando o fator
    dblRes = CDbl(Me.Chave) / CDbl(Me.Chave2)
    
    'Buscando valor mais próximo acima:
    dblVM = DMax("dblFator", "qryConvert", "dblFator >= " & Replace(dblRes, ",", "."))

    'Buscando o valor mais próximo abaixo
    dblVN = DMax("dblFator", "qryConvert", "dblFator <= " & Replace(dblRes, ",", "."))
     '*O Replace é devido as casas decimais serem separadas por ponto (.) e não por vígula (,) no VBA
    
    'Como já tenho o maior e o menor valor, farei uma subtração para determinar quais dos dois valores mais se aproximam
    'irei realizar a subtração para ver quais resultados efetivamente é o mais próximo
    dblDVM = dblVM - dblRes
    dblDVN = dblRes - dbldnv
    
    'Agora iremos determinar o valor mais próximo
    If dblDVM = dblDVM Then
        'Como os valores são iguais, o valor mais próximo pode ser qualquer variável
        Me.Fator = dblVM
    Else
        'Como os valores são diferentes, iremos determinar qual é o menor valor, que será o mais próximo
        If dblDVM < dblDVN Then
            Me.Fator = dblVM
        Else
            Me.Fator = dblVN
        End If
    End If

O código está comentado com as explicações de cada passo.

A consulta (qryConvert) foi necessária para converter na tabela o tipo de dados string para double (e diminuir a quantidade de códigos do botão)

Teste par ver se é isso.

Bom dia amigo Marcelo!
Acho que estamos quase lá.

Realizei um teste utilizando os seguintes dados:

Chave(A) = 60
Chave(B) = 30

, onde o resultado do fator é 2.

Ao clicar em calcular, ele selecionou o valor 2,367....
Este valor (2,367...) realmente faz parte de um registro da combobox, porém não é o mais próximo, pois temos um registro com valor 2,007.

Segue em anexo arquivo para novos testes.

Cristian, como ficou a situação?

Olá Damasceno.

Durante esta semana irei trabalhar no código enviado pelo nosso amigo Marcelo, para ajustar conforme o meu problema e posteriormente compartilhar com os amigos do fórum.